##===============================================================================
## Título: Inferência Estatística - Origem distribuição F (Snedecor)
## Curso : Introdução à estatística
## Autor : José Cláudio Faria/UESC/DCET
## Data  : 30/09/2016 07:20:02
## Versão: v5
##===============================================================================
## 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 denominador
##===============================================================================

##-- Ini opções -----------------------------------------------------------------
## Número de curvas
n <- 50

## Graus de liberdade do denominador
dfd <- 12
#-- 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)
}