Nothing
##### internal functions from Dr. Tibshirani's software package GSA
coxfunc <-
function(x, y, censoring.status)
{
junk <- coxscor(x, y, censoring.status)
scor<-junk$scor
sd <- sqrt(coxvar(x, y, censoring.status, coxstuff.obj=junk$coxstuff.obj))
tt <- scor/sd
return(list(tt = tt, numer = scor, sd = sd ))
}
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.