创建一个2到50的向量 vector1 2, 4, 6, 8, …, 48, 50

 vector1<-seq(from=2, to=50, by=2)

选取vector1中的第20个元素

 vector1[20]

## [1] 40

选取vector1中的第10，15，20个元素

vector1[c(10,15,20)]

## [1] 20 30 40

选取vector1中的第10到20个元素

 vector1[10:20]

##  [1] 20 22 24 26 28 30 32 34 36 38 40

选取vector1中值大于40的元素

vector1[vector1>40]

## [1] 42 44 46 48 50