Nothing
print.goodnessfit.lba.mle.fe <- function(x,
digits=3L,
...){
cat("Likelihood ratio statistic:\n")
mat <- matrix(c(x$G2,
x$proG,
x$G2b,
x$proG1),
ncol=2)
rownames(mat) <- c('G2 value',
'P-value')
colnames(mat) <- c('K budget',
'Baseline')
print.default(mat,
digits=digits,
...)
}
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.