Perform the following commands in R

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.