search for: eibnoyoyo

...des # 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 1:nobs){ if(eibkode[i] %in% last1[[viskode[i]+1]]) eibnoyoyo[i] <- eibkode[i] if(eibkode[i] %in% last2[[viskode[i]+1]]) eiblast2[i] <- eibkode[i] } # # why is that these statements do not work? # eeibnoyoyo <- eeibl...