Commit 9fccabc4 authored by Asquith, William H.'s avatar Asquith, William H.

using separate test of svm sample size to use the svm

parent 0b3795e2
......@@ -168,8 +168,11 @@ function(tmp_df, cdist, df, use.weights=TRUE, do.logistic=FALSE, ...) {
if(n >= minimum.sample.for.gam) {
gam.psu <- stats_GAM(tmp$LEV_DT, tmp$LEV_ALT_VA, tmp$FRAC_YEAR, # SPEED FIX
gam.name="shadow.gam", east=tmp$PROJ_EASTING, north=tmp$PROJ_NORTHING, weights=weights)
}
if(n >= minimum.sample.for.svm) {
svm.psu <- stats_SVM(tmp$LEV_DT, tmp$LEV_ALT_VA, tmp$FRAC_YEAR, # SPEED FIX
svm.name="shadow.svm", east=tmp$PROJ_EASTING, north=tmp$PROJ_NORTHING)
#print(svm.psu$cigmainfo)
}
}
......
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