#===============================================================================
#. Título: Inferência Estatística - Distribuição F (Snedecor) - várias
#. Curso : Introdução à estatística
# Autor : José Cláudio Faria/UESC/DCET
# Data  : 30/08/2021 19:06:15
#===============================================================================
# Objetivos gerais
#===============================================================================
# a) Apresentar os recursos básicos do R para a IE
# b) Fundamentar o estudante nos mecanismos básicos da IE
# c) Entendimento real da distribuição F (Snedecor)
#===============================================================================
# Objetivos específicos
#===============================================================================
# a) Plotar várias funções de densidade de probabilidade da distribuição F
# b) Observar as alterações na forma da fdp F quando se altera os graus de
#    liberdade do numerador
#===============================================================================

#.. ___Ini opções___
#... Número de curvas
n <- 50

#... Graus de liberdade do denominador
dfd <- 20
#.. ___Fim opções___

plot(NA,
     xlab='F',
     ylab='f(F)',
     xlim=c(0, 10),
     ylim=c(0, 1.5),
     type='n')


#.. Número de curvas
nc <- seq(1,
          n,
          by=1)

#.. Define as cores
cores <- rainbow(length(nc))              

for (i in nc)
{
  curve(df(x,
           i,
           dfd),
        n=2e3,
        col=cores[i], # Uma cor para cada curva
        add=TRUE,
        lwd=1)
}