a1=c('USA',9,8,rep(NA,5))
a2=c('CHN',NA,NA,3,NA,3,NA,4)
a3=c('JPN',11,6,7,NA,5,NA,NA)
M=rbind(a1,a2,a3)
colnames(M) <- c('country', '2008', '2009', '2010', '2011', '2012', '2013', '2014')
嗨，我想找到从第2008列到每行的最后一个非na值的长度。预期的结果是： 美国2 CHN 7 JPN 5
这就是我现在所处的位置。我找到了每行的最后一个非NA值的值，但接下来应该怎么做？
ind <- !is.na(M)
tapply(M[ind], row(M)[ind], tail, 1)