search for: cuttoff1

...ape schoolGrade <- expand.grid(grade = c(3,4,5), School.ID = paste0(gen.names(n = n.schools, which.names = "last"), ' School')) # assign each of T teachers to 2 classrooms within a single school and grade cuttoff1<-n.teachers/2 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 <- Teachers$Teacher.ID[(cuttoff1+1):n.teachers] library(tidyr) schoolGrade <- gather(schoolG...

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 <- Teachers$Teacher.ID[(cuttoff1+1):n.teachers] Pero si tengo 20 tendria que escribir 20 lines en lugar de 4 y calcular los cutoff para cada linea. Con 20 classroo...

...la, >> >> 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 <- Teachers$Teacher.ID[(cuttoff1+1):n.teachers] >> >> Pero si tengo 20 tendria que escribir 20 lines en lugar de 4 y calcular...

...9;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 <- Teachers$Teacher.ID[(cuttoff1+1):n.teachers] >>>> >>>> Pero si tengo 20 tendria que es...