Nothing
best2nullLRT <- function (gmyc) {
chi.sq <- abs(2 * (max(gmyc$likelihood) - gmyc$likelihood[1]))
dfs <- (dim(gmyc$parameters)[2] + length(gmyc$threshold.time[[which.max(gmyc$likelihood)]])) - 1
prob <- 1 - pchisq(chi.sq, dfs)
list(chi.sq = chi.sq, df = dfs, probability = prob)
}
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.