Nothing
print.Sprop <-
function(x,...) {
cat('\nSprop object: Sample proportion estimate\n')
if(x$call$N == Inf){ cat("Without ")}
else{ cat("With ")}
cat("finite population correction: N =",x$call$N,"\n\n")
cat("Proportion estimate: ",round(x$p,4),"\n" )
cat("Standard error: ",round(x$se,4),"\n\n")
if(x$call$N < Inf){
cat(100 * x$call$level,"% approximate confidence interval: \n",sep="")
cat(" proportion: [",round(x$ci$approx[1],4),",",round(x$ci$approx[2],4),"]\n",sep="")
cat(" number in population: [",x$nr$approx[1],",",x$nr$approx[2],"]\n",sep="")
cat(100 * x$call$level,"% exact hypergeometric confidence interval: \n",sep="")
cat(" proportion: [",round(x$ci$exact[1],4),",",round(x$ci$exact[2],4),"]\n",sep="")
cat(" number in population: [",x$nr$exact[1],",",x$nr$exact[2],"]\n",sep="")
}
else{
cat(100 * x$call$level,"% asymptotic confidence interval:\n",sep="")
cat(" proportion: [",round(x$ci$bin[1],4),",",round(x$ci$bin[2],4),"]\n",sep="")
cat(100 * x$call$level,"% asymptotic confidence interval with correction by Wilson:\n",sep="")
cat(" proportion: [",round(x$ci$ac[1],4),",",round(x$ci$ac[2],4),"]\n",sep="")
cat(100 * x$call$level,"% exact confidence interval by Clopper-Pearson:\n",sep="")
cat(" proportion: [",round(x$ci$cp[1],4),",",round(x$ci$cp[2],4),"]\n\n",sep="")
}
invisible(x)
}
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.