Displaying 1 result from an estimated 1 matches for "invarpdfvec".
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...ble:",0.18),
textInput("invarpdfsdlog","Please Select
Standard Deviation Log of Input Variable:", 0.3))
}})
output$MonteCarlo <- renderPlot({
set.seed(1)
n <- input$sampleSize
if(distinvarpdf=="Normal"){
invarpdfVec <- rnorm(n,mean = as.numeric(input$invarpdfmean),sd=
as.numeric(input$invarpdfsd))
}
if(distinvarpdf=="Uniform"){
invarpdfVec <- runif(n,min = as.numeric(input$invarpdfmin),max =
as.numeric(input$invarpdfmax))
}
if(distinvarpdf=="Triangular"){...