ADati: Analisi dei dati in Psicologia

#subj <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24)
#drug <- c("c","c","c","c","x","x","x","x","y","y","y","y","c","c","c","c","x","x","x","x","y","y","y","y")
#fdep <- c(1,1,1,1,1,1,1,1,1,1,1,1,24,24,24,24,24,24,24,24,24,24,24,24)
#score <- c(1,4,0,7,13,5,7,15,9,16,18,13,15,6,10,13,6,18,9,15,14,7,6,13)
monkeys <- data.frame(subj=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24),
                drug=c("c","c","c","c","x","x","x","x","y","y","y","y","c","c","c","c","x","x","x","x","y","y","y","y"),
                fdep=c(1,1,1,1,1,1,1,1,1,1,1,1,24,24,24,24,24,24,24,24,24,24,24,24),
                score=c(1,4,0,7,13,5,7,15,9,16,18,13,15,6,10,13,6,18,9,15,14,7,6,13))