Description Usage Arguments Details Value Author(s) See Also Examples
View source: R/Resume.R2GUESS.R
The Resume.R2GUESS
function will resume a run
that was interrupted due to computation time exceeding the
user-defined time limit.
1 | Resume.R2GUESS(x, time.limit=NULL)
|
x |
an |
time.limit |
a numerical value specifying the maximum computing
time (in hours) for the continuation of the run. If the run exceeds
that value, modelling options, parameters value, state of the
pseudo random number generator, and state of each chain will be
saved to enable to resume the run exactly at the same point it was
interrupted (using |
The Resume.R2GUESS
function will continue a run that
was interrupted due to computation time exceeding the user-defined
time limit. It will compile data, input files and parameters that
are required for running GUESS code. Additional iterations
required to complete the run will be appended to the existing
history files, and posterior calculations (MPPI, MPP, and the list
of best models) will be added to the ESS
object. The function
will use the same pseudo-random number generator as the one used for
the initial run, and will initialise it at the state it was at the
end of the original run.
If the resuming run completes the run, it will return the complete
ESS
object (compiling information listed in
as.ESS.object
function).
Benoit Liquet, b.liquet@uq.edu.au,
Marc Chadeau-Hyam m.chadeau@imperial.ac.uk,
Leonardo Bottolo l.bottolo@imperial.ac.uk,
Gianluca Campanella g.campanella11@imperial.ac.uk
Extend.R2GUESS, Postprocess.R2GUESS, as.ESS.object
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | ## Not run:
## First we are creating a run which has been not finished in 1 hour
path.input <- system.file("Input", package="R2GUESS")
path.output <- tempdir()
path.par <- system.file("extdata", package="R2GUESS")
file.par.Hopx <- "Par_file_example_Hopx.xml"
print(paste(path.par,file.par.Hopx,sep=""))
root.file.output.Hopx <- "Example-GUESS-Y-Hopx"
label.Y <- c("ADR","Fat","Heart","Kidney")
data(data.Y.Hopx)
data(data.X)
data(MAP.file)
modelY_Hopx<-R2GUESS(dataY=data.Y.Hopx,dataX=data.X,choice.Y=1:4,
label.Y=label.Y,,MAP.file=MAP.file,file.par=file.par.Hopx,
file.init=NULL,file.log=NULL,root.file.output=root.file.output.Hopx,
path.input=path.input,path.output=path.output,path.par=path.par
,path.init=NULL,nsweep=510000,burn.in=10000,Egam=5,Sgam=5,top=100
,history=TRUE,time=TRUE,nb.chain=3,conf=0,cuda=FALSE,time.limit=1)
modelY_Hopx_resume <- Resume.R2GUESS(modelY_Hopx)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.