Displaying 1 result from an estimated 1 matches for "eibkode".
2005 Jun 20
1
(no subject)
...),c(11,10),(12),c(13,12),c(14,12),c(15,14,12))
#
# simulate the visits
#
visit <- rbinom(nobs,1,0.7)
eib <- visit
#
# simulate a positive test at a given visit
#
eib <- ifelse(runif(nobs) > 0.7,visit,0)
#
# create the codes
#
viskode <- matrix(visit,ncol=4) %*% c(1,2,4,8)
eibkode <- matrix(eib,ncol=4) %*% c(1,2,4,8)
#
# this is the brute force method, slow, of computing the Results according to
# the 2 definitions above. Add 16 to the test kode to signify YoYos, Exactly
# 16 will be the negatives
#
eibnoyoyo <- eibkode+16
eiblst2 <- eibkode+16
for(i in...