Nothing
########summary the class "Networks.Fast"
summary.Networks.Fast=function(object, ...){
classification=sapply(1:ncol(object$trace),function(kk) return(mean(object$trace[,kk])))
eids1=which(classification>=0.5)
eids0=which(classification<0.5)
classification[eids1]<-1
classification[eids0]<-0
cat("i. Convergence results:","\n")
print(object$convergence)
cat("\n")
cat("ii. Hyper-Parameter Selection:","\n")
cat("pi0=",unlist(object$HyperParameter$pi0),"rho0=",unlist(object$HyperParameter$rho0),"rho1=",unlist(object$HyperParameter$rho1),"\n")
cat("\n")
cat("iii. Classification Table:","\n")
print(table(classification))
}
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.