Edu_AP_SS_v01

Lectura de datos de las encuestas

Se leen los datos de los alumnos de SCI del curso 2017/2018:

source("survey_924627_R_syntax_file.R")
d_sci = data
calif = read.csv(file="~/git/MII_SCI_2018/SCI_NOTAFINAL_MARZO1718.csv", 
                stringsAsFactors = FALSE, sep=";")
# vincular calif$EMAIL con d_sci$P01G1
dtot  = merge(calif,d_sci,by.x="EMAIL.UPM",by.y="P01G1")
# Extraemos los contestados a voleo
idx = (dtot$Tiempo.total-mean(dtot$Tiempo.total))/sd(dtot$Tiempo.total) > 1 | (dtot$Tiempo.total-mean(dtot$Tiempo.total))/sd(dtot$Tiempo.total)  < -1
dat = dtot[!idx,c(1,2,8,11:77)]
ndat= dat[,-c(1,3,grep("other",as.character(colnames(dat))))]
vdat= ndat
for (i in 1:ncol(vdat)) {
  vdat[,i] = as.numeric(vdat[,i])
}
#
pairs(vdat[,c(1,2:10)],diag.panel=panel.hist,
      upper.panel=panel.cor.scale,lower.panel=panel.smooth)

#

Another Pairs

buscaNas = function(mat,ids) {
  tmp = rep(FALSE,nrow(mat))
  for (i in ids) {
    tmp = tmp | mat[,i]
  }
  return( ! tmp)
}
#
nas = apply(vdat,2,is.na)
ids = c(1,11:20)
ldx = buscaNas(nas,ids)
pairs(vdat[ldx,ids],diag.panel=panel.hist,
      upper.panel=panel.cor.scale,lower.panel=panel.smooth)

Seguimos con otro grupo

ids = c(1,21:29)
ldx = buscaNas(nas,ids)
pairs(vdat[ldx,ids],diag.panel=panel.hist,
      upper.panel=panel.cor.scale,lower.panel=panel.smooth)

Seguimos con otro grupo

ids = c(1,30:37)
ldx = buscaNas(nas,ids)
pairs(vdat[ldx,ids],diag.panel=panel.hist,
      upper.panel=panel.cor.scale,lower.panel=panel.smooth)

Rules

Seguimos con otro grupo

#