pRabovemean<-function(Z,R){ zmean=mean(Z) prmean<-length(R[Z>=zmean])/length(R[R==1])*100 return(prmean) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.