20.06.2013 Views

Dispensa di modelli lineari in R - Dipartimento di Statistica

Dispensa di modelli lineari in R - Dipartimento di Statistica

Dispensa di modelli lineari in R - Dipartimento di Statistica

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

CAPITOLO 7. MODELLO DI REGRESSIONE LINEARE MULTIPLA 62<br />

temp<br />

180 185 190 195 200 205 210<br />

●●●<br />

●<br />

●<br />

●<br />

● ●<br />

●<br />

●<br />

●<br />

● ●<br />

●●<br />

●<br />

●●<br />

●<br />

●<br />

●<br />

●<br />

16 18 20 22 24 26 28<br />

press<br />

Figura 7.2: Diagramma <strong>di</strong> <strong>di</strong>spersione e retta stimata.<br />

Residuals<br />

Standar<strong>di</strong>zed residuals<br />

−2.0 0.0 1.5<br />

0.0 1.0<br />

Residuals vs Fitted<br />

●13<br />

●<br />

●<br />

● ● ●<br />

●●<br />

● ●<br />

● ●<br />

●<br />

●●<br />

●●<br />

● ●<br />

●<br />

●30<br />

●<br />

●<br />

●<br />

185 195 205<br />

●<br />

Fitted values<br />

Scale−Location<br />

●30<br />

●13<br />

●<br />

●<br />

●<br />

●<br />

● ● ●<br />

●<br />

●● ● ●<br />

●<br />

●<br />

● ●<br />

●●<br />

●<br />

●●<br />

●<br />

●<br />

●<br />

●<br />

185 195 205<br />

●<br />

Fitted values<br />

●<br />

●<br />

1●<br />

1●<br />

●<br />

●<br />

Standar<strong>di</strong>zed residuals<br />

Standar<strong>di</strong>zed residuals<br />

−2 0 1 2<br />

−2 0 2<br />

●<br />

●<br />

Normal Q−Q<br />

●<br />

●<br />

13●<br />

●<br />

● ●<br />

● ●<br />

● ●<br />

● ●●<br />

●<br />

●<br />

●<br />

●●●<br />

●<br />

●●<br />

●●<br />

●<br />

●<br />

●<br />

●30<br />

●1<br />

−2 −1 0 1 2<br />

Theoretical Quantiles<br />

Residuals vs Leverage<br />

●<br />

●<br />

●<br />

● ●<br />

● ●<br />

●<br />

●<br />

●<br />

● 0.5<br />

●<br />

●<br />

●<br />

● ●<br />

●<br />

●●<br />

● ●<br />

● ●<br />

●<br />

2<br />

Cook's ● <strong>di</strong>stance 3 0.5<br />

1 1<br />

0.00 0.05 0.10 0.15 0.20<br />

Leverage<br />

Figura 7.3: Analisi grafica dei residui.<br />

> hook.rstand hist(hook.rstand)<br />

> boxplot(hook.rstand)<br />

In conclusione, l’analisi dei residui non appare del tutto sod<strong>di</strong>sfacente, nonostante il<br />

valore elevato <strong>di</strong> R 2 e la significatività dei coefficienti della regressione.<br />

Per capire come <strong>in</strong><strong>di</strong>viduare un modello con migliori caratteristiche <strong>di</strong> adattamento,<br />

può essere utile considerare il <strong>di</strong>agramma <strong>di</strong> <strong>di</strong>spersione dei residui rispetto alla<br />

variabile esplicativa, mostrato <strong>in</strong> Figura 7.5.<br />

> plot(hook.rstand ~ press)<br />

La Figura 7.5 mostra una relazione <strong>di</strong> tipo quadratico. Questo suggerisce che il<br />

modello potrebbe essere migliorato <strong>in</strong>troducendo la pressione al quadrato come ulteriore<br />

variabile esplicativa. In questo modo si passa da un modello <strong>di</strong> regressione<br />

l<strong>in</strong>eare semplice ad modello <strong>di</strong> regressione l<strong>in</strong>eare multipla <strong>di</strong> tipo pol<strong>in</strong>omiale. Il<br />

modello statistico <strong>di</strong>venta<br />

Yi = β1 + β2xi + β3x 2 i + εi ,<br />

con εi ∼ N(0, σ 2 ), i = 1, . . . , n. Il modello è adattato con R tramite i seguenti<br />

coman<strong>di</strong>.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!