a

dta <- read.table("readingtimes.txt", header = T)
head(dta)
##   Snt Sp Wrds New   S01   S02   S03   S04   S05    S06    S07   S08   S09
## 1   1  1   13   1 3.429 2.795 4.161 3.071 3.625  3.161  3.232 7.161 1.536
## 2   2  2   16   3 6.482 5.411 4.491 5.063 9.295  5.643  8.357 4.313 2.946
## 3   3  3    9   2 1.714 2.339 3.018 2.464 6.045  2.455  4.920 3.366 1.375
## 4   4  4    9   2 3.679 3.714 2.866 2.732 4.205  6.241  3.723 6.330 1.152
## 5   5  5   10   3 4.000 2.902 2.991 2.670 3.884  3.223  3.143 6.143 2.759
## 6   6  6   18   4 6.973 8.018 6.625 7.571 8.795 13.188 11.170 6.071 7.964
##     S10
## 1 4.063
## 2 6.652
## 3 2.179
## 4 3.661
## 5 3.330
## 6 7.866
rank(colMeans(dta[,5:14]))
## S01 S02 S03 S04 S05 S06 S07 S08 S09 S10 
##   5   4   2   3  10   9   8   7   1   6

b

colMeans(dta[,5:14])/mean(dta$Wrds)
##       S01       S02       S03       S04       S05       S06       S07 
## 0.3569259 0.3324568 0.3261728 0.3266049 0.4856790 0.4641852 0.4518395 
##       S08       S09       S10 
## 0.4330864 0.2368765 0.3883457

十位學生個別平均花多少時間讀一個單字。

mean(colMeans(dta[,5:14])/mean(dta$Wrds))
## [1] 0.3802173

全部學生平均會花多少時間讀一個單字。

The end.