# Entrada dos dados
setwd("D:\\ESALQ\\2015\\Aulas Graduacao\\Estatística Experimental\\aula01")
x <- scan("aula01.txt")
# Cálculo da média, variância e
# desvio-padrão
mean(x); var(x); sd(x)
# Exercício: calcule o coeficiente de variação
100*sd(x)/mean(x)
# Cálculo dos quantis (ou percentis)
quantile(x)
quantile(x,0.975)
quantile(x,0.025)
# Exercício: Calcule a amplitude
# interquartílica
quantile(x,0.75)-quantile(x,0.25)
# Exercício: Observe e interprete o
# resultado dos seguintes comandos
min(x); max(x)
summary(x)
# Construção de um histograma
hist(x)
?hist
hist(x, col="grey",border="black")
hist(x, col="grey", border="blue",freq=FALSE)
# Construção de um diagrama 
# de ramo-e-folhas
stem(x)
# Construção de um boxplot
boxplot(x)
# Construção do intervalo de confiança
# considerando variância desconhecida
t.test(x,conf.level=0.95)
t.test(x,conf.level=0.99)