Nothing
`rowTrendStats` <-
function(X, y, use.n=NULL, add.pval=TRUE){
M <- rowCors(X, y, trendStat=TRUE, use.n=use.n)
if(!add.pval)
return(M)
rawp <- pchisq(M, 1, lower.tail=FALSE)
structure(list(stats=M, rawp=rawp))
}
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.