library(tidyverse)
#> Loading tidyverse: ggplot2
#> Loading tidyverse: tibble
#> Loading tidyverse: tidyr
#> Loading tidyverse: readr
#> Loading tidyverse: purrr
#> Loading tidyverse: dplyr
#> Conflicts with tidy packages ----------------------------------------------
#> filter(): dplyr, stats
#> lag():    dplyr, stats
library(mvpart)
# source("C:/Users/dora/Downloads/mvpart_1.1-1/mvpart/R/mvpart.R")

Installation

The mvpart package is no longer active on CRAN but can be installed from the archives.

# install.packages("devtools")
devtools::install_github("cran/mvpart")

Or download a realease from https://github.com/cran/mvpart/releases and install it with something like:

install.packages(
  "C:/Users/dora/Desktop/mvpart-1.6-2.tar.gz", 
  repos = NULL, type = "source"
)

Some people reported installation issues (https://goo.gl/oDjjz8).

Data

Overview data

2 files attached:

  • KC3spp20 – is the species matrix of abundance in each of 600 quadrats
# See a few columns from the beginning, middle and end
KC3spp20 %>% dplyr::select(1:2, 250:252, 583:585)
#> # A tibble: 600 x 8
#>    ACMEAC ACTEJA GARCPA GARCRO GARCS1 ZIZYAN ZIZYCA ZIZYXX
#>     <int>  <int>  <int>  <int>  <int>  <int>  <int>  <int>
#>  1      0      2      0      0      0      0      0      0
#>  2      0      2      0      0      0      0      0      0
#>  3      0      0      0      0      0      0      0      0
#>  4      0      0      0      0      0      0      0      0
#>  5      0      0      0      0      1      0      0      0
#>  6      0      0      0      0      0      0      0      0
#>  7      0      0      0      0      0      0      0      0
#>  8      0      3      0      0      0      0      0      0
#>  9      0      0      0      0      0      0      0      0
#> 10      0      0      0      0      0      0      0      0
#> # ... with 590 more rows

# For a cleaner output for interpretation, normalized tree spp data to a mean of
# 0 and standard deviation of 1 (https://goo.gl/zDLdMi).
  • kc.hab – a bunch of habitat variables for the same 600 quadrats
kc.hab %>% dplyr::glimpse()
#> Observations: 600
#> Variables: 17
#> $ RB_NO3   <dbl> 38.11836, 37.64459, 37.84317, 35.11749, 31.03317, 29....
#> $ RB_NH4   <dbl> 14.024729, 12.900971, 11.899093, 11.075753, 10.416937...
#> $ RB_PO4   <dbl> 0.2903664, 0.2953065, 0.3118399, 0.3349684, 0.3549544...
#> $ Al       <dbl> 0.2653886, 0.2901095, 0.3443849, 0.4109257, 0.4416475...
#> $ pH_water <dbl> 5.706885, 5.682961, 5.605031, 5.584619, 5.643615, 5.6...
#> $ Na       <dbl> 4.24959e-06, 3.92321e-06, 3.17810e-06, 1.05188e-06, 2...
#> $ Mn       <dbl> 0.02355666, 0.02396195, 0.02802107, 0.02861206, 0.023...
#> $ Mg       <dbl> 0.4802953, 0.4917929, 0.5061534, 0.5033838, 0.4756754...
#> $ K        <dbl> 0.1665143, 0.1708170, 0.1873153, 0.1976758, 0.1931228...
#> $ Fe       <dbl> 9.70257e-06, 1.16542e-05, 1.41739e-05, 1.74376e-05, 2...
#> $ Ca       <dbl> 1.0141365, 1.0520401, 1.0804347, 0.9086867, 0.6853189...
#> $ BS       <dbl> 0.8506632, 0.8397293, 0.8163130, 0.7863761, 0.7639926...
#> $ ECEC     <dbl> 2.048155, 2.053425, 2.160907, 2.129814, 1.944862, 1.7...
#> $ Bray_P   <dbl> 4.888940, 4.889003, 4.965516, 4.949387, 4.768834, 4.6...
#> $ meanelev <dbl> 152.6194, 149.7764, 147.2560, 145.9847, 142.9219, 137...
#> $ convex   <dbl> 0.3956250, -0.5323750, -1.9500000, -0.1047500, 0.6016...
#> $ slope    <dbl> 9.402307, 11.837283, 11.064807, 11.843923, 16.917556,...

Results

In this section, we first explore one result in detail; then we’ll re-run the exact same model twice more and we’ll compare the results.

Build and run the model

abundance <- data.matrix(KC3spp20)
environmental_variables <- kc.hab

formula <- abundance ~ RB_NO3 + RB_NH4 + RB_PO4 + Al + pH_water + Na + Mn + 
  Mg + K + Fe + Ca + BS + ECEC + Bray_P + meanelev + convex + slope

# Set a new seed for random numbers to ensure results are reproducible
set.seed(1221)

# See `?mvpart()` for argument details
mvpart_run1 <- mvpart(
  form = formula, 
  data = environmental_variables,
  all.leaves = TRUE,  # annotate all nodes
  rsq = TRUE,  # give "rsq" plot
  pca = TRUE,  # plot PCA of group means and add species and site information
  wgt.ave.pca = TRUE  # plot weighted averages acorss sites for species
)
#> rpart(formula = form, data = data)
#> 
#> Variables actually used in tree construction:
#> [1] Bray_P   BS       Fe       meanelev pH_water RB_PO4  
#> 
#> Root node error: 483776/600 = 806.29
#> 
#> n= 600 
#> 
#>         CP nsplit rel error  xerror     xstd
#> 1 0.083600      0   1.00000 1.00355 0.040850
#> 2 0.025010      2   0.83280 0.85445 0.035633
#> 3 0.021388      3   0.80779 0.85882 0.035499
#> 4 0.021148      4   0.78640 0.84342 0.035072
#> 5 0.021020      5   0.76525 0.84155 0.035058
#> 6 0.020172      6   0.74423 0.82880 0.034711
#> 7 0.014623      7   0.72406 0.80000 0.033189
#> May not be applicable for this method

Model details

Structure

str(mvpart_run1)
#> List of 13
#>  $ frame    :'data.frame':   15 obs. of  9 variables:
#>   ..$ var       : Factor w/ 18 levels "<leaf>","RB_NO3",..: 4 16 13 1 1 6 1 1 11 16 ...
#>   ..$ n         : int [1:15] 600 119 47 18 29 72 69 3 481 154 ...
#>   ..$ wt        : num [1:15] 600 119 47 18 29 72 69 3 481 154 ...
#>   ..$ dev       : num [1:15] 483776 128994 43170 12243 20580 ...
#>   ..$ yval      : num [1:15] 0.276 0.254 0.226 0.204 0.241 ...
#>   ..$ complexity: num [1:15] 0.0836 0.02501 0.02139 0.0063 0.00854 ...
#>   ..$ ncompete  : num [1:15] 4 4 4 0 0 4 0 0 4 4 ...
#>   ..$ nsurrogate: num [1:15] 0 0 0 0 0 0 0 0 0 0 ...
#>   ..$ yval2     : num [1:15, 1:585] 0.0567 0 0 0 0 ...
#>  $ where    : int [1:600] 14 14 11 11 11 11 11 11 11 11 ...
#>  $ call     : language mvpart(form = formula, data = environmental_variables, all.leaves = TRUE,      rsq = TRUE, pca = TRUE, wgt.ave.pca = TRUE)
#>  $ terms    :Classes 'terms', 'formula'  language abundance ~ RB_NO3 + RB_NH4 + RB_PO4 + Al + pH_water + Na + Mn + Mg +      K + Fe + Ca + BS + ECEC + Bray_P + meanelev + convex + slope
#>   .. ..- attr(*, "variables")= language list(abundance, RB_NO3, RB_NH4, RB_PO4, Al, pH_water, Na, Mn, Mg,      K, Fe, Ca, BS, ECEC, Bray_P, meanelev, convex, slope)
#>   .. ..- attr(*, "factors")= int [1:18, 1:17] 0 1 0 0 0 0 0 0 0 0 ...
#>   .. .. ..- attr(*, "dimnames")=List of 2
#>   .. .. .. ..$ : chr [1:18] "abundance" "RB_NO3" "RB_NH4" "RB_PO4" ...
#>   .. .. .. ..$ : chr [1:17] "RB_NO3" "RB_NH4" "RB_PO4" "Al" ...
#>   .. ..- attr(*, "term.labels")= chr [1:17] "RB_NO3" "RB_NH4" "RB_PO4" "Al" ...
#>   .. ..- attr(*, "order")= int [1:17] 1 1 1 1 1 1 1 1 1 1 ...
#>   .. ..- attr(*, "intercept")= int 1
#>   .. ..- attr(*, "response")= int 1
#>   .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
#>   .. ..- attr(*, "predvars")= language list(abundance, RB_NO3, RB_NH4, RB_PO4, Al, pH_water, Na, Mn, Mg,      K, Fe, Ca, BS, ECEC, Bray_P, meanelev, convex, slope)
#>   .. ..- attr(*, "dataClasses")= Named chr [1:18] "nmatrix.585" "numeric" "numeric" "numeric" ...
#>   .. .. ..- attr(*, "names")= chr [1:18] "abundance" "RB_NO3" "RB_NH4" "RB_PO4" ...
#>  $ cptable  : num [1:7, 1:5] 0.0836 0.025 0.0214 0.0211 0.021 ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:7] "1" "2" "3" "4" ...
#>   .. ..$ : chr [1:5] "CP" "nsplit" "rel error" "xerror" ...
#>  $ splits   : num [1:35, 1:5] 600 600 600 600 600 119 119 119 119 119 ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:35] "RB_PO4" "RB_NO3" "Fe" "Bray_P" ...
#>   .. ..$ : chr [1:5] "count" "ncat" "improve" "index" ...
#>  $ method   : chr "mrt"
#>  $ dissim   : chr "euclidean"
#>  $ parms    : num 0
#>  $ control  :List of 9
#>   ..$ minsplit      : num 5
#>   ..$ minbucket     : num 2
#>   ..$ cp            : num 0.01
#>   ..$ maxcompete    : num 4
#>   ..$ maxsurrogate  : num 0
#>   ..$ usesurrogate  : num 2
#>   ..$ surrogatestyle: num 0
#>   ..$ maxdepth      : num 30
#>   ..$ xval          : num 10
#>  $ functions:List of 3
#>   ..$ summary:function (yval, dev, wt, ylevel, digits)  
#>   ..$ text   :function (yval, dev, wt, ylevel, digits, n, use.n)  
#>   ..$ bar    :function (yval2)  
#>  $ y        : int [1:600, 1:585] 0 0 0 0 0 0 0 0 0 0 ...
#>   ..- attr(*, "dimnames")=List of 2
#>   .. ..$ : chr [1:600] "1" "2" "3" "4" ...
#>   .. ..$ : chr [1:585] "ACMEAC" "ACTEJA" "ACTES1" "ACTIAN" ...
#>  $ ordered  : Named logi [1:17] FALSE FALSE FALSE FALSE FALSE FALSE ...
#>   ..- attr(*, "names")= chr [1:17] "RB_NO3" "RB_NH4" "RB_PO4" "Al" ...
#>  - attr(*, "class")= chr "rpart"

Full summary

summary(mvpart_run1)
#> Call:
#> mvpart(form = formula, data = environmental_variables, all.leaves = TRUE, 
#>     rsq = TRUE, pca = TRUE, wgt.ave.pca = TRUE)
#>   n= 600 
#> 
#>           CP nsplit rel error    xerror       xstd
#> 1 0.08360031      0 1.0000000 1.0035530 0.04085045
#> 2 0.02501045      2 0.8327994 0.8544490 0.03563295
#> 3 0.02138814      3 0.8077889 0.8588180 0.03549908
#> 4 0.02114811      4 0.7864008 0.8434223 0.03507165
#> 5 0.02102028      5 0.7652527 0.8415517 0.03505806
#> 6 0.02017183      6 0.7442324 0.8288001 0.03471097
#> 7 0.01462291      7 0.7240606 0.7999995 0.03318905
#> 
#> Node number 1: 600 observations,    complexity param=0.08360031
#>   Means=0.05667,0.205,0.01,0.1,0.03833,0.02333,0.001667,0.9433,0.035,0.2817,0.03667,0.6617,0.7117,0.006667,0.3183,0.065,0.2,0.3733,0.1367,0.085,0.02333,0.48,0.006667,0.2767,0.445,0.02833,0.1633,0.09333,0.125,0.001667,0.003333,0.09,0.6517,0.1217,0.005,0.57,0.08167,0.01667,0.003333,1.782,0.08333,0.015,1.227,0.4283,0.008333,1.035,0.1667,0.1633,0.005,0.01667,0.19,0.2133,0.02667,1.297,0.185,0.04833,0.01167,1.115,0.1617,0.005,0.3133,0.015,0.03167,0.015,0.01333,0.015,0.003333,0.02833,0.003333,0.055,0.02833,0.015,0.225,0.1583,1.608,0.2917,2.672,0.6367,0.1083,0.11,0.08333,0.1133,0.085,0.36,0.001667,1.738,0.01667,0.003333,1.578,0.001667,0.1483,0.1267,0.06333,0.1067,0.01333,1.068,0.001667,0.045,0.1083,0.2133,0.001667,0.3217,0.015,0.003333,0.03667,0.175,0.07,0.065,0.025,0.005,0.02,0.02,0.001667,0.001667,0.045,0.003333,0.005,0.006667,0.04,0.4867,0.7167,0.015,0.1267,0.035,0.008333,0.08833,0.001667,0.1983,0.001667,0.001667,0.06,0.01667,1.278,1.87,0.005,0.05833,0.05333,0.125,0.31,0.095,0.095,0.001667,0.3217,0.001667,0.09333,0.7717,3.778,0.008333,1.232,0.1367,0.02833,1.442,0.006667,0.003333,0.005,0.3317,0.01167,0.01167,0.005,0.7783,0.4267,0.3167,0.04167,0.305,0.1133,1.368,0.006667,0.06833,1.46,0.7,2.84,0.02167,0.3317,0.715,0.4267,0.585,0.001667,0.2617,0.2817,0.003333,0.1733,0.015,1.32,0.3067,0.03,0.3117,0.2367,0.001667,0.25,0.3183,0.001667,0.01167,0.7383,0.003333,0.006667,0.04333,0.33,0.04667,0.015,0.05167,0.02,0.001667,0.04667,0.01333,0.01667,0.03833,0.2233,0.145,0.2133,0.005,0.05667,0.2017,0.02667,0.1867,0.06667,0.001667,0.006667,0.001667,0.01667,0.001667,0.005,0.001667,0.001667,1.662,0.01833,0.001667,0.03667,0.001667,0.1367,0.2317,0.005,0.01,1.84,0.01,0.01,0.9917,0.01667,0.5083,0.003333,1.17,0.01,0.02833,0.79,0.1183,0.02167,0.3717,0.1183,0.01,0.4683,0.07833,0.001667,0.145,0.06667,0.006667,0.5967,0.025,0.03333,0.07333,0.03333,0.085,0.2217,1.607,0.665,0.06,0.4333,0.3483,0.06,0.165,0.23,3.403,0.005,0.1133,0.008333,0.145,0.09,0.07333,0.025,0.055,0.405,1.715,0.001667,0.07667,0.02167,0.01,0.001667,0.665,0.26,0.04333,0.1117,0.07167,0.64,0.006667,0.36,0.006667,1.398,0.9167,0.01,0.03,0.001667,0.2017,0.21,0.9017,0.003333,0.515,0.008333,0.005,0.01333,0.001667,0.01833,1.633,0.075,0.03,0.006667,0.01,0.03,0.04833,0.1783,2.328,0.01333,0.003333,0.2267,1.093,0.4933,0.1067,0.008333,0.04,0.01667,0.07833,0.06333,0.08667,0.03833,0.01833,0.035,0.003333,0.045,0.1333,0.2033,0.01333,0.005,0.01,0.001667,0.001667,0.2017,0.005,0.006667,0.065,0.025,0.015,0.001667,0.155,0.02,0.001667,0.18,0.055,0.02667,0.12,0.03167,0.01,0.03667,0.1533,0.003333,4.477,0.01,0.01,0.01167,0.1267,0.01167,0.605,0.165,0.2117,0.6067,0.015,0.015,0.001667,0.006667,0.01333,0.1583,0.1283,0.035,0.195,0.1683,0.02833,0.025,0.02667,0.006667,0.001667,0.2617,0.2783,0.2033,0.03,0.006667,0.08667,0.02167,0.57,0.2233,0.015,0.003333,0.4517,0.225,0.3517,0.005,0.01,0.2317,0.1333,0.001667,0.01333,0.51,0.155,0.055,0.3067,0.1183,0.06333,0.006667,0.03833,1.003,0.015,0.003333,0.645,0.001667,0.001667,0.025,0.001667,1.98,2.202,1.517,0.001667,0.4617,0.43,0.2733,0.8,0.006667,0.005,0.03167,0.001667,1.325,0.03833,0.225,0.03167,0.01333,0.01167,0.001667,0.7167,0.09167,0.02333,0.2733,0.3033,0.015,0.095,0.01833,0.003333,0.2733,0.1267,0.003333,0.04,0.5717,0.03333,0.015,0.9483,0.06333,0.01,0.2717,0.09667,0.045,0.585,0.035,0.7817,0.001667,0.1733,0.2967,0.02167,1.953,1.202,0.005,0.001667,0.045,0.04,0.006667,0.03,0.165,0.008333,0.001667,1.525,0.01667,0.105,0.06,0.001667,0.06,0.03667,0.1833,0.13,1.295,0.04667,0.4033,0.89,0.025,0.008333,0.01167,0.001667,0.2167,0.07667,0.735,0.003333,0.055,0.1133,0.001667,0.3183,0.2733,0.1133,0.17,1.725,0.3517,0.001667,0.1417,0.08667,0.5467,0.045,0.001667,0.02667,0.05833,0.02,0.006667,0.003333,14.25,0.345,0.415,0.003333,0.003333,0.025,0.001667,0.003333,0.005,0.01667,0.04,0.19,0.115,0.6167,0.03167,0.02667,0.055,0.385,0.08833,0.2283,0.2667,0.003333,0.4917,0.1217,1.088,0.003333,0.02333,0.08167,0.04833,0.025,0.025,0.055,0.01667,0.015,0.06167,0.005,0.14,0.02833,1.402,0.5933,0.3067,0.1333,0.52,0.001667,0.02167,0.01833,0.003333,0.05,0.385,1.265,0.16,0.04833,0.13,0.01667,0.4583,0.04333,0.9667,0.13,0.08833,0.06167,0.09833,0.001667,0.001667, Summed MSE=806.2928 
#>   left son=2 (119 obs) right son=3 (481 obs)
#>   Primary splits:
#>       RB_PO4 < 0.6196511    to the right, improve=0.08231885, (0 missing)
#>       RB_NO3 < 31.53723     to the right, improve=0.06823403, (0 missing)
#>       Fe     < 1.355205e-05 to the right, improve=0.06765740, (0 missing)
#>       Bray_P < 6.653596     to the right, improve=0.06374455, (0 missing)
#>       BS     < 0.9127396    to the right, improve=0.06325350, (0 missing)
#> 
#> Node number 2: 119 observations,    complexity param=0.02501045
#>   Means=0,0.1008,0,0.008403,0.008403,0.008403,0.008403,0.3697,0.05882,0.1597,0.04202,0.3697,0.3193,0,0.07563,0.04202,0.5042,0.2437,0.1008,0.03361,0.02521,0.563,0,0,0.3529,0.04202,0.02521,0.1345,0.3361,0.008403,0.008403,0.008403,0.1933,0.2437,0.02521,0.8992,0.008403,0.01681,0,0.5042,0.008403,0,1.513,0.03361,0.02521,0.2437,0.1092,0.2101,0,0.008403,0.05042,0.04202,0.1092,0.4286,0.06723,0.03361,0,1.261,0.09244,0.008403,0.2521,0.02521,0.02521,0,0.01681,0.008403,0.008403,0.008403,0,0.008403,0.04202,0.02521,0.1597,0.05042,0.6639,0.6807,0.9664,0.1681,0.01681,0.05042,0.2185,0.06723,0.4286,0.1345,0,8.613,0,0,0.3109,0.008403,0.5462,0.5966,0.02521,0.05882,0.06723,1.126,0,0.008403,0.08403,0.1008,0,0.2773,0,0,0.1429,0.2857,0.03361,0.09244,0.05042,0,0,0.008403,0,0,0,0.01681,0,0,0.07563,0.6218,2.445,0,0.01681,0.008403,0.02521,0.3277,0.008403,0.05042,0,0,0.1345,0.07563,1.966,6.277,0,0,0,0.4622,0.03361,0.01681,0.07563,0.008403,1.538,0,0.3361,0.3613,1.866,0,0.4874,0.03361,0.008403,0.3782,0,0,0,0.1681,0.05882,0.008403,0.008403,0.09244,0.2101,0.1849,0.02521,0.2689,0.008403,0.3782,0,0.03361,0.3361,0.1261,1.101,0.008403,0.1597,0.3529,0.4874,0.1345,0,0.4286,0.05882,0,0.02521,0.01681,0.4874,0.4706,0,0.05882,0.09244,0,1.126,0.1261,0,0,1.034,0,0,0.06723,0.2353,0.01681,0.008403,0.03361,0,0,0.07563,0,0.008403,0.03361,0.395,0.2101,0.04202,0,0.2605,0.1345,0.01681,0.07563,0.01681,0.008403,0.008403,0.008403,0.08403,0.008403,0,0,0,5.353,0.09244,0,0.08403,0.008403,0.2605,1.059,0.02521,0.008403,4.815,0.05042,0,4.168,0.06723,2.143,0.01681,4.966,0.03361,0.1261,0.2773,0.07563,0.02521,0.3361,0.05882,0,0.1597,0.02521,0,0.06723,0,0,0.1261,0,0.01681,0.01681,0.09244,0.3277,0.437,0.2017,0.4622,0.02521,0.1597,0.2101,0.03361,0.01681,0.08403,0.7059,0,0.06723,0.01681,0.07563,0.008403,0.08403,0.05042,0.008403,0.1681,1.118,0,0.1176,0.1008,0.008403,0.008403,0.7395,0.521,0.008403,0.02521,0.01681,0.03361,0,0.03361,0,0.563,1.008,0,0,0,0.08403,0.04202,0.4118,0,0.1765,0,0,0.008403,0,0.03361,0.8571,0.02521,0.01681,0,0,0.03361,0.03361,0.437,5.555,0,0,0.1176,0.3193,0.1176,0.06723,0,0.1008,0,0,0.03361,0.06723,0,0.03361,0.06723,0.008403,0.1849,0.04202,0.1261,0,0.01681,0.008403,0,0,0.2353,0,0,0.05042,0.008403,0,0,0.6134,0.008403,0.008403,0.5042,0.1765,0.06723,0.09244,0.1429,0.05042,0,0.07563,0,6.294,0.01681,0,0.008403,0.008403,0,0.3697,0.1092,0.2521,0.1849,0.06723,0.03361,0,0,0.008403,0.008403,0.05882,0.04202,0.2185,0.1008,0.008403,0,0.008403,0,0,0.02521,0.2605,0.5126,0.1008,0.02521,0.01681,0,0.2185,0.06723,0.03361,0,0.2437,0.2773,0.2353,0,0.008403,0.958,0.03361,0,0,1.059,0.7311,0.2353,0.1933,0.05042,0.03361,0,0.02521,0.395,0.008403,0,0.1092,0.008403,0,0.02521,0,1.462,1.109,0.1765,0.008403,0.2773,2,0.1681,0.2185,0,0,0,0.008403,1.597,0.01681,0.3277,0.02521,0.008403,0.01681,0,0.3445,0.05042,0,0.1597,0.395,0.03361,0.05882,0.02521,0,0.2521,0.05882,0,0.01681,0.2605,0,0,0.5042,0.04202,0.008403,0.07563,0.1176,0.02521,0.2185,0.06723,0.1429,0,0.3277,0.563,0.008403,2.555,0.563,0,0,0.008403,0.02521,0,0.008403,0.2773,0.01681,0,0.5042,0.008403,0.008403,0.2269,0.008403,0.05882,0.01681,0,0.008403,0.8235,0.06723,0.3277,0.1933,0.008403,0,0,0,0.01681,0.01681,0.1345,0,0.008403,0.3613,0,0.8655,0.1345,0.07563,0.06723,4.361,0.1513,0.008403,0.04202,0.1092,0.06723,0.02521,0,0.008403,0.1008,0,0,0,5.924,0.06723,0.1092,0,0,0,0,0,0,0,0.05042,0.02521,0.02521,0.2353,0.008403,0,0,0.07563,0,0.1429,0.916,0,0.1597,0.03361,0.7059,0,0.008403,0,0.04202,0,0.008403,0.03361,0.01681,0,0.3025,0.008403,0.563,0.01681,2.235,0.2773,0.05042,0.07563,0.1933,0,0,0.01681,0,0.1176,0.2521,0.5798,0.04202,0.02521,0.03361,0,0.08403,0,0.6387,0.1261,0.008403,0.09244,0.02521,0,0, Summed MSE=1083.985 
#>   left son=4 (47 obs) right son=5 (72 obs)
#>   Primary splits:
#>       meanelev < 186.5991     to the left,  improve=0.09379836, (0 missing)
#>       slope    < 20.52715     to the left,  improve=0.08517653, (0 missing)
#>       Fe       < 4.3078e-06   to the left,  improve=0.07877244, (0 missing)
#>       RB_NO3   < 26.13207     to the right, improve=0.07220717, (0 missing)
#>       Al       < 0.05823936   to the left,  improve=0.07024895, (0 missing)
#> 
#> Node number 3: 481 observations,    complexity param=0.08360031
#>   Means=0.07069,0.2308,0.01247,0.1227,0.04574,0.02703,0,1.085,0.02911,0.3119,0.03534,0.7339,0.8087,0.008316,0.3784,0.07069,0.1247,0.4054,0.1455,0.09771,0.02287,0.4595,0.008316,0.3451,0.4678,0.02495,0.1975,0.08316,0.07277,0,0.002079,0.1102,0.7651,0.09148,0,0.4886,0.09979,0.01663,0.004158,2.098,0.1019,0.01871,1.156,0.526,0.004158,1.231,0.1809,0.1518,0.006237,0.01871,0.2245,0.2557,0.006237,1.511,0.2141,0.05198,0.01455,1.079,0.1788,0.004158,0.3285,0.01247,0.03326,0.01871,0.01247,0.01663,0.002079,0.03326,0.004158,0.06653,0.02495,0.01247,0.2412,0.185,1.842,0.1954,3.094,0.7526,0.131,0.1247,0.0499,0.1247,0,0.4158,0.002079,0.03742,0.02079,0.004158,1.892,0,0.0499,0.0104,0.07277,0.1185,0,1.054,0.002079,0.05405,0.1143,0.2412,0.002079,0.3326,0.01871,0.004158,0.0104,0.1476,0.079,0.05821,0.01871,0.006237,0.02495,0.02287,0.002079,0.002079,0.05613,0,0.006237,0.008316,0.03119,0.4532,0.289,0.01871,0.1538,0.04158,0.004158,0.02911,0,0.2349,0.002079,0.002079,0.04158,0.002079,1.108,0.7796,0.006237,0.07277,0.06653,0.04158,0.3784,0.1143,0.09979,0,0.02079,0.002079,0.03326,0.8732,4.252,0.0104,1.416,0.1622,0.03326,1.705,0.008316,0.004158,0.006237,0.3721,0,0.01247,0.004158,0.948,0.4802,0.3493,0.04574,0.3139,0.1393,1.613,0.008316,0.07692,1.738,0.842,3.27,0.02495,0.3742,0.8046,0.4116,0.6965,0.002079,0.2204,0.3368,0.004158,0.21,0.01455,1.526,0.2661,0.03742,0.3742,0.2723,0.002079,0.03326,0.3659,0.002079,0.01455,0.6653,0.004158,0.008316,0.03742,0.3534,0.05405,0.01663,0.05613,0.02495,0.002079,0.0395,0.01663,0.01871,0.0395,0.1809,0.1289,0.2557,0.006237,0.006237,0.2183,0.02911,0.2141,0.079,0,0.006237,0,0,0,0.006237,0.002079,0.002079,0.7484,0,0.002079,0.02495,0,0.106,0.02703,0,0.0104,1.104,0,0.01247,0.2058,0.004158,0.104,0,0.2308,0.004158,0.004158,0.9168,0.1289,0.02079,0.3805,0.1331,0.01247,0.5447,0.09148,0.002079,0.1642,0.08316,0.008316,0.7131,0.03119,0.03742,0.08732,0.01871,0.02495,0.1684,1.954,0.7152,0.06861,0.501,0.3825,0.06653,0.2017,0.2661,4.071,0.006237,0.1247,0.006237,0.1622,0.1102,0.07069,0.01871,0.06653,0.4636,1.863,0.002079,0.06653,0.002079,0.0104,0,0.6466,0.1954,0.05198,0.1331,0.08524,0.79,0.008316,0.4407,0.008316,1.605,0.894,0.01247,0.03742,0.002079,0.2308,0.2516,1.023,0.004158,0.5988,0.0104,0.006237,0.01455,0.002079,0.01455,1.825,0.08732,0.03326,0.008316,0.01247,0.02911,0.05198,0.1143,1.53,0.01663,0.004158,0.2536,1.285,0.5863,0.1164,0.0104,0.02495,0.02079,0.09771,0.07069,0.09148,0.04782,0.01455,0.02703,0.002079,0.0104,0.1559,0.2225,0.01663,0.002079,0.0104,0.002079,0.002079,0.1933,0.006237,0.008316,0.06861,0.02911,0.01871,0.002079,0.04158,0.02287,0,0.09979,0.02495,0.01663,0.1268,0.004158,0,0.04574,0.1726,0.004158,4.027,0.008316,0.01247,0.01247,0.1559,0.01455,0.6632,0.1788,0.2017,0.711,0.002079,0.0104,0.002079,0.008316,0.01455,0.1954,0.1455,0.03326,0.1892,0.185,0.03326,0.03119,0.03119,0.008316,0.002079,0.3202,0.2827,0.1268,0.01247,0.002079,0.104,0.02703,0.657,0.262,0.0104,0.004158,0.5031,0.2121,0.3805,0.006237,0.0104,0.05198,0.158,0.002079,0.01663,0.3742,0.01247,0.0104,0.3347,0.1351,0.07069,0.008316,0.04158,1.154,0.01663,0.004158,0.7775,0,0.002079,0.02495,0.002079,2.108,2.472,1.848,0,0.5073,0.04158,0.2994,0.9439,0.008316,0.006237,0.0395,0,1.258,0.04366,0.1996,0.03326,0.01455,0.0104,0.002079,0.8087,0.1019,0.02911,0.3015,0.2807,0.0104,0.104,0.01663,0.004158,0.2786,0.1435,0.004158,0.04574,0.6486,0.04158,0.01871,1.058,0.06861,0.0104,0.3202,0.09148,0.0499,0.6757,0.02703,0.9397,0.002079,0.1351,0.2308,0.02495,1.805,1.36,0.006237,0.002079,0.05405,0.04366,0.008316,0.03534,0.1372,0.006237,0.002079,1.778,0.01871,0.1289,0.01871,0,0.06029,0.04158,0.2287,0.1601,1.412,0.04158,0.422,1.062,0.02911,0.0104,0.01455,0.002079,0.2661,0.09148,0.8836,0.004158,0.06653,0.05198,0.002079,0.183,0.3077,0.1227,0.1954,1.073,0.4012,0,0.1663,0.08108,0.6653,0.0499,0.002079,0.03119,0.04782,0.02495,0.008316,0.004158,16.31,0.4137,0.4906,0.004158,0.004158,0.03119,0.002079,0.004158,0.006237,0.02079,0.03742,0.2308,0.1372,0.711,0.03742,0.03326,0.06861,0.4615,0.1102,0.2495,0.106,0.004158,0.5738,0.1435,1.183,0.004158,0.02703,0.1019,0.0499,0.03119,0.02911,0.06029,0.01663,0.01871,0.002079,0.004158,0.03534,0.03119,1.195,0.6715,0.3701,0.1476,0.6008,0.002079,0.02703,0.01871,0.004158,0.03326,0.4179,1.435,0.1892,0.05405,0.1538,0.02079,0.5509,0.05405,1.048,0.131,0.1081,0.05405,0.1164,0.002079,0.002079, Summed MSE=654.7975 
#>   left son=6 (154 obs) right son=7 (327 obs)
#>   Primary splits:
#>       Fe       < 1.36898e-05  to the right, improve=0.13037860, (0 missing)
#>       meanelev < 296.7648     to the left,  improve=0.09912164, (0 missing)
#>       K        < 0.2082182    to the left,  improve=0.09470386, (0 missing)
#>       RB_NO3   < 28.03992     to the right, improve=0.08659816, (0 missing)
#>       BS       < 0.7272487    to the right, improve=0.08015624, (0 missing)
#> 
#> Node number 4: 47 observations,    complexity param=0.02138814
#>   Means=0,0.06383,0,0,0,0,0,0.4255,0.04255,0.1489,0.02128,0.234,0.1915,0,0.06383,0,0.2979,0.3617,0.04255,0.02128,0.06383,0.5319,0,0,0.3191,0,0,0.1277,0.1489,0,0,0,0.1064,0.4681,0,1.128,0.02128,0,0,1.277,0,0,0.5745,0.04255,0.02128,0.3404,0.1489,0.4255,0,0,0.04255,0.04255,0.1277,0.3404,0.04255,0.04255,0,1.213,0.1915,0.02128,0.2128,0,0.02128,0,0.04255,0.02128,0.02128,0.02128,0,0.02128,0.04255,0.04255,0.02128,0.02128,0.8936,0.2553,0.9787,0.04255,0,0.06383,0.08511,0.1489,0.04255,0.1702,0,17.89,0,0,0.1489,0,0.4255,0.04255,0.06383,0.06383,0.06383,1.404,0,0.02128,0.1064,0.02128,0,0.3404,0,0,0.1277,0.08511,0.04255,0,0.1064,0,0,0.02128,0,0,0,0,0,0,0.1277,0.3191,3.021,0,0.04255,0,0.02128,0.3191,0.02128,0,0,0,0.06383,0,0.4894,4.213,0,0,0,0.5106,0,0.02128,0.1064,0.02128,1.553,0,0.234,0.1489,0.5957,0,0.3617,0.06383,0,0.5106,0,0,0,0.4255,0.06383,0,0,0.04255,0.3617,0.1489,0.02128,0.3404,0.02128,0.08511,0,0,0.1489,0.2979,0.1064,0,0.1915,0.1277,0.1277,0.04255,0,0.2766,0.1277,0,0,0.02128,1.106,0.383,0,0,0,0,1.745,0.08511,0,0,0.5106,0,0,0.02128,0.2766,0.04255,0.02128,0,0,0,0,0,0.02128,0.04255,0.4468,0.1277,0.02128,0,0.1064,0.1702,0.02128,0.02128,0.02128,0.02128,0.02128,0,0.1489,0,0,0,0,2.319,0.1702,0,0.1064,0,0.383,2.191,0,0,3.702,0.02128,0,2.596,0,2.17,0,5.511,0.02128,0.08511,0.3404,0.06383,0.02128,0.08511,0.02128,0,0.02128,0.02128,0,0.06383,0,0,0.02128,0,0.02128,0.04255,0.1064,0.02128,0.2766,0.1915,0.3404,0.02128,0.02128,0.2128,0.06383,0.04255,0.1064,0.234,0,0.02128,0.04255,0.04255,0,0.06383,0,0.02128,0.1277,1.702,0,0.1064,0.1915,0.02128,0,0.2766,0.6383,0,0.04255,0,0.02128,0,0.02128,0,0.3191,0.8511,0,0,0,0.1064,0.04255,0.2128,0,0.08511,0,0,0,0,0.06383,0.2553,0,0.02128,0,0,0.06383,0.06383,0.5106,2.787,0,0,0.1064,0.2128,0.08511,0.06383,0,0.2128,0,0,0.08511,0.1702,0,0.08511,0.1702,0,0.2128,0.02128,0.1277,0,0.04255,0.02128,0,0,0.1915,0,0,0.08511,0,0,0,0.5532,0.02128,0,0.7872,0.06383,0.02128,0,0.1064,0.02128,0,0,0,1.723,0.02128,0,0.02128,0.02128,0,0.4043,0.06383,0.234,0.2128,0,0.02128,0,0,0,0.02128,0.02128,0,0.04255,0.1702,0,0,0,0,0,0.02128,0.06383,0.234,0.02128,0,0,0,0.234,0.02128,0.04255,0,0.1064,0.2766,0.383,0,0,1,0.04255,0,0,0.6383,1.17,0.06383,0.06383,0,0.04255,0,0,0.4255,0,0,0.06383,0,0,0.06383,0,1.936,1.128,0.1489,0.02128,0.4255,3.574,0.02128,0.08511,0,0,0,0,1.234,0,0,0,0,0,0,0.02128,0,0,0,0,0.06383,0.1489,0.04255,0,0.2553,0.04255,0,0.04255,0.1277,0,0,0.383,0.02128,0.02128,0.1064,0.2553,0.02128,0.04255,0.06383,0,0,0.5319,0.4468,0,2.702,0.7447,0,0,0.02128,0.04255,0,0.02128,0.5957,0,0,0.2979,0.02128,0.02128,0.383,0,0.04255,0.04255,0,0.02128,0.3191,0.08511,0.3617,0.04255,0.02128,0,0,0,0,0.02128,0.08511,0,0,0.6809,0,1.83,0.08511,0,0.02128,4.34,0,0,0.06383,0,0.02128,0.04255,0,0,0.1064,0,0,0,3.83,0,0.1489,0,0,0,0,0,0,0,0.1277,0,0.06383,0.2553,0.02128,0,0,0,0,0.02128,1.128,0,0.1277,0.08511,0.2553,0,0.02128,0,0,0,0.02128,0.04255,0,0,0.6596,0,0.6383,0,2.213,0.4043,0.06383,0.1064,0.1277,0,0,0,0,0.06383,0.1277,0.1915,0.1064,0.06383,0.02128,0,0.1064,0,0.1915,0.04255,0,0.08511,0.04255,0,0, Summed MSE=918.5188 
#>   left son=8 (18 obs) right son=9 (29 obs)
#>   Primary splits:
#>       BS       < 0.9232842    to the right, improve=0.2396797, (0 missing)
#>       Al       < 0.1258257    to the left,  improve=0.2389171, (0 missing)
#>       Ca       < 1.66205      to the right, improve=0.2276489, (0 missing)
#>       meanelev < 171.9552     to the right, improve=0.2231174, (0 missing)
#>       pH_water < 5.678727     to the right, improve=0.2197890, (0 missing)
#> 
#> Node number 5: 72 observations,    complexity param=0.02114811
#>   Means=0,0.125,0,0.01389,0.01389,0.01389,0.01389,0.3333,0.06944,0.1667,0.05556,0.4583,0.4028,0,0.08333,0.06944,0.6389,0.1667,0.1389,0.04167,0,0.5833,0,0,0.375,0.06944,0.04167,0.1389,0.4583,0.01389,0.01389,0.01389,0.25,0.09722,0.04167,0.75,0,0.02778,0,0,0.01389,0,2.125,0.02778,0.02778,0.1806,0.08333,0.06944,0,0.01389,0.05556,0.04167,0.09722,0.4861,0.08333,0.02778,0,1.292,0.02778,0,0.2778,0.04167,0.02778,0,0,0,0,0,0,0,0.04167,0.01389,0.25,0.06944,0.5139,0.9583,0.9583,0.25,0.02778,0.04167,0.3056,0.01389,0.6806,0.1111,0,2.556,0,0,0.4167,0.01389,0.625,0.9583,0,0.05556,0.06944,0.9444,0,0,0.06944,0.1528,0,0.2361,0,0,0.1528,0.4167,0.02778,0.1528,0.01389,0,0,0,0,0,0,0.02778,0,0,0.04167,0.8194,2.069,0,0,0.01389,0.02778,0.3333,0,0.08333,0,0,0.1806,0.125,2.931,7.625,0,0,0,0.4306,0.05556,0.01389,0.05556,0,1.528,0,0.4028,0.5,2.694,0,0.5694,0.01389,0.01389,0.2917,0,0,0,0,0.05556,0.01389,0.01389,0.125,0.1111,0.2083,0.02778,0.2222,0,0.5694,0,0.05556,0.4583,0.01389,1.75,0.01389,0.1389,0.5,0.7222,0.1944,0,0.5278,0.01389,0,0.04167,0.01389,0.08333,0.5278,0,0.09722,0.1528,0,0.7222,0.1528,0,0,1.375,0,0,0.09722,0.2083,0,0,0.05556,0,0,0.125,0,0,0.02778,0.3611,0.2639,0.05556,0,0.3611,0.1111,0.01389,0.1111,0.01389,0,0,0.01389,0.04167,0.01389,0,0,0,7.333,0.04167,0,0.06944,0.01389,0.1806,0.3194,0.04167,0.01389,5.542,0.06944,0,5.194,0.1111,2.125,0.02778,4.611,0.04167,0.1528,0.2361,0.08333,0.02778,0.5,0.08333,0,0.25,0.02778,0,0.06944,0,0,0.1944,0,0.01389,0,0.08333,0.5278,0.5417,0.2083,0.5417,0.02778,0.25,0.2083,0.01389,0,0.06944,1.014,0,0.09722,0,0.09722,0.01389,0.09722,0.08333,0,0.1944,0.7361,0,0.125,0.04167,0,0.01389,1.042,0.4444,0.01389,0.01389,0.02778,0.04167,0,0.04167,0,0.7222,1.111,0,0,0,0.06944,0.04167,0.5417,0,0.2361,0,0,0.01389,0,0.01389,1.25,0.04167,0.01389,0,0,0.01389,0.01389,0.3889,7.361,0,0,0.125,0.3889,0.1389,0.06944,0,0.02778,0,0,0,0,0,0,0,0.01389,0.1667,0.05556,0.125,0,0,0,0,0,0.2639,0,0,0.02778,0.01389,0,0,0.6528,0,0.01389,0.3194,0.25,0.09722,0.1528,0.1667,0.06944,0,0.125,0,9.278,0.01389,0,0,0,0,0.3472,0.1389,0.2639,0.1667,0.1111,0.04167,0,0,0.01389,0,0.08333,0.06944,0.3333,0.05556,0.01389,0,0.01389,0,0,0.02778,0.3889,0.6944,0.1528,0.04167,0.02778,0,0.2083,0.09722,0.02778,0,0.3333,0.2778,0.1389,0,0.01389,0.9306,0.02778,0,0,1.333,0.4444,0.3472,0.2778,0.08333,0.02778,0,0.04167,0.375,0.01389,0,0.1389,0.01389,0,0,0,1.153,1.097,0.1944,0,0.1806,0.9722,0.2639,0.3056,0,0,0,0.01389,1.833,0.02778,0.5417,0.04167,0.01389,0.02778,0,0.5556,0.08333,0,0.2639,0.6528,0.01389,0,0.01389,0,0.25,0.06944,0,0,0.3472,0,0,0.5833,0.05556,0,0.05556,0.02778,0.02778,0.3333,0.06944,0.2361,0,0.1944,0.6389,0.01389,2.458,0.4444,0,0,0,0.01389,0,0,0.06944,0.02778,0,0.6389,0,0,0.125,0.01389,0.06944,0,0,0,1.153,0.05556,0.3056,0.2917,0,0,0,0,0.02778,0.01389,0.1667,0,0.01389,0.1528,0,0.2361,0.1667,0.125,0.09722,4.375,0.25,0.01389,0.02778,0.1806,0.09722,0.01389,0,0.01389,0.09722,0,0,0,7.292,0.1111,0.08333,0,0,0,0,0,0,0,0,0.04167,0,0.2222,0,0,0,0.125,0,0.2222,0.7778,0,0.1806,0,1,0,0,0,0.06944,0,0,0.02778,0.02778,0,0.06944,0.01389,0.5139,0.02778,2.25,0.1944,0.04167,0.05556,0.2361,0,0,0.02778,0,0.1528,0.3333,0.8333,0,0,0.04167,0,0.06944,0,0.9306,0.1806,0.01389,0.09722,0.01389,0,0, Summed MSE=1023.95 
#>   left son=10 (69 obs) right son=11 (3 obs)
#>   Primary splits:
#>       pH_water < 5.495651     to the right, improve=0.1387728, (0 missing)
#>       Ca       < 1.195579     to the right, improve=0.1387728, (0 missing)
#>       BS       < 0.8153253    to the right, improve=0.1387728, (0 missing)
#>       meanelev < 303.5795     to the left,  improve=0.1387728, (0 missing)
#>       ECEC     < 2.759437     to the right, improve=0.1218917, (0 missing)
#> 
#> Node number 6: 154 observations,    complexity param=0.02102028
#>   Means=0.07792,0.3052,0.03896,0.2273,0.1039,0.07143,0,0.9545,0.01299,0.2662,0.006494,0.7013,0.5649,0.006494,0.5325,0.05195,0.08442,0.4481,0.1364,0,0.01948,0.3312,0.006494,0.5195,0.5844,0,0.3766,0.1234,0.05844,0,0.006494,0.3312,1.097,0.02597,0,1.162,0.07143,0.03247,0.006494,0.8506,0.2792,0.01948,0.9416,1.091,0.006494,1.325,0.1169,0.07792,0.01948,0.05844,0.3636,0.474,0,2.045,0.2597,0.06494,0.03247,1.455,0.4351,0.01299,0.4221,0.01299,0.06494,0.01948,0.01299,0.01299,0,0.05195,0.006494,0.1104,0.01948,0,0.2922,0.2143,2.721,0.2662,4.201,1.052,0.2532,0.05844,0.03247,0.1558,0,0.6558,0,0,0.01299,0.006494,2.292,0,0.03247,0,0.02597,0.3117,0,1.558,0,0.02597,0.05195,0.3636,0,0.2532,0.05844,0,0.01299,0.1688,0.0974,0.1039,0.01299,0,0.03247,0.01299,0,0.006494,0.1169,0,0.01299,0.02597,0.01299,0.2662,0.1623,0.01948,0.3312,0.03896,0,0.05195,0,0.3182,0.006494,0,0.03247,0.006494,0.3831,1.026,0.01948,0.2078,0.1429,0.05195,0.3182,0.1364,0.1299,0,0.01948,0,0.04545,0.5844,3.708,0.006494,1.74,0.3571,0.01948,1.455,0.006494,0,0.006494,0.2792,0,0.03247,0,1.682,0.9675,0.2338,0.1039,0.3766,0.1364,1.013,0.02597,0.06494,1.61,2.065,3.143,0,0.2987,0.4351,0.1169,0.8182,0.006494,0.3701,0.6169,0,0.474,0.04545,0.6234,0.2792,0.1169,0.3636,0.2987,0,0.01948,0.3442,0.006494,0.03247,0.4416,0,0,0.01948,0.3117,0.0974,0.006494,0.1039,0.04545,0,0.1039,0.01299,0.01948,0.09091,0.1623,0.2013,0.1818,0,0,0.1948,0.06494,0.2273,0.2013,0,0.006494,0,0,0,0,0,0.006494,1.091,0,0,0.07143,0,0.04545,0.01299,0,0.006494,1.175,0,0.01948,0.2727,0,0.1299,0,0.3442,0,0.006494,1.39,0.1299,0.02597,0.3506,0.1234,0.03247,0.6234,0.1429,0,0.1688,0.1688,0.01948,1.026,0.05195,0.09091,0.1558,0.03896,0.05195,0.2468,2.104,0.7532,0.02597,0.7143,0.1688,0.03896,0.4026,0.3961,3.857,0.01948,0.3506,0,0.1623,0.006494,0.02597,0.006494,0.1104,0.2597,1.506,0.006494,0.09091,0,0.01948,0,1.506,0.2662,0.02597,0.1948,0.1039,1.89,0,0.2273,0.006494,0.9221,1.117,0.03896,0.07143,0,0.1169,0.1623,0.8831,0.01299,0.7792,0.006494,0.01948,0.03896,0,0,1.357,0.1299,0.07792,0.01948,0.01948,0.006494,0.1039,0.03247,2.325,0.01948,0.006494,0.3312,0.9286,0.974,0.07792,0.01299,0.07143,0.01299,0.2208,0.1948,0.2143,0.02597,0.02597,0.02597,0,0.006494,0.1948,0.3182,0.03896,0.006494,0.006494,0,0.006494,0.2597,0.01948,0.006494,0.1299,0.01948,0.04545,0,0.08442,0.05844,0,0.2143,0.01299,0.04545,0.3052,0.006494,0,0.09091,0.09091,0.01299,0.539,0.006494,0,0,0.3896,0.02597,0.1494,0.1104,0.2662,0.6364,0.006494,0.006494,0,0.01299,0.03896,0.1883,0.1753,0.01299,0.1039,0.2532,0.04545,0.08442,0.07792,0.01299,0,0.4416,0.2987,0.1883,0,0,0.1688,0.05195,0.526,0.526,0,0,0.4286,0.1039,0.4416,0.006494,0.01948,0.01948,0.2662,0.006494,0.03896,0.5909,0.006494,0.02597,0.4805,0.09091,0.1039,0.02597,0.0974,1.104,0.01948,0.01299,1.26,0,0,0.06494,0,0.5455,0.987,2.429,0,0.3377,0.07143,0.1364,0.8831,0.006494,0.01948,0.08442,0,1.708,0.06494,0.3831,0.05195,0.006494,0,0,0.8117,0.1429,0.07143,0.6623,0.6299,0.03247,0.2662,0.006494,0,0.5974,0.08442,0.01299,0.1234,0.539,0.1234,0.03247,0.8896,0.06494,0.01948,0.3636,0.1169,0.04545,0.6818,0.006494,0.7403,0,0.1688,0.4675,0.04545,1.305,0.8571,0,0.006494,0.01299,0.1039,0.02597,0.09091,0.08442,0.01948,0,1.643,0.03896,0.2208,0.02597,0,0.03896,0.06494,0.5844,0.07792,0.8636,0.04545,0.5714,1.045,0.02597,0.01299,0.006494,0.006494,0.3247,0.06494,0.4351,0.01299,0.2013,0.01948,0,0.1104,0.3442,0.09091,0.3182,2.617,0.5649,0,0.1623,0.08442,0.9416,0.1234,0,0.04545,0.0974,0.03896,0.006494,0.01299,4.422,0.2662,0.4351,0.01299,0.01299,0.08442,0.006494,0,0.01948,0.06494,0.04545,0.3442,0.3961,0.8506,0.02597,0.1039,0.1429,0.7208,0.2468,0.1688,0.1039,0.01299,0.6039,0.3377,1.24,0.01299,0.05195,0.2273,0.06494,0.05195,0.03896,0.08442,0.02597,0.05844,0.006494,0.01299,0.03896,0.006494,1.429,0.2662,0.2013,0.1169,0.9416,0,0.08442,0.05195,0,0.04545,0.3506,2.013,0.2013,0.1299,0.1429,0.01299,0.2532,0.05844,0.8182,0.08442,0.0974,0,0.1429,0,0.006494, Summed MSE=571.1102 
#>   left son=12 (68 obs) right son=13 (86 obs)
#>   Primary splits:
#>       meanelev < 286.0175     to the left,  improve=0.11562230, (0 missing)
#>       slope    < 17.99243     to the left,  improve=0.09105075, (0 missing)
#>       Na       < 0.005221355  to the left,  improve=0.08631254, (0 missing)
#>       RB_PO4   < 0.3089932    to the right, improve=0.08218126, (0 missing)
#>       Fe       < 0.00019561   to the left,  improve=0.07501699, (0 missing)
#> 
#> Node number 7: 327 observations,    complexity param=0.02017183
#>   Means=0.06728,0.1957,0,0.07339,0.01835,0.006116,0,1.147,0.0367,0.3333,0.04893,0.7492,0.9235,0.009174,0.3058,0.07951,0.1437,0.3853,0.1498,0.1437,0.02446,0.5199,0.009174,0.263,0.4128,0.0367,0.1131,0.06422,0.07951,0,0,0.006116,0.6086,0.1223,0,0.1713,0.1131,0.009174,0.003058,2.685,0.01835,0.01835,1.257,0.2599,0.003058,1.187,0.211,0.1865,0,0,0.159,0.1529,0.009174,1.26,0.1927,0.04587,0.006116,0.9021,0.0581,0,0.2844,0.01223,0.01835,0.01835,0.01223,0.01835,0.003058,0.02446,0.003058,0.04587,0.02752,0.01835,0.2171,0.1713,1.428,0.1621,2.572,0.6116,0.07339,0.156,0.0581,0.1101,0,0.3028,0.003058,0.05505,0.02446,0.003058,1.703,0,0.0581,0.01529,0.0948,0.02752,0,0.8165,0.003058,0.06728,0.1437,0.1835,0.003058,0.37,0,0.006116,0.009174,0.1376,0.07034,0.0367,0.02141,0.009174,0.02141,0.02752,0.003058,0,0.02752,0,0.003058,0,0.03976,0.5413,0.3486,0.01835,0.07034,0.04281,0.006116,0.01835,0,0.1957,0,0.003058,0.04587,0,1.45,0.6636,0,0.009174,0.03058,0.0367,0.4067,0.104,0.08563,0,0.02141,0.003058,0.02752,1.009,4.508,0.01223,1.263,0.07034,0.03976,1.823,0.009174,0.006116,0.006116,0.4159,0,0.003058,0.006116,0.6024,0.2508,0.4037,0.01835,0.2844,0.1407,1.896,0,0.08257,1.798,0.2661,3.33,0.0367,0.4098,0.9786,0.5505,0.6391,0,0.1498,0.2049,0.006116,0.08563,0,1.951,0.2599,0,0.3792,0.2599,0.003058,0.03976,0.3761,0,0.006116,0.7706,0.006116,0.01223,0.04587,0.3731,0.03364,0.02141,0.03364,0.01529,0.003058,0.009174,0.01835,0.01835,0.01529,0.1896,0.0948,0.2905,0.009174,0.009174,0.2294,0.01223,0.208,0.02141,0,0.006116,0,0,0,0.009174,0.003058,0,0.5872,0,0.003058,0.003058,0,0.1346,0.03364,0,0.01223,1.07,0,0.009174,0.1743,0.006116,0.09174,0,0.1774,0.006116,0.003058,0.6942,0.1284,0.01835,0.3945,0.1376,0.003058,0.5076,0.06728,0.003058,0.1621,0.04281,0.003058,0.5657,0.02141,0.01223,0.05505,0.009174,0.01223,0.1315,1.884,0.6972,0.08869,0.4006,0.4832,0.07951,0.107,0.2049,4.171,0,0.01835,0.009174,0.1621,0.159,0.09174,0.02446,0.04587,0.5596,2.031,0,0.05505,0.003058,0.006116,0,0.2416,0.1621,0.06422,0.104,0.07645,0.2722,0.01223,0.5413,0.009174,1.927,0.789,0,0.02141,0.003058,0.2844,0.2936,1.089,0,0.5138,0.01223,0,0.003058,0.003058,0.02141,2.046,0.06728,0.01223,0.003058,0.009174,0.03976,0.02752,0.1529,1.156,0.01529,0.003058,0.2171,1.453,0.4037,0.1346,0.009174,0.003058,0.02446,0.03976,0.01223,0.03364,0.0581,0.009174,0.02752,0.003058,0.01223,0.1376,0.1774,0.006116,0,0.01223,0.003058,0,0.1621,0,0.009174,0.03976,0.03364,0.006116,0.003058,0.02141,0.006116,0,0.04587,0.03058,0.003058,0.04281,0.003058,0,0.02446,0.211,0,5.67,0.009174,0.01835,0.01835,0.04587,0.009174,0.9052,0.211,0.1713,0.7462,0,0.01223,0.003058,0.006116,0.003058,0.1988,0.1315,0.04281,0.2294,0.1529,0.02752,0.006116,0.009174,0.006116,0.003058,0.263,0.2752,0.09786,0.01835,0.003058,0.07339,0.01529,0.7187,0.1376,0.01529,0.006116,0.5382,0.263,0.3517,0.006116,0.006116,0.06728,0.107,0,0.006116,0.2722,0.01529,0.003058,0.2661,0.156,0.05505,0,0.01529,1.177,0.01529,0,0.5505,0,0.003058,0.006116,0.003058,2.844,3.171,1.575,0,0.5872,0.02752,0.3761,0.9725,0.009174,0,0.01835,0,1.046,0.03364,0.1131,0.02446,0.01835,0.01529,0.003058,0.8073,0.08257,0.009174,0.1315,0.1162,0,0.02752,0.02141,0.006116,0.1284,0.1713,0,0.009174,0.7003,0.003058,0.01223,1.138,0.07034,0.006116,0.2997,0.07951,0.05199,0.6728,0.0367,1.034,0.003058,0.1193,0.1193,0.01529,2.04,1.596,0.009174,0,0.07339,0.01529,0,0.009174,0.1621,0,0.003058,1.841,0.009174,0.08563,0.01529,0,0.07034,0.03058,0.06116,0.1988,1.67,0.03976,0.3517,1.07,0.03058,0.009174,0.01835,0,0.2385,0.104,1.095,0,0.003058,0.06728,0.003058,0.2171,0.2905,0.1376,0.1376,0.3456,0.3242,0,0.1682,0.07951,0.5352,0.01529,0.003058,0.02446,0.02446,0.01835,0.009174,0,21.91,0.4832,0.5168,0,0,0.006116,0,0.006116,0,0,0.03364,0.1774,0.01529,0.6453,0.04281,0,0.03364,0.3394,0.04587,0.2875,0.107,0,0.5596,0.05199,1.156,0,0.01529,0.04281,0.04281,0.02141,0.02446,0.04893,0.01223,0,0,0,0.03364,0.04281,1.086,0.8624,0.4495,0.1621,0.4404,0.003058,0,0.003058,0.006116,0.02752,0.4495,1.162,0.1835,0.01835,0.159,0.02446,0.6911,0.05199,1.156,0.1529,0.1131,0.07951,0.104,0.003058,0, Summed MSE=568.6327 
#>   left son=14 (204 obs) right son=15 (123 obs)
#>   Primary splits:
#>       Bray_P   < 5.80845      to the left,  improve=0.05248192, (0 missing)
#>       meanelev < 231.0787     to the left,  improve=0.04663039, (0 missing)
#>       RB_NO3   < 30.46076     to the right, improve=0.03681987, (0 missing)
#>       RB_NH4   < 5.242497     to the right, improve=0.03280300, (0 missing)
#>       RB_PO4   < 0.5317823    to the left,  improve=0.02986250, (0 missing)
#> 
#> Node number 8: 18 observations
#>   Means=0,0.1111,0,0,0,0,0,0.2222,0,0.1111,0.05556,0.1111,0.1111,0,0,0,0.1111,0.1667,0.05556,0,0,0.9444,0,0,0.2222,0,0,0.1111,0.1667,0,0,0,0.1111,0.1667,0,0.3889,0,0,0,1.778,0,0,0.3889,0,0,0.3333,0.1111,0.3889,0,0,0,0,0.05556,0,0,0,0,1.333,0.1111,0,0.05556,0,0,0,0.1111,0,0,0,0,0,0,0.05556,0,0.05556,0.3333,0.05556,0.4444,0.1111,0,0,0.05556,0,0,0.05556,0,35.39,0,0,0.05556,0,0.5556,0.05556,0,0,0.05556,0.9444,0,0,0.1667,0,0,0.1667,0,0,0.2778,0.1111,0,0,0,0,0,0.05556,0,0,0,0,0,0,0.05556,0.1111,5.444,0,0,0,0,0.3333,0,0,0,0,0.05556,0,0.6667,3.444,0,0,0,0.2778,0,0.05556,0,0,0.2778,0,0.2222,0,0.5,0,0.1111,0,0,0.2778,0,0,0,0.4444,0.1111,0,0,0.05556,0,0.2222,0.05556,0.1111,0,0.05556,0,0,0.1111,0,0.1667,0,0,0.05556,0.2222,0.05556,0,0.1111,0,0,0,0,0.1667,0.5556,0,0,0,0,1.333,0,0,0,0.8889,0,0,0.05556,0.1667,0,0,0,0,0,0,0,0.05556,0.05556,0.5,0.2222,0.05556,0,0.05556,0.05556,0,0,0,0,0.05556,0,0.1111,0,0,0,0,1.389,0.05556,0,0.1111,0,0.1667,2.278,0,0,2.889,0,0,2.111,0,2.111,0,6.111,0,0.1111,0.05556,0.05556,0,0.1667,0,0,0,0,0,0,0,0,0,0,0,0,0.05556,0,0.1667,0.05556,0.2778,0,0.05556,0.2778,0.1111,0,0,0.3333,0,0,0,0,0,0,0,0,0,0.9444,0,0.1111,0,0,0,0,0.1111,0,0.05556,0,0,0,0.05556,0,0.2222,0.4444,0,0,0,0.1111,0,0,0,0.05556,0,0,0,0,0,0.3333,0,0.05556,0,0,0,0.05556,0.4444,2.944,0,0,0.1111,0.1667,0.05556,0.05556,0,0.05556,0,0,0,0,0,0,0.1111,0,0.1667,0,0,0,0,0,0,0,0.1667,0,0,0.05556,0,0,0,0.4444,0,0,0.6667,0.1111,0.05556,0,0.1667,0,0,0,0,3.278,0,0,0,0,0,0.2778,0.1111,0.2222,0.1111,0,0,0,0,0,0.05556,0,0,0,0.05556,0,0,0,0,0,0,0.05556,0.2222,0,0,0,0,0.1667,0.05556,0,0,0,0.2222,0.3333,0,0,0.2778,0,0,0,0.4444,1.389,0,0,0,0,0,0,0.2778,0,0,0.05556,0,0,0,0,1.278,0.8333,0.05556,0.05556,0.2778,3.778,0,0.1667,0,0,0,0,1.056,0,0,0,0,0,0,0.05556,0,0,0,0,0,0,0,0,0.05556,0,0,0,0.1111,0,0,0.2222,0,0.05556,0.05556,0.2222,0.05556,0.1111,0,0,0,0.2222,0.1111,0,1.5,0.2222,0,0,0.05556,0,0,0,0.3333,0,0,0.1111,0,0,0.5,0,0.05556,0,0,0,0.3333,0.05556,0.1667,0,0.05556,0,0,0,0,0,0,0,0,0.05556,0,0.7222,0.1111,0,0,0.1667,0,0,0,0,0.05556,0,0,0,0,0,0,0,1.389,0,0.05556,0,0,0,0,0,0,0,0.05556,0,0,0.2222,0,0,0,0,0,0.05556,0.2222,0,0.1111,0,0.1667,0,0,0,0,0,0.05556,0,0,0,0.7222,0,0.2778,0,1.778,0.1667,0,0,0.2778,0,0,0,0,0,0.05556,0.05556,0,0,0,0,0.05556,0,0.3333,0,0,0.05556,0.1111,0,0, Summed MSE=680.1883 
#> 
#> Node number 9: 29 observations
#>   Means=0,0.03448,0,0,0,0,0,0.5517,0.06897,0.1724,0,0.3103,0.2414,0,0.1034,0,0.4138,0.4828,0.03448,0.03448,0.1034,0.2759,0,0,0.3793,0,0,0.1379,0.1379,0,0,0,0.1034,0.6552,0,1.586,0.03448,0,0,0.9655,0,0,0.6897,0.06897,0.03448,0.3448,0.1724,0.4483,0,0,0.06897,0.06897,0.1724,0.5517,0.06897,0.06897,0,1.138,0.2414,0.03448,0.3103,0,0.03448,0,0,0.03448,0.03448,0.03448,0,0.03448,0.06897,0.03448,0.03448,0,1.241,0.3793,1.31,0,0,0.1034,0.1034,0.2414,0.06897,0.2414,0,7.034,0,0,0.2069,0,0.3448,0.03448,0.1034,0.1034,0.06897,1.69,0,0.03448,0.06897,0.03448,0,0.4483,0,0,0.03448,0.06897,0.06897,0,0.1724,0,0,0,0,0,0,0,0,0,0.1724,0.4483,1.517,0,0.06897,0,0.03448,0.3103,0.03448,0,0,0,0.06897,0,0.3793,4.69,0,0,0,0.6552,0,0,0.1724,0.03448,2.345,0,0.2414,0.2414,0.6552,0,0.5172,0.1034,0,0.6552,0,0,0,0.4138,0.03448,0,0,0.03448,0.5862,0.1034,0,0.4828,0.03448,0.1034,0,0,0.1724,0.4828,0.06897,0,0.3103,0.1724,0.06897,0.03448,0,0.3793,0.2069,0,0,0.03448,1.69,0.2759,0,0,0,0,2,0.1379,0,0,0.2759,0,0,0,0.3448,0.06897,0.03448,0,0,0,0,0,0,0.03448,0.4138,0.06897,0,0,0.1379,0.2414,0.03448,0.03448,0.03448,0.03448,0,0,0.1724,0,0,0,0,2.897,0.2414,0,0.1034,0,0.5172,2.138,0,0,4.207,0.03448,0,2.897,0,2.207,0,5.138,0.03448,0.06897,0.5172,0.06897,0.03448,0.03448,0.03448,0,0.03448,0.03448,0,0.1034,0,0,0.03448,0,0.03448,0.06897,0.1379,0.03448,0.3448,0.2759,0.3793,0.03448,0,0.1724,0.03448,0.06897,0.1724,0.1724,0,0.03448,0.06897,0.06897,0,0.1034,0,0.03448,0.2069,2.172,0,0.1034,0.3103,0.03448,0,0.4483,0.9655,0,0.03448,0,0.03448,0,0,0,0.3793,1.103,0,0,0,0.1034,0.06897,0.3448,0,0.1034,0,0,0,0,0.1034,0.2069,0,0,0,0,0.1034,0.06897,0.5517,2.69,0,0,0.1034,0.2414,0.1034,0.06897,0,0.3103,0,0,0.1379,0.2759,0,0.1379,0.2069,0,0.2414,0.03448,0.2069,0,0.06897,0.03448,0,0,0.2069,0,0,0.1034,0,0,0,0.6207,0.03448,0,0.8621,0.03448,0,0,0.06897,0.03448,0,0,0,0.7586,0.03448,0,0.03448,0.03448,0,0.4828,0.03448,0.2414,0.2759,0,0.03448,0,0,0,0,0.03448,0,0.06897,0.2414,0,0,0,0,0,0.03448,0.06897,0.2414,0.03448,0,0,0,0.2759,0,0.06897,0,0.1724,0.3103,0.4138,0,0,1.448,0.06897,0,0,0.7586,1.034,0.1034,0.1034,0,0.06897,0,0,0.5172,0,0,0.06897,0,0,0.1034,0,2.345,1.31,0.2069,0,0.5172,3.448,0.03448,0.03448,0,0,0,0,1.345,0,0,0,0,0,0,0,0,0,0,0,0.1034,0.2414,0.06897,0,0.3793,0.06897,0,0.06897,0.1379,0,0,0.4828,0.03448,0,0.1379,0.2759,0,0,0.1034,0,0,0.7241,0.6552,0,3.448,1.069,0,0,0,0.06897,0,0.03448,0.7586,0,0,0.4138,0.03448,0.03448,0.3103,0,0.03448,0.06897,0,0.03448,0.3103,0.1034,0.4828,0.06897,0,0,0,0,0,0.03448,0.1379,0,0,1.069,0,2.517,0.06897,0,0.03448,6.931,0,0,0.1034,0,0,0.06897,0,0,0.1724,0,0,0,5.345,0,0.2069,0,0,0,0,0,0,0,0.1724,0,0.1034,0.2759,0.03448,0,0,0,0,0,1.69,0,0.1379,0.1379,0.3103,0,0.03448,0,0,0,0,0.06897,0,0,0.6207,0,0.8621,0,2.483,0.5517,0.1034,0.1724,0.03448,0,0,0,0,0.1034,0.1724,0.2759,0.1724,0.1034,0.03448,0,0.1379,0,0.1034,0.06897,0,0.1034,0,0,0, Summed MSE=709.6528 
#> 
#> Node number 10: 69 observations
#>   Means=0,0.1304,0,0.01449,0.01449,0,0.01449,0.3333,0.07246,0.1739,0.05797,0.4493,0.4058,0,0.08696,0.07246,0.6667,0.1594,0.1449,0.04348,0,0.6087,0,0,0.3623,0.07246,0.04348,0.08696,0.4638,0.01449,0.01449,0,0.1739,0.1014,0.04348,0.7536,0,0.02899,0,0,0.01449,0,2.174,0.02899,0.02899,0.1449,0.08696,0.07246,0,0.01449,0.05797,0.04348,0.1014,0.4493,0.07246,0.02899,0,1.217,0.02899,0,0.2899,0.04348,0.01449,0,0,0,0,0,0,0,0.04348,0.01449,0.2319,0.07246,0.5072,0.8841,0.942,0.2174,0.02899,0.04348,0.3188,0.01449,0.7101,0.1014,0,2.667,0,0,0.2609,0.01449,0.6522,1,0,0.02899,0.07246,0.9855,0,0,0.07246,0.1304,0,0.2464,0,0,0.1594,0.4203,0.02899,0.1594,0.01449,0,0,0,0,0,0,0.02899,0,0,0.04348,0.8406,2.159,0,0,0.01449,0.02899,0.3478,0,0.08696,0,0,0.1304,0.1304,2.826,7.942,0,0,0,0.4493,0.05797,0,0.05797,0,1.594,0,0.4203,0.5072,2.58,0,0.5362,0.01449,0.01449,0.2754,0,0,0,0,0.05797,0.01449,0.01449,0.1304,0.08696,0.2174,0.02899,0.2319,0,0.5652,0,0.05797,0.4348,0.01449,1.493,0.01449,0.1449,0.4783,0.7536,0.1884,0,0.5507,0.01449,0,0.04348,0.01449,0.08696,0.5362,0,0.08696,0.1449,0,0.7536,0.1449,0,0,1.42,0,0,0.1014,0.2174,0,0,0.04348,0,0,0.1304,0,0,0.02899,0.3768,0.1594,0.05797,0,0.3768,0.1159,0.01449,0.1159,0.01449,0,0,0.01449,0.04348,0.01449,0,0,0,5.391,0.04348,0,0.07246,0.01449,0.1884,0.3333,0.04348,0.01449,5.551,0.07246,0,5.159,0.1159,2.217,0.02899,4.797,0.04348,0.1449,0.2319,0.07246,0.02899,0.5217,0.07246,0,0.2029,0,0,0.05797,0,0,0.1159,0,0.01449,0,0.08696,0.5217,0.5652,0.1304,0.5507,0.02899,0.2609,0.2174,0.01449,0,0.07246,1,0,0.1014,0,0.1014,0.01449,0.1014,0.08696,0,0.1884,0.7536,0,0.1304,0.04348,0,0.01449,1.058,0.4638,0.01449,0.01449,0.02899,0.04348,0,0.04348,0,0.6812,1.159,0,0,0,0.04348,0.02899,0.4203,0,0.2174,0,0,0.01449,0,0.01449,1.188,0.04348,0.01449,0,0,0.01449,0.01449,0.4058,6,0,0,0.1304,0.3188,0.1159,0.05797,0,0.02899,0,0,0,0,0,0,0,0.01449,0.1739,0.05797,0.1304,0,0,0,0,0,0.2754,0,0,0.02899,0.01449,0,0,0.6522,0,0.01449,0.3333,0.2609,0.1014,0.04348,0.1739,0.05797,0,0.08696,0,9.42,0.01449,0,0,0,0,0.3623,0.1449,0.2609,0.1449,0.1159,0.04348,0,0,0.01449,0,0.07246,0.07246,0.3333,0.05797,0.01449,0,0.01449,0,0,0.02899,0.3913,0.7246,0.1594,0.04348,0.02899,0,0.2029,0.07246,0.02899,0,0.3333,0.2899,0.1449,0,0.01449,0.971,0,0,0,1.333,0.4638,0.3623,0.2029,0.08696,0.02899,0,0.02899,0.3913,0.01449,0,0.1304,0.01449,0,0,0,1.174,1.116,0.1449,0,0.1884,1.014,0.2754,0.2754,0,0,0,0.01449,1.87,0.02899,0.5652,0.04348,0.01449,0.02899,0,0.5217,0.08696,0,0.1159,0.6232,0.01449,0,0.01449,0,0.2609,0.05797,0,0,0.3043,0,0,0.6087,0.05797,0,0.05797,0.02899,0.02899,0.3478,0.07246,0.2319,0,0.1884,0.6377,0.01449,2.551,0.4638,0,0,0,0.01449,0,0,0.07246,0.02899,0,0.5507,0,0,0.1304,0.01449,0.07246,0,0,0,1.174,0.04348,0.3188,0.2899,0,0,0,0,0.02899,0.01449,0.1739,0,0.01449,0.1594,0,0.2319,0.1594,0.1159,0.08696,4.551,0.2609,0.01449,0.02899,0.1449,0.08696,0.01449,0,0.01449,0.1014,0,0,0,7.304,0.1014,0.08696,0,0,0,0,0,0,0,0,0.01449,0,0.2319,0,0,0,0.1159,0,0.1739,0.8116,0,0.1594,0,1.014,0,0,0,0.07246,0,0,0.02899,0.02899,0,0.07246,0.01449,0.5362,0.02899,2.333,0.1884,0.04348,0.05797,0.1884,0,0,0.02899,0,0.1594,0.3478,0.8551,0,0,0.04348,0,0.07246,0,0.8116,0.1884,0.01449,0.1014,0.01449,0,0, Summed MSE=888.2915 
#> 
#> Node number 11: 3 observations
#>   Means=0,0,0,0,0,0.3333,0,0.3333,0,0,0,0.6667,0.3333,0,0,0,0,0.3333,0,0,0,0,0,0,0.6667,0,0,1.333,0.3333,0,0,0.3333,2,0,0,0.6667,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,1.333,0.3333,0,0,3,0,0,0,0,0.3333,0,0,0,0,0,0,0,0,0,0.6667,0,0.6667,2.667,1.333,1,0,0,0,0,0,0.3333,0,0,0,0,4,0,0,0,0,0.6667,0,0,0,0,0,0.6667,0,0,0,0,0,0.3333,0,0,0,0,0,0,0,0,0,0,0,0,0,0.3333,0,0,0,0,0,0,0,0,0,0,1.333,0,5.333,0.3333,0,0,0,0,0,0.3333,0,0,0,0,0,0.3333,5.333,0,1.333,0,0,0.6667,0,0,0,0,0,0,0,0,0.6667,0,0,0,0,0.6667,0,0,1,0,7.667,0,0,1,0,0.3333,0,0,0,0,0,0,0,0.3333,0,0.3333,0.3333,0,0,0.3333,0,0,0.3333,0,0,0,0,0,0,0.3333,0,0,0,0,0,0,0,2.667,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,52,0,0,0,0,0,0,0,0,5.333,0,0,6,0,0,0,0.3333,0,0.3333,0.3333,0.3333,0,0,0.3333,0,1.333,0.6667,0,0.3333,0,0,2,0,0,0,0,0.6667,0,2,0.3333,0,0,0,0,0,0,1.333,0,0,0,0,0,0,0,0,0.3333,0.3333,0,0,0,0,0,0.6667,0,0,0,0,0,0,0,0,1.667,0,0,0,0,0.6667,0.3333,3.333,0,0.6667,0,0,0,0,0,2.667,0,0,0,0,0,0,0,38.67,0,0,0,2,0.6667,0.3333,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.6667,0,0,0,0,0,2.667,0,0.3333,0,1,0,6,0,0,0,0,0,0,0,0.3333,0.6667,0,0,0,0,0,0,0.3333,0,0.3333,0,0,0,0,0,0,0,0.3333,0,0,0,0,0,0.3333,0.6667,0,0,0.3333,0,0,0,0,0,0.6667,0,0,1.333,0,0,2,0,0,0,0.3333,0,0,0,0.3333,0,0,0,0,0.6667,0.6667,1.333,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,1.333,0,0,3.667,1.333,0,0,0,0,0,0.3333,0,0,1.333,0,0,0,0,0,0,0,0,0,0,0.3333,0,0.3333,0.6667,0,0.3333,0,0,0,0,0,0,0,0,0,0,2.667,0,0,0,0,0,0,0,0,0.6667,0.3333,0,0.3333,0,0,0,0,0,0,0,0,0,0,0,0.3333,0.3333,0.3333,0.3333,0.3333,0,0,0,1,0.3333,0,0,0,0,0,0,0,7,0.3333,0,0,0,0,0,0,0,0,0,0.6667,0,0,0,0,0,0.3333,0,1.333,0,0,0.6667,0,0.6667,0,0,0,0,0,0,0,0,0,0,0,0,0,0.3333,0.3333,0,0,1.333,0,0,0,0,0,0,0.3333,0,0,0,0,0,0,3.667,0,0,0,0,0,0, Summed MSE=733.7778 
#> 
#> Node number 12: 68 observations
#>   Means=0.1029,0.6912,0,0.1176,0.02941,0.01471,0,1.324,0.02941,0.3676,0.01471,0.3676,0.4118,0,0.1029,0.01471,0.04412,0.05882,0.1176,0,0.04412,0.2059,0,1,0.5735,0,0,0.01471,0.04412,0,0.01471,0,0.4265,0.02941,0,2.324,0.1618,0.02941,0.01471,0.2794,0.4118,0,0.6324,0.7206,0,1.529,0.1324,0.1765,0.04412,0,0.2647,0.7794,0,1.162,0.1912,0.1471,0.07353,1,0.9853,0.02941,0.2206,0.01471,0.08824,0.02941,0.01471,0.02941,0,0.07353,0,0.25,0.01471,0,0.1618,0.2059,4.088,0.02941,3.912,0.1324,0.04412,0.1176,0,0.1912,0,0.6324,0,0,0.01471,0.01471,0.8235,0,0.01471,0,0.05882,0.3824,0,2.294,0,0.05882,0.01471,0.08824,0,0.2206,0,0,0,0.04412,0.1618,0.2206,0.02941,0,0.07353,0.02941,0,0.01471,0.04412,0,0.01471,0.02941,0.02941,0.1029,0.1912,0.04412,0.2059,0.07353,0,0.08824,0,0.02941,0,0,0.01471,0,0.01471,0.9412,0.04412,0.04412,0,0.08824,0.1176,0.25,0.2059,0,0.01471,0,0,0.1618,1.574,0,0.6324,0.2647,0.01471,1.471,0,0,0,0.6324,0,0.04412,0,0.1324,1.471,0.1029,0,0.8382,0.01471,0.6324,0,0.1029,0.9559,4.647,0.5588,0,0.4412,0.08824,0.1618,1,0,0.1471,1.368,0,0.01471,0.01471,1.397,0.1912,0,0.1176,0.04412,0,0.01471,0.3382,0.01471,0.02941,0.1029,0,0,0.01471,0.4853,0.1471,0.01471,0,0,0,0.04412,0.01471,0.04412,0.1324,0.1471,0.02941,0.1324,0,0,0.3382,0.07353,0.3529,0.4559,0,0.01471,0,0,0,0,0,0,0.2794,0,0,0,0,0.05882,0,0,0,0.2206,0,0,0.1765,0,0.1618,0,0,0,0,2.221,0.2206,0.05882,0.1618,0.1471,0.07353,0.1912,0.1471,0,0.07353,0.08824,0.02941,0.2059,0.1176,0.2059,0.2353,0,0,0.05882,0.8676,0.5294,0.01471,0.1029,0.3088,0.04412,0.6029,0.4706,1.118,0.01471,0.1176,0,0.08824,0.01471,0.02941,0.01471,0.25,0.3676,1.559,0,0.04412,0,0.04412,0,0.1765,0.5882,0.04412,0.2794,0.1176,1.265,0,0.3529,0.01471,0.4265,0.8676,0.02941,0,0,0.04412,0.2059,0.5147,0.02941,0.7059,0.01471,0,0.07353,0,0,0.3676,0.1618,0.04412,0.04412,0.01471,0.01471,0.01471,0.05882,0.3971,0,0.01471,0.07353,0.9265,0.3088,0.08824,0,0.1618,0.02941,0.04412,0.4265,0.4559,0,0.05882,0.02941,0,0.01471,0.3235,0.6029,0.07353,0.01471,0,0,0,0.01471,0,0,0.2941,0.02941,0.08824,0,0,0.02941,0,0.04412,0,0,0,0,0,0,0,0,0.1765,0.01471,0,0,0.3971,0.02941,0.2353,0.05882,0.1471,0.5441,0,0,0,0.02941,0.01471,0.3676,0.07353,0,0.02941,0.5147,0.07353,0.01471,0.01471,0.02941,0,0.07353,0.2059,0.04412,0,0,0.2647,0.01471,0.4559,0.07353,0,0,0.3088,0.1324,0.9853,0.01471,0.04412,0.02941,0.1176,0.01471,0.01471,0.2353,0,0.05882,0.2353,0,0.07353,0.04412,0,0.8529,0.01471,0,0.2059,0,0,0.05882,0,0.75,0.75,1.338,0,0.5588,0.1324,0.1029,0.6176,0.01471,0,0.1471,0,0.3824,0.01471,0.3971,0.01471,0.01471,0,0,0.2647,0,0.1618,0.02941,0.08824,0.07353,0.6029,0.01471,0,0.4853,0.04412,0,0.2647,0.2647,0.2794,0.05882,1.132,0.01471,0.02941,0.3382,0.2059,0.08824,0.1176,0.01471,0.1471,0,0.3382,0.3529,0,2.382,0.9559,0,0.01471,0,0.2059,0.05882,0.01471,0.1618,0.02941,0,0.3824,0.05882,0.07353,0.04412,0,0.05882,0.05882,1.324,0.1471,0.2059,0.04412,0.6912,0.4559,0.02941,0.02941,0.01471,0.01471,0.1324,0.01471,0.2647,0.02941,0,0.01471,0,0.2353,0.07353,0.05882,0.1471,3.074,0.3676,0,0.2941,0.01471,0.2353,0.02941,0,0.05882,0,0.02941,0.01471,0,7.132,0.02941,0.3235,0,0,0.01471,0.01471,0,0,0.07353,0.07353,0.25,0.8971,1.191,0.04412,0,0.02941,0.3676,0,0.1471,0.2059,0.02941,0.4412,0.75,0.2794,0.02941,0.02941,0.3971,0.01471,0.1176,0.07353,0.1765,0.05882,0.1176,0.01471,0,0.01471,0,2.044,0.6029,0.2206,0.04412,0.05882,0,0,0,0,0.04412,0.2206,0.5294,0.4559,0.2941,0.04412,0.02941,0.3824,0.05882,0.4559,0.1176,0.1324,0,0.1618,0,0, Summed MSE=339.354 
#> 
#> Node number 13: 86 observations
#>   Means=0.05814,0,0.06977,0.314,0.1628,0.1163,0,0.6628,0,0.186,0,0.9651,0.686,0.01163,0.8721,0.0814,0.1163,0.7558,0.1512,0,0,0.4302,0.01163,0.1395,0.593,0,0.6744,0.2093,0.06977,0,0,0.593,1.628,0.02326,0,0.2442,0,0.03488,0,1.302,0.1744,0.03488,1.186,1.384,0.01163,1.163,0.1047,0,0,0.1047,0.4419,0.2326,0,2.744,0.314,0,0,1.814,0,0,0.5814,0.01163,0.04651,0.01163,0.01163,0,0,0.03488,0.01163,0,0.02326,0,0.3953,0.2209,1.64,0.4535,4.43,1.779,0.4186,0.01163,0.05814,0.1279,0,0.6744,0,0,0.01163,0,3.453,0,0.04651,0,0,0.2558,0,0.9767,0,0,0.0814,0.5814,0,0.2791,0.1047,0,0.02326,0.2674,0.04651,0.01163,0,0,0,0,0,0,0.1744,0,0.01163,0.02326,0,0.3953,0.1395,0,0.4302,0.01163,0,0.02326,0,0.5465,0.01163,0,0.04651,0.01163,0.6744,1.093,0,0.3372,0.2558,0.02326,0.4767,0.04651,0.06977,0,0.02326,0,0.0814,0.9186,5.395,0.01163,2.616,0.4302,0.02326,1.442,0.01163,0,0.01163,0,0,0.02326,0,2.907,0.5698,0.3372,0.186,0.01163,0.2326,1.314,0.04651,0.03488,2.128,0.02326,5.186,0,0.186,0.7093,0.0814,0.6744,0.01163,0.5465,0.02326,0,0.8372,0.06977,0.01163,0.3488,0.2093,0.5581,0.5,0,0.02326,0.3488,0,0.03488,0.7093,0,0,0.02326,0.1744,0.05814,0,0.186,0.0814,0,0.1512,0.01163,0,0.05814,0.1744,0.3372,0.2209,0,0,0.0814,0.05814,0.1279,0,0,0,0,0,0,0,0,0.01163,1.733,0,0,0.1279,0,0.03488,0.02326,0,0.01163,1.93,0,0.03488,0.3488,0,0.1047,0,0.6163,0,0.01163,0.7326,0.05814,0,0.5,0.1047,0,0.9651,0.1395,0,0.2442,0.2326,0.01163,1.674,0,0,0.09302,0.06977,0.09302,0.3953,3.081,0.9302,0.03488,1.198,0.05814,0.03488,0.2442,0.3372,6.023,0.02326,0.5349,0,0.2209,0,0.02326,0,0,0.1744,1.465,0.01163,0.1279,0,0,0,2.558,0.01163,0.01163,0.1279,0.09302,2.384,0,0.1279,0,1.314,1.314,0.04651,0.1279,0,0.1744,0.1279,1.174,0,0.8372,0,0.03488,0.01163,0,0,2.14,0.1047,0.1047,0,0.02326,0,0.1744,0.01163,3.849,0.03488,0,0.5349,0.9302,1.5,0.06977,0.02326,0,0,0.3605,0.01163,0.02326,0.04651,0,0.02326,0,0,0.09302,0.09302,0.01163,0,0.01163,0,0.01163,0.4535,0.03488,0.01163,0,0.01163,0.01163,0,0.1512,0.0814,0,0.3488,0.02326,0.0814,0.5465,0.01163,0,0.1628,0.1628,0.02326,0.8256,0,0,0,0.3837,0.02326,0.0814,0.1512,0.3605,0.7093,0.01163,0.01163,0,0,0.05814,0.04651,0.2558,0.02326,0.1628,0.04651,0.02326,0.1395,0.1279,0,0,0.7326,0.3721,0.3023,0,0,0.09302,0.0814,0.5814,0.8837,0,0,0.5233,0.0814,0.01163,0,0,0.01163,0.3837,0,0.05814,0.8721,0.01163,0,0.6744,0.1628,0.1279,0.01163,0.1744,1.302,0.02326,0.02326,2.093,0,0,0.06977,0,0.3837,1.174,3.291,0,0.1628,0.02326,0.1628,1.093,0,0.03488,0.03488,0,2.756,0.1047,0.3721,0.0814,0,0,0,1.244,0.2558,0,1.163,1.058,0,0,0,0,0.686,0.1163,0.02326,0.01163,0.7558,0,0.01163,0.6977,0.1047,0.01163,0.3837,0.04651,0.01163,1.128,0,1.209,0,0.03488,0.5581,0.0814,0.4535,0.7791,0,0,0.02326,0.02326,0,0.1512,0.02326,0.01163,0,2.64,0.02326,0.3372,0.01163,0,0.02326,0.06977,0,0.02326,1.384,0.04651,0.4767,1.512,0.02326,0,0,0,0.4767,0.1047,0.5698,0,0.3605,0.02326,0,0.01163,0.5581,0.1163,0.4535,2.256,0.7209,0,0.05814,0.1395,1.5,0.1977,0,0.03488,0.1744,0.04651,0,0.02326,2.279,0.4535,0.5233,0.02326,0.02326,0.1395,0,0,0.03488,0.05814,0.02326,0.4186,0,0.5814,0.01163,0.186,0.2326,1,0.4419,0.186,0.02326,0,0.7326,0.01163,2,0,0.06977,0.09302,0.1047,0,0.01163,0.01163,0,0.01163,0,0.02326,0.05814,0.01163,0.9419,0,0.186,0.1744,1.64,0,0.1512,0.09302,0,0.04651,0.4535,3.186,0,0,0.2209,0,0.1512,0.05814,1.105,0.05814,0.06977,0,0.1279,0,0.01163, Summed MSE=636.114 
#> 
#> Node number 14: 204 observations
#>   Means=0.08824,0.1814,0,0.06863,0.02451,0.009804,0,1.044,0.02941,0.2451,0.04902,0.6176,0.6765,0.01471,0.3088,0.08333,0.1275,0.402,0.1176,0.1716,0,0.3676,0.009804,0.4216,0.4412,0.02941,0.09804,0.03431,0.05392,0,0,0.009804,0.6176,0.07353,0,0.2304,0.1765,0.009804,0.004902,1.5,0.02451,0.009804,1.167,0.3382,0,1.142,0.152,0.1667,0,0,0.2059,0.1912,0.01471,1.181,0.1127,0.03431,0.004902,0.8039,0.05882,0,0.2255,0.004902,0.009804,0.02941,0.01471,0.01961,0.004902,0.01961,0.004902,0.03922,0.01961,0.01471,0.1569,0.1422,1.392,0.1029,2.475,0.6471,0.1029,0.1471,0.04902,0.1324,0,0.2647,0,0.01961,0.03922,0.004902,1.843,0,0.02941,0.01961,0.1225,0.02941,0,0.6863,0.004902,0.04902,0.06373,0.1912,0.004902,0.3137,0,0.009804,0.004902,0.1275,0.09314,0.04412,0.03431,0.009804,0.02451,0.03922,0,0,0.02451,0,0.004902,0,0.02941,0.3088,0.1225,0.02451,0.1029,0.05882,0.004902,0.01471,0,0.1618,0,0,0.02451,0,0.01471,0.4118,0,0.009804,0.04902,0.03431,0.4412,0.1029,0.05392,0,0,0.004902,0,1.216,4.289,0.009804,1.083,0.07353,0.02941,1.858,0.004902,0.009804,0.004902,0.2745,0,0.004902,0.009804,0.5931,0.3333,0.3431,0.01471,0.1569,0.1716,2.005,0,0.1078,1.789,0.2892,3.299,0.05882,0.451,1.088,0.6176,0.6275,0,0.1863,0.2304,0.004902,0.004902,0,2.441,0.2255,0,0.4216,0.2647,0.004902,0.01961,0.3775,0,0.009804,0.4412,0.004902,0.01961,0.01961,0.3039,0.03922,0.01961,0.01961,0.01471,0,0.009804,0.004902,0.01961,0.009804,0.1716,0.06373,0.299,0.01471,0.009804,0.2108,0.009804,0.201,0.03431,0,0.004902,0,0,0,0.01471,0.004902,0,0.4167,0,0,0.004902,0,0.1127,0.01961,0,0.01471,0.3676,0,0.01471,0.06373,0.004902,0.03922,0,0.04412,0.009804,0,0.7353,0.1127,0.01471,0.3431,0.1569,0.004902,0.5049,0.06863,0,0.1471,0.05882,0,0.6569,0.02451,0.01961,0.08824,0.009804,0.004902,0.04902,1.956,0.5539,0.07843,0.4314,0.4706,0.1078,0.1176,0.1912,3.637,0,0.01471,0.01471,0.1324,0.2255,0.09314,0.03431,0.05882,0.4804,1.637,0,0.02941,0,0.004902,0,0.1471,0.2402,0.05882,0.1373,0.07353,0.3382,0.01471,0.4951,0.01471,1.98,0.8627,0,0.01961,0.004902,0.2745,0.348,0.8971,0,0.4265,0.01961,0,0.004902,0.004902,0.009804,1.838,0.05392,0.01471,0,0.009804,0.004902,0.02451,0.1078,0.7647,0.01961,0,0.1765,1.338,0.4118,0.1127,0.01471,0.004902,0.03922,0.02941,0.01961,0.04412,0.02451,0,0.01961,0.004902,0.009804,0.1127,0.1225,0.009804,0,0.009804,0.004902,0,0.1667,0,0.004902,0.04412,0.03922,0.009804,0.004902,0.01471,0.009804,0,0.009804,0.04412,0.004902,0.03922,0,0,0.01961,0.1373,0,4.436,0.01471,0.02941,0.009804,0.05882,0.009804,0.5833,0.1569,0.1275,0.7059,0,0.01961,0.004902,0.009804,0,0.2353,0.1422,0.02451,0.2402,0.1961,0.04412,0,0.009804,0.009804,0,0.2843,0.2892,0.05392,0.01471,0.004902,0.05882,0.01961,0.8725,0.1225,0.02451,0.009804,0.4559,0.25,0.3284,0.009804,0.004902,0.01961,0.1275,0,0,0.201,0.009804,0.004902,0.2941,0.1275,0.05392,0,0.01471,0.848,0.01961,0,0.4363,0,0.004902,0.009804,0,2.373,2.74,1.725,0,0.6618,0.009804,0.3039,1.108,0.01471,0,0.02941,0,0.6422,0.01961,0.1324,0.02451,0.01471,0.01961,0.004902,0.7696,0.04902,0.009804,0.06373,0.07843,0,0.04412,0.02451,0,0.1422,0.1961,0,0.01471,0.6716,0.004902,0.01961,0.9755,0.05392,0.004902,0.2843,0.04412,0.04412,0.4216,0.05882,1.221,0.004902,0.1127,0.08824,0.004902,1.471,1.623,0.004902,0,0.07353,0.009804,0,0,0.2549,0,0.004902,1.544,0.009804,0.08824,0.01471,0,0.06863,0.04412,0.09804,0.1569,1.294,0.02451,0.1863,1.191,0.01471,0.01471,0.02941,0,0.1765,0.1176,1.01,0,0,0.004902,0,0.1716,0.2108,0.1029,0.1078,0.2941,0.3333,0,0.2255,0.1225,0.6569,0.004902,0.004902,0.03431,0.03431,0.01471,0.01471,0,24.85,0.5049,0.3676,0,0,0.004902,0,0.009804,0,0,0.03431,0.1912,0.01961,0.5147,0.05882,0,0.004902,0.2794,0.03431,0.2598,0.03431,0,0.5294,0.06373,1.078,0,0.01471,0.05392,0.03922,0.03431,0.03922,0.04412,0.01471,0,0,0,0.02451,0.04902,0.7647,0.8824,0.4363,0.1471,0.3824,0.004902,0,0,0.009804,0.03431,0.4559,1.123,0.2402,0.02451,0.1373,0.03922,0.9657,0.06863,1.059,0.1569,0.1373,0.05392,0.1127,0,0, Summed MSE=480.8093 
#> 
#> Node number 15: 123 observations
#>   Means=0.03252,0.2195,0,0.0813,0.00813,0,0,1.317,0.04878,0.4797,0.04878,0.9675,1.333,0,0.3008,0.07317,0.1707,0.3577,0.2033,0.09756,0.06504,0.7724,0.00813,0,0.3659,0.04878,0.1382,0.1138,0.122,0,0,0,0.5935,0.2033,0,0.07317,0.00813,0.00813,0,4.65,0.00813,0.03252,1.407,0.1301,0.00813,1.26,0.3089,0.2195,0,0,0.0813,0.08943,0,1.39,0.3252,0.06504,0.00813,1.065,0.05691,0,0.3821,0.02439,0.03252,0,0.00813,0.01626,0,0.03252,0,0.05691,0.04065,0.02439,0.3171,0.2195,1.488,0.2602,2.732,0.5528,0.02439,0.1707,0.07317,0.07317,0,0.3659,0.00813,0.1138,0,0,1.472,0,0.1057,0.00813,0.04878,0.02439,0,1.033,0,0.09756,0.2764,0.1707,0,0.4634,0,0,0.01626,0.1545,0.03252,0.02439,0,0.00813,0.01626,0.00813,0.00813,0,0.03252,0,0,0,0.05691,0.9268,0.7236,0.00813,0.01626,0.01626,0.00813,0.02439,0,0.252,0,0.00813,0.0813,0,3.829,1.081,0,0.00813,0,0.04065,0.3496,0.1057,0.1382,0,0.05691,0,0.07317,0.6667,4.87,0.01626,1.561,0.06504,0.05691,1.764,0.01626,0,0.00813,0.6504,0,0,0,0.6179,0.1138,0.5041,0.02439,0.4959,0.08943,1.715,0,0.04065,1.813,0.2276,3.382,0,0.3415,0.7967,0.439,0.6585,0,0.08943,0.1626,0.00813,0.2195,0,1.138,0.3171,0,0.3089,0.252,0,0.07317,0.374,0,0,1.317,0.00813,0,0.08943,0.4878,0.02439,0.02439,0.05691,0.01626,0.00813,0.00813,0.04065,0.01626,0.02439,0.2195,0.1463,0.2764,0,0.00813,0.2602,0.01626,0.2195,0,0,0.00813,0,0,0,0,0,0,0.8699,0,0.00813,0,0,0.1707,0.05691,0,0.00813,2.236,0,0,0.3577,0.00813,0.1789,0,0.3984,0,0.00813,0.626,0.1545,0.02439,0.4797,0.1057,0,0.5122,0.06504,0.00813,0.187,0.01626,0.00813,0.4146,0.01626,0,0,0.00813,0.02439,0.2683,1.764,0.935,0.1057,0.3496,0.5041,0.03252,0.08943,0.2276,5.057,0,0.02439,0,0.2114,0.04878,0.08943,0.00813,0.02439,0.6911,2.683,0,0.09756,0.00813,0.00813,0,0.3984,0.03252,0.07317,0.04878,0.0813,0.1626,0.00813,0.6179,0,1.837,0.6667,0,0.02439,0,0.3008,0.2033,1.407,0,0.6585,0,0,0,0,0.04065,2.39,0.08943,0.00813,0.00813,0.00813,0.09756,0.03252,0.2276,1.805,0.00813,0.00813,0.2846,1.642,0.3902,0.1707,0,0,0,0.05691,0,0.01626,0.1138,0.02439,0.04065,0,0.01626,0.1789,0.2683,0,0,0.01626,0,0,0.1545,0,0.01626,0.03252,0.02439,0,0,0.03252,0,0,0.1057,0.00813,0,0.04878,0.00813,0,0.03252,0.3333,0,7.715,0,0,0.03252,0.02439,0.00813,1.439,0.3008,0.2439,0.813,0,0,0,0,0.00813,0.1382,0.1138,0.07317,0.2114,0.0813,0,0.01626,0.00813,0,0.00813,0.2276,0.252,0.1707,0.02439,0,0.09756,0.00813,0.4634,0.1626,0,0,0.6748,0.2846,0.3902,0,0.00813,0.1463,0.07317,0,0.01626,0.3902,0.02439,0,0.2195,0.2033,0.05691,0,0.01626,1.724,0.00813,0,0.7398,0,0,0,0.00813,3.626,3.886,1.325,0,0.4634,0.05691,0.4959,0.748,0,0,0,0,1.715,0.05691,0.0813,0.02439,0.02439,0.00813,0,0.8699,0.1382,0.00813,0.2439,0.1789,0,0,0.01626,0.01626,0.1057,0.1301,0,0,0.748,0,0,1.407,0.09756,0.00813,0.3252,0.1382,0.06504,1.089,0,0.7236,0,0.1301,0.1707,0.03252,2.984,1.553,0.01626,0,0.07317,0.02439,0,0.02439,0.00813,0,0,2.333,0.00813,0.0813,0.01626,0,0.07317,0.00813,0,0.2683,2.293,0.06504,0.626,0.8699,0.05691,0,0,0,0.3415,0.0813,1.236,0,0.00813,0.1707,0.00813,0.2927,0.4228,0.1951,0.187,0.4309,0.3089,0,0.07317,0.00813,0.3333,0.03252,0,0.00813,0.00813,0.02439,0,0,17.03,0.4472,0.7642,0,0,0.00813,0,0,0,0,0.03252,0.1545,0.00813,0.8618,0.01626,0,0.0813,0.439,0.06504,0.3333,0.2276,0,0.6098,0.03252,1.285,0,0.01626,0.02439,0.04878,0,0,0.05691,0.00813,0,0,0,0.04878,0.03252,1.618,0.8293,0.4715,0.187,0.5366,0,0,0.00813,0,0.01626,0.439,1.228,0.08943,0.00813,0.1951,0,0.2358,0.02439,1.317,0.1463,0.07317,0.122,0.08943,0.00813,0, Summed MSE=634.9525

Groupings

table(mvpart_run1$where)
#> 
#>   4   5   7   8  11  12  14  15 
#>  18  29  69   3  68  86 204 123

Map

plot_where <- function(run) {
  run <- get(run)
  # Data
  index <- 1:600
  grouped_quadrats <- index %>% 
    index.to.gxgy(plotdim = c(600, 400)) %>%
    as_tibble() %>% 
    mutate(
      index = index,
      group = as.factor(run$where)
    )
  
  # Plot
  ggplot(grouped_quadrats, aes(gx, gy)) +
    geom_raster(aes(fill = group)) +
    geom_text(aes(label = index)) +
    theme_minimal()
}
plot_where("mvpart_run1")

Evaluation

Compare multiple runs of the same model

Two runs of the same model are different because the algorithm uses random numbers.

set.seed(1234)  # Set a new seed for random numbers
mvpart_run2 <- mvpart(form = formula, data = environmental_variables)

# Set a different seed and re-run the exact same model
set.seed(4321)  
mvpart_run3 <- mvpart(form = formula, data = environmental_variables)

# compare all models run
all.equal(mvpart_run1, mvpart_run2)
#> [1] "Component \"call\": target, current do not match when deparsed"
#> [2] "Component \"cptable\": Mean relative difference: 0.01877428"
all.equal(mvpart_run1, mvpart_run3)
#>  [1] "Component \"frame\": Attributes: < Component \"row.names\": Numeric: lengths (15, 13) differ >"                  
#>  [2] "Component \"frame\": Component \"var\": Lengths: 15, 13"                                                         
#>  [3] "Component \"frame\": Component \"var\": Lengths (15, 13) differ (string compare on first 13)"                    
#>  [4] "Component \"frame\": Component \"var\": 1 string mismatch"                                                       
#>  [5] "Component \"frame\": Component \"n\": Numeric: lengths (15, 13) differ"                                          
#>  [6] "Component \"frame\": Component \"wt\": Numeric: lengths (15, 13) differ"                                         
#>  [7] "Component \"frame\": Component \"dev\": Numeric: lengths (15, 13) differ"                                        
#>  [8] "Component \"frame\": Component \"yval\": Numeric: lengths (15, 13) differ"                                       
#>  [9] "Component \"frame\": Component \"complexity\": Numeric: lengths (15, 13) differ"                                 
#> [10] "Component \"frame\": Component \"ncompete\": Numeric: lengths (15, 13) differ"                                   
#> [11] "Component \"frame\": Component \"nsurrogate\": Numeric: lengths (15, 13) differ"                                 
#> [12] "Component \"frame\": Component \"yval2\": Attributes: < Component \"dim\": Mean relative difference: 0.1333333 >"
#> [13] "Component \"frame\": Component \"yval2\": Numeric: lengths (8775, 7605) differ"                                  
#> [14] "Component \"where\": Mean relative difference: 0.09572431"                                                       
#> [15] "Component \"call\": target, current do not match when deparsed"                                                  
#> [16] "Component \"cptable\": Attributes: < Component \"dim\": Mean relative difference: 0.1428571 >"                   
#> [17] "Component \"cptable\": Numeric: lengths (35, 30) differ"                                                         
#> [18] "Component \"splits\": Attributes: < Component \"dim\": Mean relative difference: 0.1428571 >"                    
#> [19] "Component \"splits\": Numeric: lengths (175, 150) differ"
all.equal(mvpart_run2, mvpart_run3)
#>  [1] "Component \"frame\": Attributes: < Component \"row.names\": Numeric: lengths (15, 13) differ >"                  
#>  [2] "Component \"frame\": Component \"var\": Lengths: 15, 13"                                                         
#>  [3] "Component \"frame\": Component \"var\": Lengths (15, 13) differ (string compare on first 13)"                    
#>  [4] "Component \"frame\": Component \"var\": 1 string mismatch"                                                       
#>  [5] "Component \"frame\": Component \"n\": Numeric: lengths (15, 13) differ"                                          
#>  [6] "Component \"frame\": Component \"wt\": Numeric: lengths (15, 13) differ"                                         
#>  [7] "Component \"frame\": Component \"dev\": Numeric: lengths (15, 13) differ"                                        
#>  [8] "Component \"frame\": Component \"yval\": Numeric: lengths (15, 13) differ"                                       
#>  [9] "Component \"frame\": Component \"complexity\": Numeric: lengths (15, 13) differ"                                 
#> [10] "Component \"frame\": Component \"ncompete\": Numeric: lengths (15, 13) differ"                                   
#> [11] "Component \"frame\": Component \"nsurrogate\": Numeric: lengths (15, 13) differ"                                 
#> [12] "Component \"frame\": Component \"yval2\": Attributes: < Component \"dim\": Mean relative difference: 0.1333333 >"
#> [13] "Component \"frame\": Component \"yval2\": Numeric: lengths (8775, 7605) differ"                                  
#> [14] "Component \"where\": Mean relative difference: 0.09572431"                                                       
#> [15] "Component \"cptable\": Attributes: < Component \"dim\": Mean relative difference: 0.1428571 >"                   
#> [16] "Component \"cptable\": Numeric: lengths (35, 30) differ"                                                         
#> [17] "Component \"splits\": Attributes: < Component \"dim\": Mean relative difference: 0.1428571 >"                    
#> [18] "Component \"splits\": Numeric: lengths (175, 150) differ"

Visualize grouping of three different runs

paste0("mvpart_run", 1:3) %>% purrr::map(plot_where)
#> [[1]]

#> 
#> [[2]]

#> 
#> [[3]]

mvpart() fails with scaled abundance data

The clustering actually is weird. It groups the top of the hill and the bottom
of the hill (red and green on the map) together in the second split. The
species are really different between these habitats, which suggests there is
an error.

The classification tree seems to be entirely driven by the soils, and the
species don’t carry much weight.

I wonder if the results would differ after scaling the species data (scale function in base package).

These are data for each tree species normalized to a mean of 0 and standard deviation of 1, which creates a cleaner output for interpretation

https://goo.gl/zDLdMi

# Standarize

abundance <- data.matrix(KC3spp20)
abund_scaled <- scale(abundance)

# Ad-hoc function to check that all columns have mean = 0 and sd = 1
are_all_columns_near <- function(.data, .near, .f) {
  # Arguments:
  #   .data: Dataframe or matrix.
  #   .near: Scalar.
  #   .f: Summary function such as mean and sd to apply to all columns of data.
  # Value:
  #   Returns TRUE if all columns are near .near; FALSE otherwise.
  .data %>% 
    as_tibble() %>%
    summarise_all(.f) %>% 
    purrr::map(dplyr::near, .near) %>%
    as.logical() %>% 
    all()
}
abundance %>% are_all_columns_near(0, mean)
#> [1] FALSE
abund_scaled %>% are_all_columns_near(0, mean)
#> [1] TRUE
abundance %>% are_all_columns_near(1, sd)
#> [1] FALSE
abund_scaled %>% are_all_columns_near(1, sd)
#> [1] TRUE
# Re-run analysis that resulted in mvpart_run1

formula_scaled <- abund_scaled ~ RB_NO3 + RB_NH4 + RB_PO4 + Al + pH_water +
  Na + Mn + Mg + K + Fe + Ca + BS + ECEC + Bray_P + meanelev + convex + slope

set.seed(1221) # same seed as for mvpart_run1

# This one fails
mvpart_run1_scaled <- mvpart(
  form = formula_scaled, 
  data = environmental_variables,
  all.leaves = TRUE,  # annotate all nodes
  rsq = TRUE,  # give "rsq" plot
  pca = TRUE,  # plot PCA of group means and add species and site information
  wgt.ave.pca = TRUE  # plot weighted averages acorss sites for species
)
#> rpart(formula = form, data = data)
#> 
#> Variables actually used in tree construction:
#> [1] RB_PO4
#> 
#> Root node error: 350415/600 = 584.03
#> 
#> n= 600 
#> 
#>         CP nsplit rel error xerror     xstd
#> 1 0.019712      0   1.00000 1.0034 0.028632
#> 2 0.016878      1   0.98029 0.9885 0.028311
#> May not be applicable for this method

#> Error in rpart.pca(z, interact = interact.pca, wgt.ave = wgt.ave.pca): Only 2 terminal nodes -- PCA not done !!

The scaled data fails. Repeating mvpart_run1 to check it runs again:

abundance <- data.matrix(KC3spp20)
environmental_variables <- kc.hab

formula <- abundance ~ RB_NO3 + RB_NH4 + RB_PO4 + Al + pH_water + Na + Mn + 
  Mg + K + Fe + Ca + BS + ECEC + Bray_P + meanelev + convex + slope

# Set a new seed for random numbers to ensure results are reproducible
set.seed(1221)

# See `?mvpart()` for argument details
mvpart_run1 <- mvpart(
  form = formula, 
  data = environmental_variables,
  all.leaves = TRUE,  # annotate all nodes
  rsq = TRUE,  # give "rsq" plot
  pca = TRUE,  # plot PCA of group means and add species and site information
  wgt.ave.pca = TRUE  # plot weighted averages acorss sites for species
)
#> rpart(formula = form, data = data)
#> 
#> Variables actually used in tree construction:
#> [1] Bray_P   BS       Fe       meanelev pH_water RB_PO4  
#> 
#> Root node error: 483776/600 = 806.29
#> 
#> n= 600 
#> 
#>         CP nsplit rel error  xerror     xstd
#> 1 0.083600      0   1.00000 1.00355 0.040850
#> 2 0.025010      2   0.83280 0.85445 0.035633
#> 3 0.021388      3   0.80779 0.85882 0.035499
#> 4 0.021148      4   0.78640 0.84342 0.035072
#> 5 0.021020      5   0.76525 0.84155 0.035058
#> 6 0.020172      6   0.74423 0.82880 0.034711
#> 7 0.014623      7   0.72406 0.80000 0.033189
#> May not be applicable for this method

Miscelaneas

Example: Path from root to leaf node in mvpart

I was recently asked by a R user about how one could extract the “rule” in a classification/regression tree. The requirement was to obtain the path traced from the root node to the leaf nodes and obtain all the paths or “rules”

path.rpart() function in the mvpart package provides this convenience

https://goo.gl/DgTNFE

library(mvpart)

# Create a classification tree
ozone <- mvpart(Ozone ~ ., data = airquality)

print(ozone) # Gives you the various splits in the tree
#> n=116 (37 observations deleted due to missingness)
#> 
#> node), split, n, deviance, yval
#>       * denotes terminal node
#> 
#> 1) root 116 125143.100  42.12931  
#>   2) Temp< 82.5 79  42531.590  26.54430  
#>     4) Wind>=6 77  14010.990  23.55844 *
#>     5) Wind< 6 2   1404.500 141.50000 *
#>   3) Temp>=82.5 37  22452.920  75.40541  
#>     6) Temp< 87.5 20  12046.950  62.95000 *
#>     7) Temp>=87.5 17   3652.941  90.05882 *

# Issue the two commands below to see the graphical representation
plot(ozone)
text(ozone)


# To obtain the summary of the created tree
summary(ozone)
#> Call:
#> mvpart(form = Ozone ~ ., data = airquality)
#>   n=116 (37 observations deleted due to missingness)
#> 
#>           CP nsplit rel error    xerror       xstd
#> 1 0.48071820      0 1.0000000 1.0074380 0.16730714
#> 2 0.21668088      1 0.5192818 0.6032604 0.19589580
#> 3 0.05396246      2 0.3026009 0.5451161 0.18139524
#> 4 0.03127077      3 0.2486385 0.3942332 0.08050562
#> 
#> Node number 1: 116 observations,    complexity param=0.4807182
#>   mean=42.12931, MSE=1078.819 
#>   left son=2 (79 obs) right son=3 (37 obs)
#>   Primary splits:
#>       Temp    < 82.5 to the left,  improve=0.48071820, (0 missing)
#>       Wind    < 6.6  to the right, improve=0.40426690, (0 missing)
#>       Solar.R < 153  to the left,  improve=0.21080020, (5 missing)
#>       Month   < 6.5  to the left,  improve=0.11595770, (0 missing)
#>       Day     < 24.5 to the left,  improve=0.08216807, (0 missing)
#> 
#> Node number 2: 79 observations,    complexity param=0.2166809
#>   mean=26.5443, MSE=538.3746 
#>   left son=4 (77 obs) right son=5 (2 obs)
#>   Primary splits:
#>       Wind    < 6    to the right, improve=0.63755210, (0 missing)
#>       Temp    < 77.5 to the left,  improve=0.22489660, (0 missing)
#>       Day     < 24.5 to the left,  improve=0.13807170, (0 missing)
#>       Solar.R < 153  to the left,  improve=0.10449720, (2 missing)
#>       Month   < 8.5  to the right, improve=0.01924449, (0 missing)
#> 
#> Node number 3: 37 observations,    complexity param=0.05396246
#>   mean=75.40541, MSE=606.8356 
#>   left son=6 (20 obs) right son=7 (17 obs)
#>   Primary splits:
#>       Temp    < 87.5 to the left,  improve=0.3007639, (0 missing)
#>       Wind    < 10.6 to the right, improve=0.2739298, (0 missing)
#>       Solar.R < 131  to the left,  improve=0.1608206, (3 missing)
#>       Day     < 1.5  to the right, improve=0.1513779, (0 missing)
#>       Month   < 6.5  to the left,  improve=0.0392086, (0 missing)
#> 
#> Node number 4: 77 observations
#>   mean=23.55844, MSE=181.9609 
#> 
#> Node number 5: 2 observations
#>   mean=141.5, MSE=702.25 
#> 
#> Node number 6: 20 observations
#>   mean=62.95, MSE=602.3475 
#> 
#> Node number 7: 17 observations
#>   mean=90.05882, MSE=214.8789

# To obtain the path to the leaf nodes
ozone$frame
#>      var   n  wt        dev      yval  complexity ncompete nsurrogate
#> 1   Temp 116 116 125143.060  42.12931 0.480718198        4          0
#> 2   Wind  79  79  42531.595  26.54430 0.216680876        4          0
#> 4 <leaf>  77  77  14010.987  23.55844 0.031270766        0          0
#> 5 <leaf>   2   2   1404.500 141.50000 0.010000000        0          0
#> 3   Temp  37  37  22452.919  75.40541 0.053962463        4          0
#> 6 <leaf>  20  20  12046.950  62.95000 0.025989987        0          0
#> 7 <leaf>  17  17   3652.941  90.05882 0.005931408        0          0
leafnodeRows <- grepl("leaf", ozone$frame$var)
nodevals <- as.numeric(rownames(ozone$frame)[leafnodeRows])
rules <- path.rpart(ozone, nodevals)
#> 
#>  node number: 4 
#>    root
#>    Temp< 82.5
#>    Wind>=6
#> 
#>  node number: 5 
#>    root
#>    Temp< 82.5
#>    Wind< 6
#> 
#>  node number: 6 
#>    root
#>    Temp>=82.5
#>    Temp< 87.5
#> 
#>  node number: 7 
#>    root
#>    Temp>=82.5
#>    Temp>=87.5

rulesdf <- do.call(
  "rbind", 
  lapply(rules, function(x) paste(x, collapse = " -AND- "))
)
rulesdf <- data.frame(
  nodeNumber = rownames(rulesdf), 
  rule = rulesdf[, 1], 
  stringsAsFactors = FALSE
)
rulesdf
#>   nodeNumber                                   rule
#> 4          4    root -AND- Temp< 82.5 -AND- Wind>=6
#> 5          5    root -AND- Temp< 82.5 -AND- Wind< 6
#> 6          6 root -AND- Temp>=82.5 -AND- Temp< 87.5
#> 7          7 root -AND- Temp>=82.5 -AND- Temp>=87.5

Package rpart does not handle multi variate data

The rpart package seems like a good alternative because ?mvpart::mvpart() says it’s a wrapper of rpart(). However, mvpart::rpart() works with multivariate data, but rpart::rpart() does not.

mvpart::rpart(form = formula, data = environmental_variables)  # passes
rpart::rpart(form = formula, data = environmental_variables)  # fails

rpart is active but mvpart is not. Maybe the authors can inform where else mvpart functions can be found.

Access rpart’s vignettes from R with:

browseVignettes("rpart")

# An Introduction to Recursive Partitioning Using the RPART Rutines (62 pages)
vignette("longintro")

Learning more