#loading data
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
colnames(iris)
## [1] "Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width"
## [5] "Species"
mean(iris[,1])
## [1] 5.843
Sepal.LengthMean <- mean(iris$Sepal.Length)
Sepal.WidthMean <- mean(iris$Sepal.Width)
Petal.LengthMean <- mean(iris$Petal.Length)
Petal.WidthMean <- mean(iris$Petal.Width)
Sepal.LengthSD <- sd(iris$Sepal.Length)
Sepal.WidthSD <- sd(iris$Sepal.Width)
Petal.LengthSD <- sd(iris$Petal.Length)
Petal.WidthSD <- sd(iris$Petal.Width)
mean(iris[,2])
## [1] 3.057
mean(iris$Sepal.Width)
## [1] 3.057
mean(iris[,3])
## [1] 3.758
mean(iris$Petal.Length)
## [1] 3.758
mean(iris[,4])
## [1] 1.199
mean(iris$Petal.Width)
## [1] 1.199
median(iris[,1])
## [1] 5.8
median(iris$Sepal.Length)
## [1] 5.8
median(iris[,2])
## [1] 3
median(iris$Sepal.Width)
## [1] 3
median(iris[,3])
## [1] 4.35
median(iris$Petal.Length)
## [1] 4.35
median(iris[,4])
## [1] 1.3
median(iris$Petal.Width)
## [1] 1.3
mean(iris[,3], trim=0.1)
## [1] 3.76
mean(iris$Petal.Length, trim = 0.1)
## [1] 3.76
sd(iris[,1])
## [1] 0.8281
sd(iris[,2])
## [1] 0.4359
sd(iris[,3])
## [1] 1.765
sd(iris[,4])
## [1] 0.7622
sd(iris$Sepal.Length)
## [1] 0.8281
colnames(iris)
## [1] "Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width"
## [5] "Species"
#variacao com base na mediana
mad(iris[,1])
## [1] 1.038
mad(iris[,2])
## [1] 0.4448
mad(iris[,3])
## [1] 1.853
mad(iris[,4])
## [1] 1.038
table(iris$Species)
##
## setosa versicolor virginica
## 50 50 50
setosa <- iris[,5] == "setosa"
versicolor <- iris[,5] == "versicolor"
virginica <- iris[,5] == "virginica"
irisSetosa <- iris[setosa,]
irisVersicolor <- iris[versicolor,]
irisVirginica <- iris[virginica,]
head(irisSetosa)
## 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
head(irisVersicolor)
## Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 51 7.0 3.2 4.7 1.4 versicolor
## 52 6.4 3.2 4.5 1.5 versicolor
## 53 6.9 3.1 4.9 1.5 versicolor
## 54 5.5 2.3 4.0 1.3 versicolor
## 55 6.5 2.8 4.6 1.5 versicolor
## 56 5.7 2.8 4.5 1.3 versicolor
head(irisVirginica)
## Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 101 6.3 3.3 6.0 2.5 virginica
## 102 5.8 2.7 5.1 1.9 virginica
## 103 7.1 3.0 5.9 2.1 virginica
## 104 6.3 2.9 5.6 1.8 virginica
## 105 6.5 3.0 5.8 2.2 virginica
## 106 7.6 3.0 6.6 2.1 virginica
mean(iris[,1])
## [1] 5.843
median(iris[,1])
## [1] 5.8
mean(irisSetosa[,1])
## [1] 5.006
median(irisSetosa[,1])
## [1] 5
sd(iris[,1])
## [1] 0.8281
mad(iris[,1])
## [1] 1.038
sd(irisSetosa[,1])
## [1] 0.3525
mad(irisSetosa[,1])
## [1] 0.2965
mean(irisSetosa[,1])
## [1] 5.006
median(irisSetosa[,1])
## [1] 5
mean(irisVersicolor[,1])
## [1] 5.936
median(irisVersicolor[,1])
## [1] 5.9
mean(irisVirginica[,1])
## [1] 6.588
median(irisVirginica[,1])
## [1] 6.5