Nothing
contsigseq <- function(x, significance) {
#x <- subset(x, subset = tests == "pvalue", select = value)
x <- x[x$tests == "pvalue", "value"]
x <- x < significance
i <- length(x)
while ( x[i] == TRUE )
i <- i - 1
if ( i == length(x) )
return(NA)
i + 1
}
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.