Nothing
"samplesize.orig" <-
function(n, p., MC, theta, sigma, m, a, dist.t, dist.x, grouping.mech){
if(missing(dist.x)) {p. - samplesize.or(round(n), MC, theta, sigma, m, a, dist.t, grouping.mech)} else {
p. - samplesize.or(round(n), MC, theta, sigma, m, a, dist.t, dist.x, grouping.mech)}
}
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.