data("iris")
summary(iris)
##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
##

INTERPRETACION DE LOS DATOS

se observa que la variable sepal.len tiene un valor promedio de 5843

hist(iris$Sepal.Length,col = "red")

hist(iris$Sepal.Width,col = "blue")

hist(iris$Petal.Length,col = "blue")

hist(iris$Petal.Width,col = "red")

### DIAGRAMA DE CAJAS

par(mfrow=c(2,2))
boxplot(iris$Sepal.Length,col = "blue",main="sepal.length")
boxplot(iris$Sepal.Width,col = "blue",main="sepal.width")
boxplot(iris$Petal.Length,col = "red",main="petal.length")
boxplot(iris$Petal.Width,col = "red",main="petal.width")

###CORRELACION ## DIAGRAMA DE DISPERSION se observa que la matriz de correlacion las variables mas correlacionadas son petal.width,con una correlacion r= 0.96

r=cor(iris[,-5])
r
##              Sepal.Length Sepal.Width Petal.Length Petal.Width
## Sepal.Length    1.0000000  -0.1175698    0.8717538   0.8179411
## Sepal.Width    -0.1175698   1.0000000   -0.4284401  -0.3661259
## Petal.Length    0.8717538  -0.4284401    1.0000000   0.9628654
## Petal.Width     0.8179411  -0.3661259    0.9628654   1.0000000

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.