Displaying 1 result from an estimated 1 matches for "rightan".
Did you mean:
rightsn
2002 Sep 14
0
p.s. regarding stripchart missing-data report (PR#2019)
...derst <- as.vector(qs[,23,])
rm(qs)
group <- as.factor((1-is.na(nprob.m[,1:3])) %*% c(1,2,3))
#--------------------
# NEW SECTION 8/6/02
# We need both matrix and vector forms of each deviation score
# New names: deviat
#log odds transformation of nprob to stretch out differences near zero.
rightans.m <- matrix(c(25,.03,10,60),ns,12,byrow=T)
rightans <- rep(c(25,.03,10,60),rep(ns,4))
logo <- function(x) log(x/(100-x))
trim <- function(x) x+(.0001)*(x<.0001)-(.0001)*(x==100)
deviat.logo.m <- logo(trim(nprob.m))-logo(rightans.m)
deviat.logo <- logo(trim(nprob))-logo(rightan...