# 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