deviance.bess=function(object,...){
n=object$nsample
if(object$family!="bess_gaussian"){
deviance=object$deviance
nulldeviance=object$nulldeviance
out=c(nulldeviance, deviance)
}else{
deviance=n*log(object$mse)
nulldeviance=n*log(object$nullmse)
out=c(nulldeviance, deviance)
}
names(out)=c('nulldeviance',colnames(object$beta))
return(out)
}
deviance.bess.one=function(object,...)
{
n=object$nsample
if(object$family!="bess_gaussian"){
deviance=object$deviance
nulldeviance=object$nulldeviance
out=c(nulldeviance, deviance)
}else{
deviance=n*log(object$mse)
nulldeviance=n*log(object$nullmse)
out=c(nulldeviance, deviance)
}
names(out)=c('nulldeviance','deviance')
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.