Commit df2e83b2 authored by Asquith, William H.'s avatar Asquith, William H.

added the CIGMARAT columns

parent 9fccabc4
......@@ -233,10 +233,12 @@ pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"SITE_GAM_LEV"),
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"SITE_GAM_SIGMAFIT")," -- The standard error for water-level altitude for the LEV_DT by the site GAM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"SITE_SVM_LEV")," -- The estimated water-level altitude for the LEV_DT by the site SVM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"SITE_SVM_SIGMA")," -- The standard error for water-level altitude by the site SVM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"SITE_SVM_CIGMARAT")," -- The ratio of a cross-validated sigma to SITE_SVM_SIGMA by the site SVM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"REG_GAM_LEV")," -- The estimated water-level altitude for the LEV_DT by the region (neighborhood) GAM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"REG_GAM_SIGMAFIT")," -- The standard error for water-level altitude for the LEV_DT by the region (neighborhood) GAM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"REG_SVM_LEV")," -- The estimated water-level altitude for the LEV_DT by the region (neighborhood) SVM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"REG_SVM_SIGMA")," -- The standard error for water-level altitude for the region (neighborhood) SVM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"REG_SVM_CIGMARAT")," -- The ratio of a cross-validated sigma to REG_SVM_SIGMA for the region (neighborhood) SVM"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"EST_LEV_ALT_VA")," -- A weighted-mean estimate from the SITE_GAM_LEV, SITE_SVM_LEV, REG_GAM_LEV and REG_SVM_LEV"))
pozo.header.text <- c(pozo.header.text, paste0(" ",sprintf(fmt,"EST_LEV_ALT_STDEV")," -- A 'weighted' standard deviation of the values used to compute the EST_LEV_ALT_VA"))
pozo.header.text <- c(pozo.header.text, "---------------------------------------------------------------------------------------")
......@@ -263,10 +265,12 @@ pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"SITE_GAM_LE
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"SITE_GAM_RESdivRSE")," -- The site GAM absolute residuals divided by the standard error for the LEV_DT"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"SITE_SVM_LEV")," -- The estimated water-level altitude for the LEV_DT by the site SVM"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"SITE_SVM_RESdivRSE")," -- The site GAM absolute residuals divided by the standard error of the SVM"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"SITE_SVM_CIGMARAT")," -- The ratio of a cross-validated sigma to SITE_SVM_RESdivRSE of the site SVM"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"REG_GAM_LEV")," -- The estimated water-level altitude for the LEV_DT by the region (neighborhood) GAM"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"REG_GAM_RESdivRSE")," -- The region (neighborhood) GAM absolute residuals divided by the standard error for the LEV_DT"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"REG_SVM_LEV")," -- The estimated water-level altitude for the LEV_DT by the region (neighborhood) SVM"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"REG_SVM_RESdivRSE")," -- The region (neighborhood) SVM absolute residuals divided by the standard error of the SVM"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"REG_SVM_CIGMARAT")," -- The ratio of a cross-validated sigma to REG_SVM_RESdivRSE for the region (neighborhood) SVM"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"PSEUDO_WGTMEAN")," -- A weighted-mean estimate from the SITE_GAM_LEV, SITE_SVM_LEV, REG_GAM_LEV and REG_SVM_LEV"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"PSEUDO_STDEV")," -- A 'weighted' standard deviation of the values used to compute the EST_LEV_ALT_VA"))
pseudo.header.text <- c(pseudo.header.text, paste0(" ",sprintf(fmt,"PSEUDO_LEVRES")," -- The residual PSEUDO_WGTMEAN - LEV_ALT_VA"))
......
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