mate <- c(2,3,4,4,5,6,6,7,7,8,10,10)
fisi <- c(1,3,2,4,4,4,6,4,6,7,9,10)
mate
## [1] 2 3 4 4 5 6 6 7 7 8 10 10
fisi
## [1] 1 3 2 4 4 4 6 4 6 7 9 10
# La media de ambas variables
mean(mate) ; mean(fisi)
## [1] 6
## [1] 5
# La varianza de ambas variables
var(mate); var(fisi)
## [1] 6.545455
## [1] 7.272727
# La desviación estándar de ambas variables
sd(mate); sd(fisi)
## [1] 2.558409
## [1] 2.696799
cor(mate, fisi)
## [1] 0.9355071
cov(mate, fisi)
## [1] 6.454545
plot(mate,fisi, main = "Calificaciones", xlab = "Matemáticas", ylab = "Física")
print("Al ser el coeficiente de correlación positivo, la correlación es directa.Como coeficiente de correlación está muy próximo a 1 la correlación es muy fuerte.")
## [1] "Al ser el coeficiente de correlación positivo, la correlación es directa.Como coeficiente de correlación está muy próximo a 1 la correlación es muy fuerte."
(VITutor, n.d.)
VITutor. (n.d.). Notes and problems of statistics. Retrieved from https://www.vitutor.com/statistics.html