inst/global.R

In chi2labs/CATdemo: CATdemo

library(shiny)
library(CATdemo)

library(ggplot2)
library(plyr)
library(catR)

load(system.file("bancoItems.rda", package = "CATdemo"));
areaCodigo <<- 1
summaryPuntaje <- calculateHabilidadesMediasPorGrado();

myTheta <<- mean(summaryPuntaje$meanHability);
myCatLength <<- 10;