Commit d14ed4dc authored by Janis Jatnieks's avatar Janis Jatnieks
Browse files

Update surrogate experiment controller example

parent 3f27e3e2
......@@ -28,26 +28,24 @@ Main(c("MARS","MARS3","PolyMARS","PolyMARS3","mda_p01","polymars_p01","brnn","qr
,output_data = OUTtable
,seed = 105
# use of parallelization for training, validation and preprocessing steps
,train_para = T, run_para = F, preproc_para = T
,preproc_para = T, train_para = T, run_para = F
,selection_criteria = "RMSE"
# drops any such named column from input as well as output
,exclude_columns = c("Head")
# makes sure concentration values are positive
,allow_neg_cols= c("Pressure","H*","O*")
# allow some columns to have negative values
,allow_neg_cols= T
# assumes this will be passed in from the model coupling to the Surrogate at run-time
,external = c("Time","Pressure","MatUnsatPorosity","Saturation","Temp","MatHeatPorosity","MatFlowStorativity","UD_p4f")
# dump error tables
,write_full_residuals = F
# run caret tuning routines
,tuner = T
# use this much for training
,training_samples = 0.6
,training_samples = 0.7
# do a quick check the resulting surrogate model actually runs
qtestin <- as.matrix( head(INtable,1000)
qtestin <- as.matrix( head(INtable,1000)
qres <-data.table( SelectedSurrogate(qtestin) )
cat ("\n\n")
print (head( qres )
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment