likelihood_ratio_gam <- function(gam, num, data1, data2, crit) {
denom <- likelihood_gam(gam, data1, data2)
2 * (log(num) - log(denom)) - crit
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.