Nothing
univalboot<-function(y,FP,relip){
k<-size(FP)[2]
dife<-matrix(0,1,k)
for (i in 1:k){
tmp<-cor(FP[,i],y)
tmp<-tmp/sqrt(relip[i])
dife[i]<-tmp
remove(tmp)
}
dife=t(dife)
}
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.