ViewHelp <- function()
{
helpfile<-paste(find.package("dgmb",verbose = verbose))
helpfile<-substring(helpfile,1,nchar(helpfile))
helpfile<-paste(helpfile,"/docs/dgmb-manual.pdf")
helpfile<-sub("dgmb ","dgmb", helpfile)
cat ("Viewing dgmb help...if nothing happens, you should write help(dgmb) in R console
")
browseURL(helpfile)
}Run the code above in your browser using DataLab