findmax<-function(probs,i){
answer<-2
for(j in 2:dim(probs)[2]){
if(probs[i,j]>probs[i,answer]){answer<-j}
}
return(answer)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.