ature readings (formerly dewpoint)</p>
</dd>
</dl>



<h3>Source</h3>

<p>Dr Edward Linacre,
visiting fellow in the Australian National University Department
of Geography. 
</p>


<h3>Examples</h3>

<pre><code class='language-R'>print("Additive Model - Example 7.5")
require(splines)
attach(dewpoint)   
ds.lm &lt;- lm(dewpt ~ bs(maxtemp,5) + bs(mintemp,5), data=dewpoint)
ds.fit &lt;-predict(ds.lm, type="terms", se=TRUE)
oldpar &lt;- par(mfrow=c(1,2))
plot(maxtemp, ds.fit$fit[,1], xlab="Maximum temperature",
