Atividade 2

Atividade para questões atuais em Avaliação Psicológica

Carrega a base de dados

Carrega a base de dados, usando como separador o signo ;

db <- read.csv(
  'bd_b5.csv',
  sep = ';'
)

Teste t

Realiza o teste t para cada uma das dimensões da personalidade

ocean <- c(
  "O",
  "C",
  "E",
  "A",
  "N"
)

db_t_test <- data.frame(
  matrix(
    nrow = length(ocean),
    ncol = 3
  )
)

names(db_t_test) <- c(
  "dimensao",
  "t",
  "p"
)

for (i in 1:length(ocean)) {
  eval(
    parse(
      text = paste0(
        '
          t_test_', ocean[i], ' <- t.test(
            db[db$SEXO == 1, "', ocean[i], '"], 
            db[db$SEXO == 0, "', ocean[i], '"]
          )
          
          db_t_test[', i, ',] <- c("',
            ocean[i],'",
            t_test_', ocean[i],'$statistic,
            t_test_', ocean[i], '$p.value
          )
          
        '
      )
    )
  )
}

db_t_test[,2:3] <- sapply(
  db_t_test[,2:3],
  as.numeric
)

db_t_test[,2:3] <- round(
  db_t_test[,2:3],
  2
)

db_t_test

##   dimensao     t    p
## 1        O  0.75 0.46
## 2        C  1.46 0.15
## 3        E  0.59 0.56
## 4        A  0.85 0.40
## 5        N -1.98 0.05

Como resultado, temos somente a dimensão neuroticismo com diferença entre sexos.

Diferença entre crianças e adolescentes

db$adolescente <- ifelse(db$IDADE >= 13, 1, 0)

db_t_test2 <- data.frame(
  matrix(
    nrow = length(ocean),
    ncol = 3
  )
)

names(db_t_test2) <- c(
  "dimensao",
  "t",
  "p"
)

for (i in 1:length(ocean)) {
  eval(
    parse(
      text = paste0(
        '
          t_test_', ocean[i], '2 <- t.test(
            db[db$adolescente == 1, "', ocean[i], '"], 
            db[db$adolescente == 0, "', ocean[i], '"]
          )
          
          db_t_test2[', i, ',] <- c("',
            ocean[i],'",
            t_test_', ocean[i], '2$statistic,
            t_test_', ocean[i], '2$p.value
          )
          
        '
      )
    )
  )
}

db_t_test2[,2:3] <- sapply(
  db_t_test2[,2:3],
  as.numeric
)

db_t_test2[,2:3] <- round(
  db_t_test2[,2:3],
  2
)

db_t_test2

##   dimensao     t    p
## 1        O  0.59 0.56
## 2        C -1.24 0.22
## 3        E -2.80 0.01
## 4        A -1.53 0.13
## 5        N -0.72 0.47

Vemos somente diferença significativa entre os grupos na dimensão extroversão.