search for: viskod

...12 13 14 15 (10),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 &l...