Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
Ambos lados da revisão anterior Revisão anterior Próxima revisão | 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 11: | Linha 11: | ||
- teste a hipótese (<m>alpha = 0,10</m>) de que a resistência média é superior a 110 kN. | - teste a hipótese (<m>alpha = 0,10</m>) de que a resistência média é superior a 110 kN. | ||
- | ==== Comandos em 07/03/2007 ==== | + | ==== Comandos do R digitados na aula em 07/03/2007 ==== |
<code R> | <code R> | ||
3 + 4 | 3 + 4 | ||
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> | ||
+ | |||
+ | |||