Displaying 1 result from an estimated 1 matches for "invarpdfsdlog".
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...Select Maximum
Input Variable Value:", 0.3))
conditionalPanel(condition = "input.distinvarpdf=='Log Normal'",
textInput("invarpdfmeanlog","Please Select Mean
Log of Input Variable:",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...