用if语句啊，或者用apply函数

up <- seq(2000,8000,1000)
down <- seq(3000,9000,1000)
num <- c(300,1300,200,150,100,50,30)
sum((up+down)/2*num)/sum(num)

> print(data)
    up down  num
1 2000 3000  300
2 3000 4000 1300
3 4000 5000  200
4 5000 6000  150
5 6000 7000  100
6 7000 8000   50
7 8000 9000   30

a1<-mean(data[1:2,1])
a2<-mean(data[1:2,2])
a3<-mean(data[1:2,3])
a4<-mean(data[1:2,4])

我将数据导入了一个数据框，然后计算平均值，为什么a1,a2没问题，a3,a4就不对了呢，求高手解惑