I am using a data set and when implementing the lm function I get an error with the arguments but I can't find the error
output$uimodLm <- renderUI({
selectInput("selecLm", "Selección atributo a replazar",
tipo(), multiple = F)
})
output$uimodLmY <- renderUI({
selectInput("selecLmY", "Selección atributo para regresion",
tipo(), multiple = F)
})
###----------render slider minimo
output$uisliderLm <- renderUI({
sliderInput("sliderLm", label = h3("Seleccione el rango"), step=1, min = 1,
max = nrow(archivo3()), value = c(1,max))
})
####------------ render CAMBIAR NAS POR MANUAL
archivo32 <- reactive({
a <- archivo3()
columnaNum <- input$selecLm
cambioNum <- input$num
regre <- lm(!!sym(input$selecLm) ~ !!sym(input$selecLmY), data = a)
predict(regre, a)
contaNa <- which.na(a$estrato)