We’re going to analyze Fisher’s data (again)
iris = read.csv("iris.csv")
iris$Species = factor(iris$Species)
head(iris)
## Sepal.Length Sepal.Width Petal.Length Petal.Width Species Code
## 1 5.1 3.5 1.4 0.2 setosa 1
## 2 4.9 3.0 1.4 0.2 setosa 1
## 3 4.7 3.2 1.3 0.2 setosa 1
## 4 4.6 3.1 1.5 0.2 setosa 1
## 5 5.0 3.6 1.4 0.2 setosa 1
## 6 5.4 3.9 1.7 0.4 setosa 1
cor(iris$Petal.Length, iris$Petal.Width)
## [1] 0.9628654
Let’s add a simple plot
plot(iris$Petal.Length, iris$Petal.Width,
pch = 16, col = iris$Species)