Nothing
correction.entropy <-function(q,p,long,iicc){
Prob<-as.numeric(iicc$background)
Herror<-sderror<-VAR<-vector("numeric",p)
out<-.C("correctionentropy",
nrowTFBS=as.double(p),
q=as.double(q),
Prob=as.double(Prob),
classentropy=as.character(iicc$classentropy),
Herror=double(p),
VAR=double(p))
VAR<-out$VAR
Herror<- out$Herror
sderror<-(long*VAR)^(1/2)
resultat<-new("correction")
slot(resultat,"Herror")<-Herror
slot(resultat,"sderror")<-sderror
return(resultat)
}
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.