This is a training for Zanzivar professionals.
## Drink Calcium
## 1 Diet cola 50
## 2 Diet cola 62
## 3 Diet cola 48
## 4 Diet cola 55
## 5 Diet cola 58
## 6 Diet cola 61
## 7 Diet cola 58
## 8 Diet cola 56
## 9 Water 48
## 10 Water 46
I will create a histogram and a bar plot for cola data.
hist(cola$Calcium,
main = "Histogram of Calcium with Cola Data",
col = "blue",
xlab = "Calcium"
)
T = table(cola$Drink)
T
##
## Diet cola Water
## 8 8
barplot(T)