Question

2. In United States, a government shutdoun occurs when Congress fails to pass a bill or a continuing resolution to fund federal government operations and agencies or when the President refuses to sign such a bill or resoution. During a shutdown, some federal employees should take a furlough (temporary leave of employees), and some federal employees are still required to work without pay until the shutdown ends. The duration of a shutdown is random depending, and it prolongs when a conflict between Congress and the President cannot find a compromising solution. Download shutdovn.csvwhich includes records of 21 government shutdowns. It contains five columns president: U.S. President during shutdown . year: year of shutdown e month: month of shutdown . day: starting day of shutdown e duration: duration of shutdown The last row has a column with NA which means not available. (The shutdown is still ongoing, as of January 18, 2019.) > data read. CSV( file . choose() ) # # READ shut down, csv head (data) president year month day duration Ford 1976 Carter 1977 Carter 1977 Carter 1977 Carter 1978 Carter 1979 9 30 9 30 10 31 11 30 9 30 9 30 12 >xdatasduration [1 10 12 8 8 18 11 21 3 3 21 13 5 21 16 3 1 NA Statisticians often use notation (XX) to denote n data points. It is called a sample of size n. We have a sample of size n- 20 excluding NA > length (x) [11 21 > sum is.na(x)FALSE [1) 20 Our learning objective is to summarize a sample by quantifying central tendency (sample mean and median) and dispersion (sample variance and standard deviation)

Answer 1

(a). The sample size excluding NA is 79

(b). The average point per game during the season is: 31.62025

(c). The sample median is  31. Here, we notice that the median is slightly less than the mean, which means that the data is skewed towards the right, with long tail of high scores, which pulls the mean up to the median.

(d). The sample variance is 88.52061.

(e). The sample standard deviation is  9.408539

(f). The R code for the histogram is as follows:

x=c(40,25,53,30,38,34,24,22,28,46,34,37,40,27,29,24,45,29,26,40,44,28,29,38,28,25,26,38,29,23,5,30,17,26,38,31,38,26,38,35,25,39,37,34,23,53,51,26,35,26,31,23,36,42,51,46,33,18,41,12,34,35,27,34,31,14,19,33,33,20,26,31,29,39,21,27,17,37,46)
length(x)
mean(x)
median(x)
var(x)
sd(x)
hist(x, main= "Curry", xlim = c(0,60), ylim = c(0,20), xlab = "points", ylab = "Frequency", col = "yellow")

(g). The percentage of games where he scored more than 20 points is 89.87%

(length(x[x>20])/length(x))*100