Diferenças

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

--- disciplinas:ce003:semana2 [2007/03/07 21:43] – paulojus
+++ disciplinas:ce003:semana2 [2007/03/14 23:40] (atual) – 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.
-==== Comandos em 07/03/2007 ====
+==== Comandos do R digitados na aula em 07/03/2007 ====
 <code R>
 + 4
@@ Linha 58: / Linha 58: @@
 quantile(dados, probs = c(0.25, 0.75))
 </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>