Nothing
sort.cpg <-
function(x,decreasing,...) {
sorted.p<-order(x$results$P.value)
x$results<-x$results[sorted.p,]
if(!is.factor(x$indep)) {
x$coefficients<-x$coefficients[sorted.p,]
}
x$FDR.sig<-x$FDR.sig[order(x$FDR.sig$P.value),]
x$Holm.sig<-x$Holm.sig[order(x$Holm.sig$P.value),]
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.