set.seed (1)
a = sample (c("H", "T"), 1000, replace=T)
(a) Create a Boxplot for a.
(b) Write a function that selects 5 elements randomly from a.