R/findmax.R

findmax<-function(probs,i){
 answer<-2
 for(j in 2:dim(probs)[2]){
  if(probs[i,j]>probs[i,answer]){answer<-j}
 }
 return(answer)
}
vnminin/rbrothers documentation built on May 3, 2019, 6:38 p.m.