search for: eeiblast2

...ode[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!! # table(eibnoyoyo,eeibnoyoyo) table(eiblast2,eeiblast2) # Thanks for any help Heberto Ghezzo McGill University Canada