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