if (FALSE) {
# replace dir and pack with your own versions!!
# run this example within the RStudio Console for the package 'pack'
dir1<-"~/personal/hearts/hearts_card_game_bayesian_inference/packages/"
dir2<-"inference_packages/inference_packages/"
dir<-sprintf("%s/%s",dir1,dir2)
load_all()
pack<-sprintf("%s/%s",dir,"cardUtils")
out<-sprintf("%s/%s",tempdir(),"runExamplesOut.txt")
l<-retrieveExamplesFromMan(pack)
xnames<-unlist(strsplit(sort(names(l$x)),".Rd"))
sink(out)
on.exit(sink())
suppressMessages(suppressWarnings(try(run_examples(pack))))
sink()
l1<-startExample(out,xnames)
}
Run the code above in your browser using DataLab