GS
Size: a a a
GS
ЕТ
ЕХ
GS
ЕХ
В
БА
TN
Предупреждение: Error in as.character: cannot coerce type 'closure' to vector of type 'character'server
[No stack trace available]
output$general_linear_model <- renderPrint({
measurevar <- "Type"
groupvars <- input$select_predictors
gen_lin_mod <- glm(data=df_num, as.formula(paste(measurevar, paste(groupvars, collapse=" + "), sep=" ~ ")), family = 'binomial')
summary(gen_lin_mod)
})
uisidebarLayout(
sidebarPanel(
selectInput('select_predictors',
label = 'Define predictors',
choices = c('RI','Na','Mg','Al','Si','Ca','K','Ba','Fe'),
selected = c('RI','Na','Mg','Al','Si','Ca','K','Ba','Fe'),
multiple = TRUE
)
),
mainPanel(
verbatimTextOutput('general_linear_model')
)
)
Ошибка дичайшая, не совсем понимаю где и как :)AA
AA
TN
TN
AM
TN
TN
AM
AM
TN
AM