> run.dt <- read.csv("100meters.csv")
> run.dt
player time
1 A 11.2
2 A 11.5
3 A 11.8
4 A 10.9
5 A 11.3
6 B 10.2
7 B 12.5
8 B 12.9
9 B 10.4
10 B 10.7
> run.dt$player
[1] "A" "A" "A" "A" "A" "B" "B" "B" "B" "B"
> run.dt$time
[1] 11.2 11.5 11.8 10.9 11.3 10.2 12.5 12.9 10.4 10.7
> attach(run.dt)
> time
[1] 11.2 11.5 11.8 10.9 11.3 10.2 12.5 12.9 10.4 10.7
> player=="A"
[1] TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE
[10] FALSE
> time[player=="A"]
[1] 11.2 11.5 11.8 10.9 11.3
> mean(time[player=="A"])
[1] 11.34
> mean(time[player=="B"])
[1] 11.34
> var(time[player=="A"])
[1] 0.113
> var(time[player=="B"])
[1] 1.593
>
mean()均值
var()方差
目的:
A选手方差小
B选手方差大(拿金牌)