#-------------------------------------------
# Texto sem acentos! by Cristian
#-------------------------------------------
# Entrada dos dados
#-------------------------------------------
#setwd("nome_do_diretorio")
#-------------------------------------------
#Comentario
#-------------------------------------------
sqrt(144)
45-45#faz diferenca de 2 numeros
45+45
45/45
45*45
#-------------------------------------------
#Ctrl + Enter Executa uma linha de comandos
#Ctrl + A Seleciona tudo
#Ctrl + L Limpa o console
#Ctrl + S Salva as mudancas do arquivo
#-------------------------------------------
#x <- scan("nome_do_arquivo.txt")
#-------------------------------------------
x<- c(11.5,18.7,15.0,17.6,16.2,14.1,15.7,16.0,18.1,14.7,
      16.4,13.8,12.4,21.0,14.4,15.7,13.1,15.2,18.8,15.5,
      17.6,15.2,16.9,14.5,18.0,15.1,19.6,16.8,15.2,13.7)
x#imprime variavel
#-------------------------------------------
# Calculo da media, variancia e
# desvio-padrao
#-------------------------------------------
mean(x)
var(x)
sd(x)
#-------------------------------------------
# Exercicio: calcule o coeficiente de
# variacao
#-------------------------------------------
(sd(x)/mean(x))*100
#-------------------------------------------
# Calculo dos quantis (ou percentis)
#-------------------------------------------
quantile(x)
quantile(x,0.975)
quantile(x,0.025)
#-------------------------------------------
# Exercicio: Calcule a amplitude
# interquartilica
#-------------------------------------------
quantile(x,0.75)-quantile(x,0.25)
IQR(x)
#-------------------------------------------
# Exercicio: Observe e interprete o
# resultado dos seguintes comandos
#-------------------------------------------
min(x)
max(x)
hist(x)
?hist#para pedir ajuda
hist(x, col="grey",border="black",xlab="eixo x",
     ylab="eixo y",main="titulo")
hist(x, col="yellow",border="red",freq=FALSE)
hist(x, col="yellow",border="red",freq=TRUE)
#-------------------------------------------
# Construcao de um diagrama
# de ramo-e-folhas
#-------------------------------------------
stem(x)
boxplot(x)
boxplot(x,col="red", horizontal = TRUE,main="xx",xlab="eixos")
#-------------------------------------------
# Construcao do intervalo de confianca
# considerando variancia desconhecida
#-------------------------------------------
t.test(x,conf.level=0.95)
t.test(x,conf.level=0.99) 
#-------------------------------------------