bv8 <- bivariateNormal(.7) ## all views on one page
bv8
update(bv8[3], layout=c(1,1)) ## one panel
shiny::runApp(file.path(system.file(package="HH"), "shiny/bivariateNormal")) ## 3D
shiny::runApp(system.file("shiny/bivariateNormalScatterplot", package="HH")) ## scatterplota
Run the code above in your browser using DataLab