import_fs("radiant.model", libs = "nnet", incl = "nnet.formula")
## urls for menu
r_url_list <- getOption("radiant.url.list")
r_url_list[["Linear regression (OLS)"]] <-
list("tabs_regress" = list(
"Summary" = "model/regress/",
"Predict" = "model/regress/predict/",
"Plot" = "model/regress/plot/"
))
r_url_list[["Logistic regression (GLM)"]] <-
list("tabs_logistic" = list(
"Summary" = "model/logistic/",
"Predict" = "model/logistic/predict/",
"Plot" = "model/logistic/plot/"
))
r_url_list[["Multinomial logistic regression (MNL)"]] <-
list("tabs_mnl" = list(
"Summary" = "model/mnl/",
"Predict" = "model/mnl/predict/",
"Plot" = "model/mnl/plot/"
))
r_url_list[["Naive Bayes"]] <-
list("tabs_nb" = list(
"Summary" = "model/nb/",
"Predict" = "model/nb/predict/",
"Plot" = "model/nb/plot/"
))
r_url_list[["Neural Network"]] <-
list("tabs_nn" = list(
"Summary" = "model/nn/",
"Predict" = "model/nn/predict/",
"Plot" = "model/nn/plot/"
))
r_url_list[["Classification and regression trees"]] <-
list("tabs_crtree" = list(
"Summary" = "model/crtree/",
"Predict" = "model/crtree/predict/",
"Plot" = "model/crtree/plot/"
))
r_url_list[["Random Forest"]] <-
list("tabs_rf" = list(
"Summary" = "model/rf/",
"Predict" = "model/rf/predict/",
"Plot" = "model/rf/plot/"
))
r_url_list[["Gradient Boosted Trees"]] <-
list("tabs_gbt" = list(
"Summary" = "model/gbtf/",
"Predict" = "model/gbt/predict/",
"Plot" = "model/gbt/plot/"
))
r_url_list[["Evaluate regression"]] <-
list("tabs_evalreg" = list("Summary" = "model/evalreg/"))
r_url_list[["Evaluate classification"]] <-
list("tabs_evalbin" = list("Evaluate" = "model/evalbin/", "Confusion" = "model/evalbin/confusion/"))
r_url_list[["Collaborative Filtering"]] <-
list("tabs_crs" = list("Summary" = "model/crs/", "Plot" = "model/crs/plot/"))
r_url_list[["Decision analysis"]] <-
list("tabs_dtree" = list(
"Model" = "model/dtree/", "Plot" = "model/dtree/plot/",
"Sensitivity" = "model/dtree/sensitivity"
))
r_url_list[["Simulate"]] <-
list("tabs_simulate" = list("Simulate" = "model/simulate/", "Repeat" = "model/simulate/repeat/"))
options(radiant.url.list = r_url_list)
rm(r_url_list)
## model menu
options(
radiant.model_ui =
tagList(
navbarMenu(
"Model",
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "www_model/style.css"),
tags$script(src = "www_model/js/store.js")
),
"Estimate",
tabPanel("Linear regression (OLS)", uiOutput("regress")),
tabPanel("Logistic regression (GLM)", uiOutput("logistic")),
tabPanel("Multinomial logistic regression (MNL)", uiOutput("mnl")),
tabPanel("Naive Bayes", uiOutput("nb")),
tabPanel("Neural Network", uiOutput("nn")),
"----", "Trees",
tabPanel("Classification and regression trees", uiOutput("crtree")),
tabPanel("Random Forest", uiOutput("rf")),
tabPanel("Gradient Boosted Trees", uiOutput("gbt")),
"----", "Evaluate",
tabPanel("Evaluate regression", uiOutput("evalreg")),
tabPanel("Evaluate classification", uiOutput("evalbin")),
"----", "Recommend",
tabPanel("Collaborative Filtering", uiOutput("crs")),
"----", "Decide",
tabPanel("Decision analysis", uiOutput("dtree")),
tabPanel("Simulate", uiOutput("simulater"))
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.