Displaying 1 result from an estimated 1 matches for "eeibnoyoyo".
Did you mean:
eibnoyoyo
2005 Jun 20
1
(no subject)
...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(viskode,eibnoyoyo)
table(viskode,eiblast2)
#
# these two tables must be diagonal!!
#...