inst/doc/sc-intro.R

### R code from vignette source 'sc-intro.Rnw'

###################################################
### code chunk number 1: sc-intro.Rnw:52-67
###################################################
dir.create('Figures', showWarnings=FALSE)
capture.output(source('Code/ex-compare-samplers.Rfrag'),
  file='Figures/ex-compare-samplers.txt')
capture.output(source('Code/ex-compare-results.Rfrag'),
  file='Figures/ex-compare-results.txt')

pdf('Figures/ex-comparison-plot.pdf', height=4, width=4)
print(comparison.plot(sampler.comparison, base_size=8))
dev.off()

source('Code/ex-metropolis.Rfrag')
source('Code/ex-beta.Rfrag')
source('Code/ex-final.Rfrag')
capture.output(source('Code/ex-final-compare.Rfrag'),
  file='Figures/ex-final-compare.txt')

Try the SamplerCompare package in your browser

Any scripts or data that you put into this service are public.

SamplerCompare documentation built on Sept. 10, 2018, 5:05 p.m.