SyntaxFix
Write A Post
Hire A Developer
Questions
Not perfect but close:
newcol<-sapply(rownames(t), function(rn){z[match(rn, rownames(z)), 5]}) cbind(data.frame(t), newcol)