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