Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças

Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

Link para esta página de comparações

Ambos lados da revisão anterior Revisão anterior
Última revisão Ambos lados da revisão seguinte
disciplinas:ce003:semana2 [2007/03/07 21:43]
paulojus
disciplinas:ce003:semana2 [2007/03/09 22:33]
paulojus
Linha 58: Linha 58:
 quantile(dados,​ probs = c(0.25, 0.75)) quantile(dados,​ probs = c(0.25, 0.75))
 </​code>​ </​code>​
 +
 +==== Comandos do R digitados na aula em 09/03/2007 ====
 +<code R>
 +ls()
 +pwd()
 +system("​pwd"​)
 +getwd()
 +x <- c(23, 43, 12)
 +ls()
 +ls()
 +x
 +x <- 55
 +x
 +rm(x)
 +ls()
 +rm(x)
 +history()
 +q()
 +
 +# Uso do Xemacs e conteúdo do arquivo .R digitado
 +# entrando com os dados
 +x <- c(23, 45, 89, 12)
 +# calculando a média
 +mean(x)
 +# extraindo o maior dado
 +max(x)
 +# criando um vetor de caracteres
 +nomes <- c("​joao",​ "​pedro",​ "​maria" ​ )
 +
 +## Exercício
 +## 5. Obter o I.C (95%)
 +dt <- c(96, 128, 102, 102, 104, 160, 96, 108, 126, 104, 128, 140, 156, 102, 160)
 +
 +## Solução 1: fazendo passo a passo usando o R como calculadora
 +xbar <- mean(dt)
 +s <- sd(dt)
 +n <- length(dt)
 +t <- qt(0.975, df=14)
 +
 +xbar - t*s/sqrt(n)
 +xbar + t*s/sqrt(n)
 +
 +xbar - c(-t,t)* s/sqrt(n)
 +
 +# solução 2: usando uma funcão do R
 +t.test(dt, conf=0.95)
 +
 +
 +
 +</​code>​
 +
 +
  

QR Code
QR Code disciplinas:ce003:semana2 (generated for current page)