library(shiny)
ui <- fluidPage(
fluidRow(
column(4,
"Distribution 1",
numericInput...("n1", label = "n", value = 1000, min = 1),
numericInput("mean1", label = "µ", value = 0, step...= 0.1),
numericInput("sd1", label = "σ", value = 0.5, min = 0.1, step = 0.1)
),
column(...4,
"Distribution 2",
numericInput("n2", label = "n", value = 1000, min = 1),
numericInput...这个更简单的图让我们更容易理解该应用;分布参数值也仅仅影响对应的输出。代码的重写不仅减少了计算以提升了效率,而且现在当我们改变图形参数时,底层的数据不再会变动。
?