# Exemple de  tret del curs Coursera Regression Models de Brian Caffo et al consultat 29-06-2014
# <ref name="Caffo-Coursera-R-Models" />
set.seed(123)                                 # El fixa la llavor per generar nombres aleatoris
X = runif(100, 0, 6)                          # Valors variable independent
Y = X + rnorm(100, mean =0, sd = 0.0001 * X)  # Valors variable dependent
svg("gra/reg_ls_homoc.svg")                   # Desar el diagrama en un fitxer tipus svg
plot(Y ~ X)                                   # Diagrama de dispersió
abline(lm(Y ~ X))                             # Línia de la recta de regressió
dev.off()                                     # Tancar i desar el diagrama