inst/shinyoptiPlus/global.R

In anaislaot/optiPlus: Launch model with shiny

library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(rAmCharts)
library(ggplot2)
library(DT)
library(data.table)
library(optiPlus)

# data <- diamonds
# data <- as.data.frame(diamonds)
# data <- data[1:100, ]

source("shinyUtils.R")

# data <- mtcars

# data <- iris

# data <- read.csv("C:/Anais/Projets stat/mycotox/Code/Data/base_FUMO.csv", sep =";", dec = ".", header = TRUE)
# data$FUMO <- as.factor(data$FUMO)
# data <- na.omit(data)

# library(lasso2)
# data(Prostate)

# library(lasso2)
# data(Prostate)
# data <- Prostate
# data$svi <- as.factor(data$svi)