data(iris)
iris$petal_length_mm <- iris$Petal.Length*10
iris$petal_width_mm <- iris$Petal.Width*10
print(summary(iris))
