## devtools::install_github("danbelsky/DunedinPoAm38")
library("DunedinPoAm38")
model <- as.list(DunedinPoAm38::mPOA_Models)
coefs <- model$model_weights$DunedinPoAm_38
intercept <- model$model_intercept$DunedinPoAm_38
model <- data.frame(pred.var=c("intercept",names(coefs)),
coef=c(intercept, coefs))
write.csv(model, "coefs.csv", row.names=F)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.