ADati: Analisi dei dati in Psicologia

matricola <- c(542,110,401,526,705,952,634,445,159,822,243,144,483,359,143,607,888,175,652,687,453,319,
               497,993,160,575,913,404,525,317,935,892,474,837,645,781,846,658,661,328,382,942,990,798,
               544,162,249,418,230,111,718,301,587,415,676,256,856,733)
matricola <- matricola[order(matricola)]
cognome <- c("F","X","L","M","I","L","G","G","I","T","A","G","M","H","C","N","O","A","R","G","N","E","S","X",
    "W","O","Q","G","P","X","T","P","B","W","C","T","D","M","F","O","Z","P","I","H","H","C","R","J","D","H",
    "F","B","I","B","A","T","H","C")
cognome <- cognome[order(matricola)]
nome <- c("T","E","G","X","W","K","J","F","R","M","E","V","U","K","N","L","F","X","L","I","F","W","T","K","J",
    "T","A","L","C","M","V","F","Q","U","C","H","K","Z","T","X","D","L","B","Z","D","J","H","T","X","U","C","V",
    "H","W","S","P","J","J")
nome <- nome[order(matricola)]
sesso <- c("m","m","f","m","m","m","m","f","m","f","f","f","f","m","f","f","m","m","m","m","m","m","m","f","f",    
    "f","f","m","m","m","m","m","f","m","m","f","f","f","m","m","m","f","f","m","f","f","m","m","f","f","m","m",   
     "f","m","f","f","m","f")
sesso <- sesso[order(matricola)]
eta <- c(23,24,23,24,19,21,19,21,23,19,21,20,22,19,19,19,24,20,21,24,22,22,23,23,22,22,
    20,22,20,19,24,22,20,21,20,23,20,22,21,19,24,19,23,24,22,23,19,24,20,23,23,24,20,
    21,23,21,24,22)
eta <- eta[order(matricola)]    
d1 <- c(3,2,4,3,2,2,3,4,3,3,2,5,2,2,2,3,4,3,1,3,2,1,2,2,2,4,1,1,4,3,3,1,4,2,4,
    1,1,1,3,3,2,3,4,3,5,2,1,2,4,4,1,4,2,5,1,2,3,2)
d1 <- d1[order(matricola)]    
d2 <- c(5,5,2,4,4,4,4,2,3,3,3,2,3,3,5,2,5,4,3,4,5,3,3,5,4,2,4,4,4,3,5,3,3,3,4,
    4,1,2,4,3,3,1,5,1,2,4,3,2,2,3,5,4,4,4,4,2,5,4)
d2 <- d2[order(matricola)]    
d3 <- c(1,2,1,1,2,3,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,2,2,1,1,1,2,1,
    3,2,1,1,2,1,3,2,1,1,1,2,1,2,1,3,2,1,2,1,1,1,1)
d3 <- d3[order(matricola)]    
d4 <- c(3,3,3,3,3,3,3,4,4,3,2,1,3,3,5,3,4,5,1,4,3,3,3,4,3,1,4,4,2,5,3,2,4,3,4,
    4,3,3,5,2,2,5,3,2,2,3,4,3,2,2,2,4,3,3,4,3,4,2)
d4 <- d4[order(matricola)]    
fac <- c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,
    2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2)
fac <- fac[order(matricola)]    
fac <- factor(fac)    
memo <- c(20,20,19,18,16,20,18,20,26,21,20,21,20,23,22,20,17,18,19,21,24,22,16,19,20,23,19,17,16,
    23,20,17,20,18,13,18,18,19,27,24,15,18,14,16,11,22,24,23,19,17,14,13,24,17,11,13,13,7)
memo <- memo[order(matricola)]    
ore <- c(13,16,8,8,28,0,18,26,18,24,0,28,20,18,26,30,24,22,26,12,30,30,22,16,28,28,30,10,26,26,30,
    28,20,30,30,28,24,5,30,30,13,19,19,20,11,26,23,15,16,8,29,23,16,25,30,22,14,19)
ore <- ore[order(matricola)]    
voti <- c(8,19,20,20,21,21,13,22,23,23,9,24,24,23,25,25,25,13,21,24,24,26,26,27,28,28,27,22,29,27,
    30,30,30,30,30,30,30,15,24,30,28,26,23,24,21,30,30,22,26,16,25,15,19,26,30,25,18,30)
voti <- voti[order(matricola)]    
anno <- cut(eta,c(19,20,22,24),include.lowest=TRUE,labels=c("primo","secondo","terzo"))
studenti <- data.frame(matricola=matricola,cognome=cognome,nome=nome,genere=sesso,fac=fac,
                  anno=anno,eta=eta,d1=d1,d2=d2,d3=d3,d4=d4,memo=memo,ore=ore,voti=voti)
rm(matricola,cognome,nome,sesso,fac,eta,d1,d2,d3,d4,memo,ore,voti,anno)