Displaying 1 result from an estimated 1 matches for "qsall".
Did you mean:
isall
2002 Sep 14
0
p.s. regarding stripchart missing-data report (PR#2019)
...cer) # like "cat" in Systat
probtype <- as.factor(as.vector(floor(qs[,2,]/4)))
subj <- as.factor(rep(1:ns,4))
# ---- this makes one array where the third argument is the condition
# conditions are 1-4=verbal, 5-8=percent, 9-12 fraction
# 1-4 are the four cancers, also 5-8 and 9-12
qsall <- array(NA,c(ns,24,12))
for (i in 1:ns) {for (j in 1:4) {condition <- qs[i,2,j]+1
qsall[i,,condition] <- qs[i,,j]}}
qsall[,1,] <- qsall[,2,] %% 4 + 1
qsall[,2,] <- floor(qsall[,2,]/4)
vnames <- c("Cancer","Probtype","time...