USE R CODE

Initialize the city of Boston earnings dataset as shown below:

boston <- read.csv( "https://people.bu.edu/kalathur/datasets/bostonCityEarnings.csv", colClasses = c("character", "character", "character", "integer", "character"))

Generate a subset of the dataset from Boston earnings dataset with only the top 5 departments based on the number of employees working in that department. The top 5 departments should be computed using R code. Then, use %in% operator to create the required subset.

Use a sample size of 50 for each of the following.

Set the start seed for random numbers as the last 4 digits of 1000

a) Show the sample drawn using simple random sampling without replacement.

Show the frequencies for the selected departments.

Show the percentages of these with respect to sample size.