1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | str(grades) List of 4 $ ![]() ..$ name : chr "Amy" ..$ grade1: num 35 ..$ grade2: num 41 ..$ grade3: num 53 $ ![]() ..$ name : chr "Bob" ..$ grade1: num 44 ..$ grade2: num 37 ..$ grade3: num 28 $ ![]() ..$ name : chr "Charles" ..$ grade1: num 68 ..$ grade2: num 65 ..$ grade3: num 61 $ ![]() ..$ name : chr "David" ..$ grade1: num 72 ..$ grade2: num 78 ..$ grade3: num 81 |
1 2 | grade1.num <- c(grades[[1]]$grade1, grades[[2]]$grade1, grades[[3]]$grade1, grades[[4]]$grade1) |
1 | Amy.grade< - c(grades[[1]]$grade1, grades[[1]]$grade2, grades[[1]]$grade3) |
1 2 3 | Bob.grade <- c(grades[[2]]$grade1, grades[[2]]$grade2, grades[[2]]$grade3) Charles.grade <- c(grades[[3]]$grade1, grades[[3]]$grade2, grades[[3]]$grade3) David.grade <- c(grades[[4]]$grade1, grades[[4]]$grade2, grades[[4]]$grade3) |
1 | All.grades <- data.frame(Amy.grade, Bob.grade, Charles.grade, David.grade) |
1 2 3 | summary(Amy.grade) Min. 1st Qu. Median Mean 3rd Qu. Max. 35 38 41 43 47 53 |
1 2 3 4 5 6 7 8 | summary(All.grades) Amy.grade Bob.grade Charles.grade David.grade Min. :35 Min. :28.00 Min. :61.00 Min. :72.0 1st Qu.:38 1st Qu.:32.50 1st Qu.:63.00 1st Qu.:75.0 Median :41 Median :37.00 Median :65.00 Median :78.0 Mean :43 Mean :36.33 Mean :64.67 Mean :77.0 3rd Qu.:47 3rd Qu.:40.50 3rd Qu.:66.50 3rd Qu.:79.5 Max. :53 Max. :44.00 Max. :68.00 Max. :81.0 |
1 2 | cor(Amy.grade, Bob.grade) [1] -0.9930365 |
1 2 3 4 | cov(Amy.grade, Bob.grade) [1] -73 var(Amy.grade, Bob.grade) [1] -73 |
1 2 | mad(Charles.grade) [1] 4.4478 |
1 2 | sd(Amy.grade) [1] 9.165151 |
1 2 3 4 5 | ks.test(Amy.grade, Bob.grade) Two-sample Kolmogorov-Smirnov test data:Amy.grade and Bob.grade D = 0.3333, p-value = 1 alternative hypothesis: two-sided |
欢迎光临 电子技术论坛_中国专业的电子工程师学习交流社区-中电网技术论坛 (http://bbs.eccn.com/) | Powered by Discuz! 7.0.0 |