Nothing
maxmean.op <-
function(zj){
m=length(zj)
sc.po = sum( ifelse(zj>=0, zj, 0)) /m
sc.ne = sum( ifelse(zj<0, zj, 0) ) /m
sc = c(sc.po, sc.ne)
return( tn=sc[which.max( abs(sc) ) ] )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.