añadir randomizado 1

invivos/app.R

@@ -18,7 +18,8 @@ ui <- fluidPage(
                   selectInput(inputId = "measure_sys", "Sistema de medida", selected = "L-W-D", choices = c("L-W-D","Min-Max","Absorbance")),
                   sliderInput("ncages", "Cajas", min=1, max=10, value=1),
                   downloadButton("downloadData", "Descargar Excel")
-                  )
+                  ),
+                plotOutput("distPlot")
               ),
               tabPanel("Análisis")
               )