search for: nsubs_p

...(rep(c(1, 2), c(nsubs_c*3, nsubs_c*3)),2), sep="")), y = factor(paste("y", rep(rep(c(1:3), rep(c(nsubs_c),3)),4), sep="")), row.names = NULL) # set up matrix for patients pati.mat <- c (3,1,4,0,2,3,2,2,5,1,1,5,5,0,3,1,1,2,3,1,4,0,1,4,1,1,4,1,0,3,0,2,4,2,1,4 ,) nsubs_p <- length(pati.mat)/12 pat.mat <- matrix(pati.mat, nsubs_p, 12, T) pat.mul <- cbind.data.frame(subj=1:nsubs_p, conds=factor(rep(2,rep (nsubs_p,1))), pat.mat) dimnames(pat.mul)[[2]] <- c("subj","gp", "w1x1y", "w1x1y2", "w1x1y3", "...