CATdemo: CATdemo

##########################################
## create data for CATdemo
##########################################

library(SEAtoDIEE.dataAccess)
setDefaultConnectionSEAToDIEE()

set.seed(1234)

##########################################
## descargo datos de items calibrados y perfil del item
bancoItems <- getItemsCalibrados()
bancoItems <- bancoItems[which(bancoItems$AreaCodigo == 1), ]; # selecciono matematica

s <- sample(1:nrow(bancoItems), 40);
bancoItems <- bancoItems[s, ];

itemInfo <- getItemInfo()
itemInfo <- itemInfo[which(itemInfo$ItemCodigo %in% bancoItems$ItemCodigo), ];

save(itemInfo, file="~/CATdemo/inst/itemInfo.rda")

query <-  paste("SELECT * FROM itemopcion WHERE itemopcion.ItemCodigo IN (\"",
                paste(itemInfo$ItemCodigo, collapse='", "'), "\")", sep='');
ItemOpcion <-  getQuery(query);
ItemOpcion <- ItemOpcion[, c("ItemCodigo", "ItemOpcionCodigo", "ItemOpcionTexto",
                             "ItemOpcionCredito", "ItemOpcionJustificacion")];

save(ItemOpcion, file="~/CATdemo/inst/ItemOpcion.rda")
##########################################
## construyo df de banco de items
bancoItems <- merge(bancoItems, itemInfo[, c("ItemCodigo", "CompetenciaNombre")]);

bancoItems <- bancoItems[which(bancoItems$AreaCodigo %in% areaCodigo), 
                         c("a", "b", "c", "d", "ItemCodigo", "CompetenciaNombre")];

names(bancoItems) <- sub("CompetenciaNombre", "Group", names(bancoItems));
bancoItems <<- droplevels(bancoItems);

save(bancoItems, file="~/CATdemo/inst/bancoItems.rda")

##########################################
## construyo df de respuestas a los items del sub banco
myData <- list() 

for(i in 1:nrow(bancoItems)){
  aux <- getSTD_aplicacionRespuesta(bancoItems$ItemCodigo[i]);

  myData[[i]] <- aux[, c("AplicacionAlumnoCodigo", "ItemCodigo", "AplicacionRespuestaPuntaje", 
                         "AplicacionRespuestaCerrada", "tiempoRespuesta", "AplicacionAlumnoTheta")];
}

myData <- dplyr::bind_rows(myData);

save(myData, file="~/CATdemo/inst/myData.rda")