From c47ff6ff121f9f8da4ca07d5bb13a985e8e0fbda Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Tue, 3 Nov 2020 18:43:22 +0100 Subject: [PATCH] =?UTF-8?q?a=C3=B1adir=20randomizado=201?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- invivos/app.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/invivos/app.R b/invivos/app.R index 89d0ff1..a374a7d 100755 --- a/invivos/app.R +++ b/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") )