Displaying 1 result from an estimated 1 matches for "eiblast2".
2005 Jun 20
1
(no subject)
...tions 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 <- eeiblst2 <- rep(0,nobs)
eeibnoyoyo <- ifelse(eibkode %in% last1[viskode+1],eibkode,eibkode+16)
eeiblast2 <- ifelse(eibkode %in% last2[viskode+1],eibkode,eibkode+16)
#
table(viskode,eibkode)
table(v...