```r
mod<-gam(data=TMean,temp~s(Year))
anova(mod)
```

```
## 
## Family: gaussian 
## Link function: identity 
## 
## Formula:
## temp ~ s(Year)
## 
## Approximate significance of smooth terms:
##           edf Ref.df    F  p-value
## s(Year) 5.885  7.044 8.14 5.07e-08
```