Skip to content

Instantly share code, notes, and snippets.

@jcliberatol

jcliberatol/prueba.R

Created November 4, 2015 22:24
Show Gist options
  • Save jcliberatol/49b3517e7bab37045bfb to your computer and use it in GitHub Desktop.
Save jcliberatol/49b3517e7bab37045bfb to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. jcliberatol created this gist Nov 4, 2015.
    13 changes: 13 additions & 0 deletions prueba.R
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,13 @@
    library(IRTpp)
    library(FactoMineR)
    testt = simulateTestMD(items = 100,individuals = 1000,dims = 3,clusters = 4,seed = 10)
    test = testt$test
    upper = testt$clustinit
    lower = testt$clustinit + testt$clusters -1
    ##Estos son los clusters para fix.items
    fixedclusts = c(t(matrix(c(upper,lower),nrow = length(testt$clusters))))
    fi = fix.items(test,fixedclusts)
    ##Items reportados por fix.items.
    fi
    ##Items principales de la simulacion.
    testt$clustinit