x=runif(100,0,3)
y=-1.5*(x-3)+rnorm(100,0,1)
X=matrix(,nr=100,nc=11)
k=seq(length=11,from=0.25,to=2.75)
i=1:100
j=1:11
if (x<k[j]) X[i,j]=0 else X[i,j]=x-k[j]
警告信息：
1: In x < k[j] : 长的对象长度不是短的对象长度的整倍数
2: In if (x < k[j]) X[i, j] = 0 else X[i, j] = x - k[j] :
条件的长度大于一，因此只能用其第一元素
3: In x - k[j] : 长的对象长度不是短的对象长度的整倍数

如上 旨在做一矩阵X[i,j]=0 当x<=k[j]时；x>k[j]时，取X[i, j] = x - k[j]

X=(x-k[1],```,x-k[11])