Commit 8efb32c0 authored by Marco De Lucia's avatar Marco De Lucia
Browse files

fixed TrainMultiple names

parent 965132d3
......@@ -28,11 +28,13 @@ Train(c("PolyMARS", "glmStepAIC", "MARS"),
a <- SelectedSurrogate(des)
SelectedMethods <- GetModelNames(model_list)
names(SelectedMethods) <- colnames(res)
par(mfrow=c(4,2))
for (i in colnames(des)) {
plot(res[,..i][[1]], a[,i],"p",pch=3, main=i,
plot(res[,..i][[1]], a[,i],"p",pch=3, main=paste(i,SelectedMethods[i], sep=", "),
xlab="Full physics", ylab="Surrogate")
abline(0,1,lty="dashed",col="grey")
}
Supports Markdown
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