Nothing
MargnPw.bin.2arm <-
function(bug.res, cut){
TF <- (bug.res > cut)
pw.indv <- apply(TF, 2, mean)
pw.indv
}
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.