parcial <- exam$parcial
boxplot(parcial) : diagrama de caixa
boxplot(final)
plot(Y~X) : diagrama de dispersió
plot(final~parcial)
cor(X,Y) : coeficiente de correlación
cor(parcial,final)
lm(Y~X) : recta de regressió
fit <- lm(final~parcial)
plot(final~parcial)
abline(fit) : linia de regressio
-4.953+70*1.127
predict(fit,data.frame(parcial=70))
summary(fit)
resid(fit) : residus dades
fit.res <- resid(fit)
plot(fit.res~parcial, ylab="Residus",main="Diagrama de residus") : Diagrama de residus
abline(0,0) : crear una linea en y=0
hist(fit.res)
identify(Y~X)
identify(final~parcial)
exam_nou <- exam[-c(2,18),] : eliminar valors atípics
lm(final~parcial,data=exam_nou) : nou pendent de la recta
plotluck(tasca,Y~X) : corba dels residus
plot(vendes~pub)
abline(lm(vendes~pub))
lvendes <- log(vendes) : convertir en logaritmes
plot(lvendes~ladv)