# Relació sinusoidal.
# Adaptat de Earl F. Glynn. loess Smoothing and Data Imputation 
# http://research.stowers-institute.org/efg/R/Statistics/loess.htm
PERIODE   = 120
X         = 1:120
X         = 1:170
Y         = sin(2 * pi * X / PERIODE) + runif(length(X),-1,1)
DADES_SIN = data.frame(Y, X)
save(DADES_SIN, file="dades/dades_rls_sin.RData")        # Se desa la taula de dades anàlisi posteriors
load("dades/dades_rls_sin.RData")
svg("gra/reg_ls_sin.svg")                                # Desar el gràfic
plot(Y ~ X, data = DADES_SIN, main="Relació sinusoïdal")
mtext("La recta de regressió és de la Y sobre la X")     # Subtítol
abline(lm(Y ~ X, data = DADES_SIN))                      # Recta de regressió
dev.off()