SyntaxFix
Write A Post
Hire A Developer
Questions
do.call(rbind, lapply(split(group,as.factor(group$Subject)), function(x) {return(x[which.max(x$pt),])}))
Using Base R
R