Nothing
testlik.fun <-
function(ModG,ModR)
{
difdev<-2*(-ModG@min+ModR@min)
gl<-ModG@npar-ModR@npar
pv<-1-pchisq(difdev,gl)
cat(fill=TRUE)
cat('General Model (hypothesis H1): ',ModG@tit, fill=T)
cat('Reduced Model (hypothesis H0): ',ModR@tit, fill=T)
cat('ML ratio test statistic: ', round(difdev,2),fill=TRUE)
cat('P-value:', round(pv,3),fill=TRUE)
cat(fill=TRUE)
return(list(pv=pv,ModG=ModG,ModR=ModR))
}
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.