Description Usage Arguments Value Author(s) See Also Examples
DNbuilder.glm
provides required scripts to deploy an lm
model object as a dynamic nomogram on a server on the web such as the http://shinyapps.io.
1 2 | DNbuilder.glm(model, data,
clevel = 0.95, covariate = c("slider", "numeric"))
|
model |
a |
data |
dataframe containing the accompanying data |
clevel |
confidence level required |
covariate |
The option to choose the type of covariate(s) input control widget for numeric values. If "slider" (the default) is chosen a shiny application with slider control widgets are used while if "numeric" is chosen numeric values input controls will be displayed. |
A new folder in the current working directory called DynNomapp which contains all the required scripts to deploy this dynamic nomogram on a server on the web such as the http://shinyapps.io. This folder includes ui.R
, server.R
and global.R
script files needed to build the application and dataset.rds
which is the accompanying dataset and a user guide text file called README.txt
which explains how to deploy the app using all these objects.
Amirhossein Jalali, Alberto Alvarez-Iglesias, John Newell
glm, DynNom, DynNom.glm
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ## Not run:
# a generilized linear model
model1 <- glm(Fertility ~ Agriculture + Education + Catholic, data = swiss)
DNbuilder.glm(model1, swiss, clevel = 0.9)
# a logistic regression model
data1 =as.data.frame(Titanic)
model2 <- glm(Survived ~ Age + Class + Sex, data = data1, weights = Freq,
family = binomial("probit"))
DNbuilder(model2, as.data.frame(Titanic), clevel = 0.9)
## End(Not run)
if (interactive()) {
# a poisson regression model
model3 <- glm(event ~ mag + dist + accel, data = attenu, family = poisson)
DNbuilder(model3, attenu, covariate = "numeric")
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.