Overall TP vs pCHL relationship by groups

TP vs pCHL relationship by Lakes and groups

GAMs by Lake group

Group1

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP) + s(logTN) + s(logNTU) + s(logNVSS) + s(Year)
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  2.94774    0.01828   161.2   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##              edf Ref.df       F  p-value    
## s(logTP)   2.640  3.367  61.762  < 2e-16 ***
## s(logTN)   2.548  3.285  17.284 1.65e-11 ***
## s(logNTU)  3.222  4.067 164.494  < 2e-16 ***
## s(logNVSS) 4.813  5.972   2.664 0.016586 *  
## s(Year)    7.386  8.371   3.594 0.000255 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.514   Deviance explained = 52.4%
## GCV = 0.33798  Scale est. = 0.33059   n = 989

Group 2

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP) + s(logTN) + s(logNTU) + s(logNVSS) + s(Year)
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  2.73056    0.01848   147.8   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##              edf Ref.df      F  p-value    
## s(logTP)   4.910  6.045 45.091  < 2e-16 ***
## s(logTN)   4.251  5.293 26.545  < 2e-16 ***
## s(logNTU)  6.588  7.764  7.403 4.17e-09 ***
## s(logNVSS) 2.230  2.841  2.533   0.0617 .  
## s(Year)    3.859  4.672  3.012   0.0120 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.826   Deviance explained = 83.3%
## GCV = 0.19802  Scale est. = 0.18988   n = 556

Group 3

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP) + s(logTN) + s(logNTU) + s(logNVSS) + s(Year)
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  0.59800    0.02616   22.86   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##              edf Ref.df      F  p-value    
## s(logTP)   1.910  2.434 46.460  < 2e-16 ***
## s(logTN)   4.483  5.538  2.771 0.015908 *  
## s(logNTU)  5.501  6.654  3.423 0.002077 ** 
## s(logNVSS) 1.000  1.000  1.831 0.176957    
## s(Year)    1.000  1.000 15.195 0.000117 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.385   Deviance explained = 41.1%
## GCV = 0.24138  Scale est. = 0.23071   n = 337

Group 4

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP) + s(logTN) + s(logNTU) + s(logNVSS) + s(Year)
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  2.56980    0.01124   228.7   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##              edf Ref.df       F  p-value    
## s(logTP)   3.996  4.988 200.810  < 2e-16 ***
## s(logTN)   4.184  5.225  27.475  < 2e-16 ***
## s(logNTU)  5.428  6.611  42.442  < 2e-16 ***
## s(logNVSS) 1.000  1.001   0.331    0.565    
## s(Year)    7.512  8.463   4.055 5.96e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.809   Deviance explained = 81.2%
## GCV = 0.21253  Scale est. = 0.20957   n = 1660

Group 5

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP) + s(logTN) + s(logNTU) + s(logNVSS) + s(Year)
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  3.08564    0.02268   136.1   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##              edf Ref.df      F p-value    
## s(logTP)   4.188  5.188 36.787  <2e-16 ***
## s(logTN)   3.661  4.652 23.253  <2e-16 ***
## s(logNTU)  8.534  8.935 24.018  <2e-16 ***
## s(logNVSS) 3.464  4.375  1.799  0.1256    
## s(Year)    1.000  1.000  4.760  0.0296 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.704   Deviance explained = 71.7%
## GCV = 0.26378  Scale est. = 0.25201   n = 490

Merge Groups 2 and 4 and Groups 1 and 5

Plot by groups

Plot by groups and Lakes

GAMS with TP, TN and NTU with month interaction

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP, factor(Month), bs = "fs") + s(logTN, factor(Month), 
##     bs = "fs") + s(logNTU, factor(Month), bs = "fs")
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   3.7617     0.3789   9.929   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##                           edf Ref.df     F p-value    
## s(logTP,factor(Month))  15.59     39 13.37  <2e-16 ***
## s(logTN,factor(Month))  11.14     36  5.36  <2e-16 ***
## s(logNTU,factor(Month)) 12.77     39 21.45  <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =   0.61   Deviance explained = 62.1%
## GCV = 0.29703  Scale est. = 0.2889    n = 1479

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP, factor(Month), bs = "fs") + s(logTN, factor(Month), 
##     bs = "fs") + s(logNTU, factor(Month), bs = "fs")
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)    2.862      9.602   0.298    0.766
## 
## Approximate significance of smooth terms:
##                           edf Ref.df      F p-value    
## s(logTP,factor(Month))  15.97     39 38.598  <2e-16 ***
## s(logTN,factor(Month))  16.46     39  7.210  <2e-16 ***
## s(logNTU,factor(Month)) 13.95     39  5.858  <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.812   Deviance explained = 81.6%
## GCV = 0.21156  Scale est. = 0.20703   n = 2216

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP, factor(Month), bs = "fs") + s(logTN, factor(Month), 
##     bs = "fs") + s(logNTU, factor(Month), bs = "fs")
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   0.6096     0.1555    3.92 0.000108 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##                           edf Ref.df     F  p-value    
## s(logTP,factor(Month))  3.856     28 4.739  < 2e-16 ***
## s(logTN,factor(Month))  8.651     36 1.049 3.95e-06 ***
## s(logNTU,factor(Month)) 2.423     27 0.335  0.00693 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.376   Deviance explained = 40.3%
## GCV = 0.24604  Scale est. = 0.23441   n = 337

Groups alternative 2

4 groups merge 2 and 4 only.

Plot by groups and Lakes

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP, factor(Month), bs = "fs") + s(logTN, factor(Month), 
##     bs = "fs") + s(logNTU, factor(Month), bs = "fs")
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   3.7162     0.3158   11.77   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##                           edf Ref.df      F p-value    
## s(logTP,factor(Month))  11.39     39  7.388  <2e-16 ***
## s(logTN,factor(Month))  11.68     37  2.606  <2e-16 ***
## s(logNTU,factor(Month)) 10.22     39 13.802  <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.544   Deviance explained = 55.9%
## GCV = 0.32163  Scale est. = 0.31047   n = 989

Group2

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP, factor(Month), bs = "fs") + s(logTN, factor(Month), 
##     bs = "fs") + s(logNTU, factor(Month), bs = "fs")
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)    2.862      9.602   0.298    0.766
## 
## Approximate significance of smooth terms:
##                           edf Ref.df      F p-value    
## s(logTP,factor(Month))  15.97     39 38.598  <2e-16 ***
## s(logTN,factor(Month))  16.46     39  7.210  <2e-16 ***
## s(logNTU,factor(Month)) 13.95     39  5.858  <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.812   Deviance explained = 81.6%
## GCV = 0.21156  Scale est. = 0.20703   n = 2216

Group3

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP, factor(Month), bs = "fs") + s(logTN, factor(Month), 
##     bs = "fs") + s(logNTU, factor(Month), bs = "fs")
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   0.6096     0.1555    3.92 0.000108 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##                           edf Ref.df     F  p-value    
## s(logTP,factor(Month))  3.856     28 4.739  < 2e-16 ***
## s(logTN,factor(Month))  8.651     36 1.049 3.95e-06 ***
## s(logNTU,factor(Month)) 2.423     27 0.335  0.00693 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.376   Deviance explained = 40.3%
## GCV = 0.24604  Scale est. = 0.23441   n = 337

Group4

## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## logpCHL ~ s(logTP, factor(Month), bs = "fs") + s(logTN, factor(Month), 
##     bs = "fs") + s(logNTU, factor(Month), bs = "fs")
## 
## Parametric coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    4.255      1.241   3.428 0.000666 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Approximate significance of smooth terms:
##                           edf Ref.df     F p-value    
## s(logTP,factor(Month))  27.61     39 7.561  <2e-16 ***
## s(logTN,factor(Month))  10.57     37 3.359  <2e-16 ***
## s(logNTU,factor(Month)) 21.75     37 4.269  <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## R-sq.(adj) =  0.764   Deviance explained = 79.3%
## GCV = 0.23013  Scale est. = 0.20151   n = 490