Ingresar aun numero entre un rango de uno a mil codigo de la interfax

ui<- fluidPage( headerPanel(“Noveno curso”), sliderInput(input=“num”, label=“Ingrese un numero ennte uno y 1000” ,value=25 ,min=1 ,max =100), plotOutput(“hist”)

)

codigo del servidor

server<-function(input, output) { output\(hist<-renderPlot( {hist(rnorm(input\)num))}

) }

Sacando el histograma segun el numero selecionado como dato de entradda

## Warning: package 'shiny' was built under R version 3.5.3

## 
## Listening on http://127.0.0.1:8741

##conclusion: se ingreso el numero 25 y se muestra el hist.