library(RGtk2); library(gWidgetsRGtk2)
options(guiToolkit = "RGtk2") # may need this for some computers
data(daVich); prVi <- daVich[, 1] ; prCh <- daVich[, 2]
guiApt()
guiApt(2) # tabs on the left sideRun the code above in your browser using DataLab