coef.panelNNET <- function(obj, rescale = TRUE){
parm <- obj$parlist$beta_param
if (rescale == TRUE){
parm <- parm/attr(obj$param, "scaled:scale")
}
if (!is.null(obj$vcs)){
se <- lapply(obj$vcs, function(x){
se <- sqrt(diag(x))[1:length(parm)]
if (rescale == TRUE){
se <- se/attr(obj$param, "scaled:scale")
}
return(se)
})
rn <- names(se)
se <- t(matrix(unlist(se), length(se[[1]])))
colnames(se) <- colnames(obj$param)
rownames(se) <- rn
} else {
se <- 'No parameter covariance matrix in fitted model!'
}
return(list(parm = parm, se = se))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.