# NOT RUN {
data(vsfuk2012)
vscat(MarriageRate, DivorceRate, vsfuk2012, "scat1", "vsfuk2012", colour=Type)
vhist(FertilityRate, vsfuk2012, "hist1", "vsfuk2012", fill=Type)
vlaunch(vsfuk2012, "main", "vsfuk2012", browse=FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab