search for: numdis

...th" function to get means. Give this a try: # setup some fake data as an example icd9 <- c(rep("dis1",4), rep("dis2",5), rep("dis3",3)) n <- length(icd9) exposure <- rnorm(n) working <- data.frame(icd9, exposure) # get some useful things together numDis <- length(levels(working$icd9)) diseaseCodes <- levels(working$icd9) # capture results in here results <- data.frame(ICD9code=diseaseCodes, ave_exposure=rep(NA, numDis), ICD9count=rep(NA, numDis), other_ave=rep(NA, numDis), other_Ct=rep(NA, numDis)) for(k in 1:numDis){ working$indic...

Gracias Carlos, Tu codigo es un gran paso en el sentido correcto pero no produce exactamente lo que estoy buscando. Mi "solucion" en stackoverflow <http://stackoverflow.com/questions/31137940/randomly-assign-teachers-to-classrooms-imposing-restrictions/31143808#31143808> produce un data frame `schoolGrade` con 240 observaciones y 7 variables. Mi objetivo es poder generar un data

Perdon por no se lo suficientemente claro :( Tu codigo produce `validPairs` que tiene 7 variables y 360 observaciones. Donde > validPairs[1,] V1 V2 V3 V4 V5 V6 valid 60 e1 g1 c1 e1 g1 c2 Valid indica que un maestro tiene asignado c1 y c2 en la escuela e1 y el grado g1. Correcto? Si es asi, esto es casi lo que queira producir y creo que puedo llegar a donde quiero usando tu codigo de base.

Hola, 0. La falta de 'elegancia' hace que sea mas dificil hacer cambios al codigo. Por ejemplo cambiar n.classrooms <- 4 a n.classrooms <- 20 1. Cuando tengo solo 4 puedo hacer esto: schoolGrade$A <- Teachers$Teacher.ID[1:cuttoff1] schoolGrade$B <- Teachers$Teacher.ID[1:cuttoff1] schoolGrade$C <- Teachers$Teacher.ID[(cuttoff1+1):n.teachers] schoolGrade$D <-