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> | ||
| + | |||
| + | |||
