File:Reg ls dgr resid ajust.svg

 # Es crea la base de dades amb nombres aleatoris:
set.seed(1)
N         = 100
U         = rnorm(N)
EDAT      = 50 + rnorm(N)
PAD       = 20 + EDAT + U                      # Pressió arterial diastòlica
DADES_RLS = data.frame(PAD, EDAT)              # Es crea la taula de dades

# Regressío linal simple:
PAD_LM = lm(PAD ~ EDAT, data = DADES_RLS)      # S'estima el model de regressió lineal
svg("gra/reg_ls_dgr_resid_ajust.svg")          # Desar el diagrama en un fitxer tipus svg
#  Diagrama de dispersió dels valors ajustats sobre els residus
plot(PAD_LM, which = 1,
     main="Diagrama de dispersió dels residus sobre els valors ajustats")
dev.off()