Exercise1. Repeat 24 times for “male gender” with 21 promoted and 3 not promoted. Repeat 24 times for “women” with 14 promoted and 10 not promoted. Assign these data to GDS
Exercise2. Create a GDS function, put the f（GDS）into the variable GDSS2 which is newly created, get a table with name and values, and then use f（GDSS2）to create a new variable GDSS3, statistics on promotion and non-appreciation according to gender, and finally compare the averages
Exercise3. Generate long tables to increase the readability from the data
Exercise4a. Draw a promotion bar chart, choose different colors according to gender, the bar chart in 4a is split
Exercise4b. Draw a promotion bar chart, choose different colors according to gender, the bar chart in 4b is not split
Exercise5. xobs <- 0.292
Exercise6. Convert GDSS4 into a matrix, assign it to test_x, perform ratio test on test_x，and assign it to CLTtest, and output the result
Exercise7a. pval <- length(Rxobs[xobs <= Rxobs])/R pval
Exercise7b. Make the results reproducible
Exercise8. Sorry，I do not know