Downloads
Henrique Gomide
CREPEIA, PET - Psicologia
Downloads
dados <- read.csv(file.choose(), header=TRUE, sep=",")
library(epicalc) # Funções utéis para epidemiologia
cohen.d(0.3) # pequeno
cohen.d(0.5) # médio
cohen.d(0.8) # grande
Para realizar amostragem (ou pedir para alguém fazê-la):
Um pesquisador quer saber se um treinamento de "leitura dinâmica" aumenta a velocidade média de leitura de palavras.
Diversas funções para amostragem
n.for.2means(mu1 = 12, mu2 = 11.5, sd1 = 1, sd = 1, alpha = 0.05, power = 0.8)
##
## Estimation of sample size for testing Ho: mu1==mu2
## Assumptions:
##
## alpha = 0.05
## power = 0.8
## n2/n1 = 1
## mu1 = 12
## mu2 = 11.5
## sd1 = 1
## sd2 = 1
##
## Estimated required sample size:
##
## n1 = 64
## n2 = 64
## n1 + n2 = 128
##
set.seed(1) # controlando a randomização
grupoE <- rnorm(n = 64, mean = 12, sd = 1) # grupo experimental
grupoC <- rnorm(n = 64, mean = 11.5, sd = 1) # grupo controle
testeTe <- t.test(grupoE, grupoC, var.equal = TRUE) # teste t
t <- testeTe$statistic[[1]]
df <- testeTe$parameter[[1]]
r <- sqrt(t^2/(t^2 + df))
round(r, 3)
## [1] 0.318