Nothing
corc <-
function(dataframe,varnames,subsampsize,nbsafe=5,mixties=FALSE,nthreads=2)
{
obs=dataframe[varnames]
obs=subset(obs,apply(is.na(obs),1,sum)==0)
nnm=length(obs[,1])
dimension=length(varnames)
obs=as.numeric(unlist(obs))
u=runif(1)*(2^31-1)
nboot=nbsafe*subsampsize^dimension
cop=corc0( obs, nnm, dimension, subsampsize, nboot, u, mixties, nthreads=nthreads )
nbootreel=cop[subsampsize^dimension+2]
ties=cop[subsampsize^dimension+1]
cop=cop[1:subsampsize^dimension]
cop=array(cop, rep(subsampsize,dimension))
cop=aperm(cop,dimension:1)
cop=cop/((nbootreel-ties)*subsampsize)
return(list(cop=cop,ties=ties,nsubsampreal=nbootreel,varnames=varnames,nnm=nnm))
}
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.