inst/paper_generate.R

In frbl/airaR:

system('cd ..;R CMD INSTALL --no-multiarch --with-keep.source AIRA;cd AIRA')
rm(list=ls(pos='.GlobalEnv',all=TRUE),pos='.GlobalEnv')
unloadNamespace('aira')
library('aira')
bootstrap_iterations <<- 200
bust <<- TRUE
# Set the seed everytime, so we can rerun each of the tests individually
set.seed(12345)
print('>>>>>>>>>> Generating example plot')
source('inst/paper_generate_example_plot.R')
set.seed(12345)
print('>>>>>>>>>> Generating sine wave')
source('inst/paper_sine_wave.R')
set.seed(12345)
print('>>>>>>>>>> Generating rosmalen comparision')
source('inst/paper_comparison_rosmalen_aira.R')
set.seed(12345)
print('>>>>>>>>>> Generating advice')
source('inst/paper_generate_advice.R')
set.seed(12345)
print('>>>>>>>>>> Generating example effects')
source('inst/paper_generate_example_effects_HGI.R')
set.seed(12345)
print('>>>>>>>>>> Generating percentage effects')
source('inst/paper_generate_percentage_effects_HGI.R')
set.seed(12345)
print('>>>>>>>>>> Generating table of functions')
source('inst/paper_table_of_functions.R')
print('>>>>>>>>>> Done generating images for paper')