En esta sección hemos cargado datos y realizado algunos cálculos y gráficos.
data(iris)
head(iris)
## Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1 5.1 3.5 1.4 0.2 setosa
## 2 4.9 3.0 1.4 0.2 setosa
## 3 4.7 3.2 1.3 0.2 setosa
## 4 4.6 3.1 1.5 0.2 setosa
## 5 5.0 3.6 1.4 0.2 setosa
## 6 5.4 3.9 1.7 0.4 setosa
varX <- iris[51:100,3]
varY <- iris[51:100,4]
cor(varX,varY)
## [1] 0.7866681
pairs(iris[1:4], col=iris$Species)
Aquí ponemos un ejemplo de un plot básico
plot(varX,varY,main = "gráfico de dispersión",
xlab = "longitud",
ylab = "ancho")
plot(varX,varY, pch=21, bg="green", col="blue", cex=1.2,
main="Diagrama de dispersión x,y")
text(3.3,1.7,expression(rho==0.786))