AS.select(obs, param, sumstats, obspar=NULL, abcmethod=abc, grid=10, inturn=FALSE,
limit=ncol(sumstats), allow.none=TRUE, do.err=FALSE, final.dens=FALSE,
errfn=rsse,...)
obspar
is supplied and do.err=TRUE
).nacc x npar x ndatasets
giving the posterior sample for each observed dataset. Not returned if final.dens=FALSE
.AS.test
# load example data:
data(coal)
data(coalobs)
param<-coal[,2]
simstats<-coal[,4:6]
# use matrix below just in case to preserve dimensions.
obsstats<-matrix(coalobs[1,4:6],nrow=1)
# example of AS.select:
tmp<-AS.select(obsstats, param, simstats,tol=.1,method="neuralnet",nument=5,
allow.none=FALSE,inturn=TRUE)
tmp$best
Run the code above in your browser using DataLab