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")
               )