data(iris)
names(iris)
summary(iris$Petal.Length)
summary(iris$Sepal.Width)
summary(iris$Petal.Length)
summary(iris$Petal.Width)
summary(iris$Species)
var(iris$Petal.Length)
plot(iris$Petal.Length, iris$Petal.Width, pch=21,bg=c("red","green","yellow")[as.numeric(iris$Species)])legend(locator(1), levels(iris$Species),fill=c("red","green","yellow"))