向量取子集和元素的修改方法

x <- 8:12
x[x==10]

## [1] 10

x[x<12]

## [1]  8  9 10 11

x[x %in% c(9,13)]

## [1] 9

x <- 8:12
x[4]         #取第4个元素

## [1] 11

x[2:4]       #取第2-4个元素

## [1]  9 10 11

x[c(1,5)]    #取第1和第5个元素，不能写成x[1,5]

## [1]  8 12

x[-4]        #反选，去掉第4个元素，其他全保留

## [1]  8  9 10 12

x[-(2:4)]    #反选，去掉第2-4个元素，其他保留

## [1]  8 12

x <- 8:12
x[4] <- 40                #将第4个元素改为40
x

## [1]  8  9 10 40 12

x <- 8:12
x[c(1,5)] <- c(80,20)     #将第1个和第5个元素分别改为80和20
x

## [1] 80  9 10 11 20

z = rnorm(n=10,mean=0,sd=18)
z

##  [1]  15.080018  37.348448  -2.262640  23.519212   1.758657
##  [6]  -8.655105  21.539157 -10.966188   4.178155   5.302523

z[z<-2] 

## [1] 37.34845

z

## [1] 2

z = rnorm(n=10,mean=0,sd=18)
z

##  [1]  -6.871995  -9.571287 -16.963835   3.243446  34.555115
##  [6]   2.325657 -10.771052  11.820617  10.357968  -7.175953

z[z < -2]    #方法1

## [1]  -6.871995  -9.571287 -16.963835 -10.771052  -7.175953

z[z<(-2)]    #方法2

## [1]  -6.871995  -9.571287 -16.963835 -10.771052  -7.175953