I am very confused on my statistics and probability class and i need some help im using the R program i understand a little bit but there are some problems that give me headache.
Ex: Question: Suppose there are 10 students attending a class in the computer lab. Determine the probability that there will be enough computers for them. The matrix of 0’s and 1’s
Representing 100 simulations of 12 trials each. The number of 1’s in a row is the number of working computers, which we are calling x.
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] 1 1 1 1 1 1 1 1 1 1 1 1 [2,] 1 1 1 1 1 1 1 1 1 1 1 1
[3,] 1 1 1 1 1 1 1 1 1 1 1 1 [4,] 1 1 0 1 0 1 1 1 1 1 1 1
[5,] 1 1 1 1 0 1 1 1 1 1 1 1[6,] 1 1 1 1 0 1 1 1 1 1 1 0
[7,] 1 0 1 1 1 1 1 1 1 1 1 1[8,] 0 1 1 1 1 1 1 1 1 1 1
[9,] 1 1 1 1 1 0 1 1 1 1 0 1[10,] 1 1 1 1 0 1 0 1 1 1 1 1
[11,] 1 1 1 1 1 1 0 1 1 1 1 0 [12,] 1 1 1 1 1 1 1 1 1 1 1 1
[13,] 1 1 1 1 1 1 1 1 1 1 1 1 [14,] 1 1 1 1 1 1 1 1 1 1 1 1
[15,] 1 1 1 1 0 1 1 1 1 1 1 1 [16,] 1 0 1 1 1 1 1 1 0 1 1 1
[17,] 1 1 1 0 1 1 1 1 1 1 1 1[18,] 1 1 1 1 1 1 1 1 1 1 1 1
[19,] 1 1 1 1 1 1 1 1 1 1 1 1 [20,] 1 1 1 1 1 1 1 1 1 1 1 1
[21,] 0 1 1 1 0 1 0 1 1 1 1 1 [22,] 1 0 1 0 1 1 1 1 1 1 1 1
[23,] 1 1 1 1 1 1 1 1 1 0 1 1
[24,] 1 0 1 1 1 1 1 1 1 1 1 1 [25,] 1 1 1 1 1 1 1 1 1 1 1 1
[26,] 0 1 1 1 1 1 1 1 1 1 1 1 [27,] 1 1 1 1 1 0 1 1 1 1 1 1
[28,] 1 1 1 1 1 1 1 1 1 1 1 1[29,] 1 1 1 1 1 1 1 1 1 1 1 1
[30,] 1 1 1 1 1 1 1 1 1 1 1 1[31,] 0 1 1 1 1 1 1 1 1 1 1 1
[32,] 1 1 1 1 1 1 1 1 1 0 0 [33,] 1 1 1 1 1 1 1 1 1 1 1 1
[34,] 0 1 1 1 1 1 1 1 1 1 1 1 [35,] 1 1 1 1 1 1 1 1 0 1 1 1
[36,] 1 1 1 1 1 1 1 1 1 1 1 1 [37,] 1 1 1 1 1 1 1 1 1 1 1 1
[38,] 1 1 1 1 1 1 0 1 1 1 1 1 [39,] 0 1 0 1 1 1 1 1 1 1 1 1
[40,] 1 1 1 1 1 1 1 1 1 1 1 1 [41,] 1 1 1 1 1 1 1 1 1 1 1 1
[42,] 1 1 1 1 1 1 1 1 1 1 0 1 [43,] 1 1 1 1 1 1 1 1 1 1 1 1
[44,] 1 1 1 1 1 1 1 1 1 1 1 1[45,] 0 0 0 1 1 1 0 1 1 1 1 1
[46,] 1 1 1 1 1 1 1 1 1 1 1 1 [47,] 1 1 1 1 1 1 1 1 1 1 1 1
[48,] 1 1 1 1 1 1 1 1 1 1 1 1 [49,] 1 1 1 1 1 0 1 1 1 1 1 1
[50,] 0 1 1 1 1 1 1 1 1 1 1 1[51,] 1 1 1 0 1 1 0 1 1 1 1 1
[52,] 1 1 1 1 1 1 1 0 1 1 1 [53,] 1 1 1 1 1 1 1 1 1 1 1 1
[54,] 1 1 1 1 1 1 0 1 1 1 1 1 [55,] 1 1 1 1 1 1 1 1 1 1 1 1
[56,] 1 1 1 1 1 1 1 1 1 1 1 1[57,] 1 1 1 1 1 1 1 0 1 1 1 1
[58,] 1 1 1 0 1 1 1 1 1 1 1 1 [59,] 1 1 1 1 1 1 1 1 1 1 1 1
[60,] 1 1 1 1 1 1 1 1 1 1 1 1 [61,] 1 1 0 1 1 0 1 1 1 1 1 1
[62,] 1 1 1 1 1 1 0 1 1 1 1 1 [63,] 1 1 0 0 1 1 1 1 1 1 1 1
[64,] 1 1 1 1 1 1 1 1 1 1 1 1[65,] 1 1 1 1 1 1 1 1 1 1 1 1
[66,] 1 1 1 1 1 1 1 1 1 1 1 0[67,] 1 1 1 1 1 1 1 1 0 1 0 1
[68,] 1 1 1 1 1 1 1 1 1 1 1 0 [69,] 0 1 1 0 1 1 1 1 0 1 1 1
[70,] 0 1 1 1 1 1 1 1 1 0 1 1 [71,] 1 1 1 1 1 1 1 1 1 1 1 1
[72,] 1 1 1 1 1 1 1 1 1 1 1 1 [73,] 1 1 1 1 1 1 1 1 1 1 1 1
[74,] 1 1 0 1 1 1 1 1 0 1 1 1 [75,] 1 1 1 1 1 1 1 1 0 1 1 1
[76,] 1 1 1 1 0 1 1 1 1 1 1 1[77,] 1 1 1 1 1 1 1 1 1 0 1 1
[78,] 1 1 1 1 1 1 1 1 1 0 0 1 [79,] 1 1 1 1 1 1 1 1 1 0 1 1
[80,] 1 1 0 0 1 1 1 1 1 1 1 1 [81,] 1 1 1 1 1 1 1 1 1 1 1 1
[82,] 1 1 1 1 0 1 1 1 1 1 1 1[83,] 1 1 1 1 1 1 1 0 1 1 1 1
[84,] 1 1 1 1 1 1 0 1 0 1 1 1[85,] 0 0 1 1 1 1 1 1 1 0 1 0
[86,] 1 1 1 1 1 1 1 1 1 1 1 1 [87,] 0 1 1 1 1 1 1 1 1 1 1 1
[88,] 1 0 1 1 0 1 1 1 1 1 1 1 [89,] 1 1 1 1 1 1 1 1 0 1 1 1
[90,] 0 1 1 1 1 1 1 1 1 1 1 1 [91,] 1 1 1 1 1 1 0 0 1 1 1 1
[92,] 1 1 1 1 1 1 1 1 1 1 1 0[93,] 1 1 1 1 1 1 1 1 1 1 1 1
[94,] 1 1 0 1 1 1 1 1 1 1 1 1 [95,] 1 1 1 1 0 0 1 1 1 1 1 1
[96,] 1 1 1 1 1 1 0 1 1 1 1 1 [97,] 1 1 1 1 1 1 1 1 1 1 1 1
[98,] 1 1 1 1 1 1 1 1 1 1 1 1 [99,] 1 1 1 1 1 1 1 1 1 1 1 1
[100,] 1 1 1 1 1 1 1 1 1 1 1 1
> x = rowSums(computers);
> x;
[1] 12 12 12 10 11 10 11 11 10 10 10 12 12 12 11 10 11 12 12 12 9 10 11 11 12
[26] 11 11 12 12 12 11 10 12 11 11 12 12 11 10 12 12 11 12 12 8 12 12 12 11 11
[51] 10 11 12 11 12 12 11 11 12 12 10 11 10 12 12 11 10 11 9 10 12 12 12 10 11
[76] 11 11 10 11 10 12 11 11 10 8 12 11 10 11 11 10 11 12 11 10 11 12 12 12 12
> mean(x); sd(x); stem(x);
[1] 11.09
[1] 0.9330627
The decimal point is at the |
8 | 00
8 |
9 | 00
9 |
10 | 000000000000000000000
10 |
11 | 00000000000000000000000000000000000
11 |
12 | 0000000000000000000000000000000000000000
Question 1: compare the empirical mean and standard deviation with the
Theoretical values.
Question 2: How many computers were broken on the 5th simulated lab class?
Question 3: From the stem 'n' leaf plot what is the empirical probability that there will be enough working computers to accommodate the students?
question 4: Now use R to do 100 simulations for a class of 19 attending students in a lab with 20 Apple (Mac) computers
that each have a 5% chance of being broken. Copy your R commands/output to Word, and find the empirical
probability that there will be enough working computers?
Ex: Question: Suppose there are 10 students attending a class in the computer lab. Determine the probability that there will be enough computers for them. The matrix of 0’s and 1’s
Representing 100 simulations of 12 trials each. The number of 1’s in a row is the number of working computers, which we are calling x.
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
[1,] 1 1 1 1 1 1 1 1 1 1 1 1 [2,] 1 1 1 1 1 1 1 1 1 1 1 1
[3,] 1 1 1 1 1 1 1 1 1 1 1 1 [4,] 1 1 0 1 0 1 1 1 1 1 1 1
[5,] 1 1 1 1 0 1 1 1 1 1 1 1[6,] 1 1 1 1 0 1 1 1 1 1 1 0
[7,] 1 0 1 1 1 1 1 1 1 1 1 1[8,] 0 1 1 1 1 1 1 1 1 1 1
[9,] 1 1 1 1 1 0 1 1 1 1 0 1[10,] 1 1 1 1 0 1 0 1 1 1 1 1
[11,] 1 1 1 1 1 1 0 1 1 1 1 0 [12,] 1 1 1 1 1 1 1 1 1 1 1 1
[13,] 1 1 1 1 1 1 1 1 1 1 1 1 [14,] 1 1 1 1 1 1 1 1 1 1 1 1
[15,] 1 1 1 1 0 1 1 1 1 1 1 1 [16,] 1 0 1 1 1 1 1 1 0 1 1 1
[17,] 1 1 1 0 1 1 1 1 1 1 1 1[18,] 1 1 1 1 1 1 1 1 1 1 1 1
[19,] 1 1 1 1 1 1 1 1 1 1 1 1 [20,] 1 1 1 1 1 1 1 1 1 1 1 1
[21,] 0 1 1 1 0 1 0 1 1 1 1 1 [22,] 1 0 1 0 1 1 1 1 1 1 1 1
[23,] 1 1 1 1 1 1 1 1 1 0 1 1
[24,] 1 0 1 1 1 1 1 1 1 1 1 1 [25,] 1 1 1 1 1 1 1 1 1 1 1 1
[26,] 0 1 1 1 1 1 1 1 1 1 1 1 [27,] 1 1 1 1 1 0 1 1 1 1 1 1
[28,] 1 1 1 1 1 1 1 1 1 1 1 1[29,] 1 1 1 1 1 1 1 1 1 1 1 1
[30,] 1 1 1 1 1 1 1 1 1 1 1 1[31,] 0 1 1 1 1 1 1 1 1 1 1 1
[32,] 1 1 1 1 1 1 1 1 1 0 0 [33,] 1 1 1 1 1 1 1 1 1 1 1 1
[34,] 0 1 1 1 1 1 1 1 1 1 1 1 [35,] 1 1 1 1 1 1 1 1 0 1 1 1
[36,] 1 1 1 1 1 1 1 1 1 1 1 1 [37,] 1 1 1 1 1 1 1 1 1 1 1 1
[38,] 1 1 1 1 1 1 0 1 1 1 1 1 [39,] 0 1 0 1 1 1 1 1 1 1 1 1
[40,] 1 1 1 1 1 1 1 1 1 1 1 1 [41,] 1 1 1 1 1 1 1 1 1 1 1 1
[42,] 1 1 1 1 1 1 1 1 1 1 0 1 [43,] 1 1 1 1 1 1 1 1 1 1 1 1
[44,] 1 1 1 1 1 1 1 1 1 1 1 1[45,] 0 0 0 1 1 1 0 1 1 1 1 1
[46,] 1 1 1 1 1 1 1 1 1 1 1 1 [47,] 1 1 1 1 1 1 1 1 1 1 1 1
[48,] 1 1 1 1 1 1 1 1 1 1 1 1 [49,] 1 1 1 1 1 0 1 1 1 1 1 1
[50,] 0 1 1 1 1 1 1 1 1 1 1 1[51,] 1 1 1 0 1 1 0 1 1 1 1 1
[52,] 1 1 1 1 1 1 1 0 1 1 1 [53,] 1 1 1 1 1 1 1 1 1 1 1 1
[54,] 1 1 1 1 1 1 0 1 1 1 1 1 [55,] 1 1 1 1 1 1 1 1 1 1 1 1
[56,] 1 1 1 1 1 1 1 1 1 1 1 1[57,] 1 1 1 1 1 1 1 0 1 1 1 1
[58,] 1 1 1 0 1 1 1 1 1 1 1 1 [59,] 1 1 1 1 1 1 1 1 1 1 1 1
[60,] 1 1 1 1 1 1 1 1 1 1 1 1 [61,] 1 1 0 1 1 0 1 1 1 1 1 1
[62,] 1 1 1 1 1 1 0 1 1 1 1 1 [63,] 1 1 0 0 1 1 1 1 1 1 1 1
[64,] 1 1 1 1 1 1 1 1 1 1 1 1[65,] 1 1 1 1 1 1 1 1 1 1 1 1
[66,] 1 1 1 1 1 1 1 1 1 1 1 0[67,] 1 1 1 1 1 1 1 1 0 1 0 1
[68,] 1 1 1 1 1 1 1 1 1 1 1 0 [69,] 0 1 1 0 1 1 1 1 0 1 1 1
[70,] 0 1 1 1 1 1 1 1 1 0 1 1 [71,] 1 1 1 1 1 1 1 1 1 1 1 1
[72,] 1 1 1 1 1 1 1 1 1 1 1 1 [73,] 1 1 1 1 1 1 1 1 1 1 1 1
[74,] 1 1 0 1 1 1 1 1 0 1 1 1 [75,] 1 1 1 1 1 1 1 1 0 1 1 1
[76,] 1 1 1 1 0 1 1 1 1 1 1 1[77,] 1 1 1 1 1 1 1 1 1 0 1 1
[78,] 1 1 1 1 1 1 1 1 1 0 0 1 [79,] 1 1 1 1 1 1 1 1 1 0 1 1
[80,] 1 1 0 0 1 1 1 1 1 1 1 1 [81,] 1 1 1 1 1 1 1 1 1 1 1 1
[82,] 1 1 1 1 0 1 1 1 1 1 1 1[83,] 1 1 1 1 1 1 1 0 1 1 1 1
[84,] 1 1 1 1 1 1 0 1 0 1 1 1[85,] 0 0 1 1 1 1 1 1 1 0 1 0
[86,] 1 1 1 1 1 1 1 1 1 1 1 1 [87,] 0 1 1 1 1 1 1 1 1 1 1 1
[88,] 1 0 1 1 0 1 1 1 1 1 1 1 [89,] 1 1 1 1 1 1 1 1 0 1 1 1
[90,] 0 1 1 1 1 1 1 1 1 1 1 1 [91,] 1 1 1 1 1 1 0 0 1 1 1 1
[92,] 1 1 1 1 1 1 1 1 1 1 1 0[93,] 1 1 1 1 1 1 1 1 1 1 1 1
[94,] 1 1 0 1 1 1 1 1 1 1 1 1 [95,] 1 1 1 1 0 0 1 1 1 1 1 1
[96,] 1 1 1 1 1 1 0 1 1 1 1 1 [97,] 1 1 1 1 1 1 1 1 1 1 1 1
[98,] 1 1 1 1 1 1 1 1 1 1 1 1 [99,] 1 1 1 1 1 1 1 1 1 1 1 1
[100,] 1 1 1 1 1 1 1 1 1 1 1 1
> x = rowSums(computers);
> x;
[1] 12 12 12 10 11 10 11 11 10 10 10 12 12 12 11 10 11 12 12 12 9 10 11 11 12
[26] 11 11 12 12 12 11 10 12 11 11 12 12 11 10 12 12 11 12 12 8 12 12 12 11 11
[51] 10 11 12 11 12 12 11 11 12 12 10 11 10 12 12 11 10 11 9 10 12 12 12 10 11
[76] 11 11 10 11 10 12 11 11 10 8 12 11 10 11 11 10 11 12 11 10 11 12 12 12 12
> mean(x); sd(x); stem(x);
[1] 11.09
[1] 0.9330627
The decimal point is at the |
8 | 00
8 |
9 | 00
9 |
10 | 000000000000000000000
10 |
11 | 00000000000000000000000000000000000
11 |
12 | 0000000000000000000000000000000000000000
Question 1: compare the empirical mean and standard deviation with the
Theoretical values.
Question 2: How many computers were broken on the 5th simulated lab class?
Question 3: From the stem 'n' leaf plot what is the empirical probability that there will be enough working computers to accommodate the students?
question 4: Now use R to do 100 simulations for a class of 19 attending students in a lab with 20 Apple (Mac) computers
that each have a 5% chance of being broken. Copy your R commands/output to Word, and find the empirical
probability that there will be enough working computers?