##
##  可行的
x = sample(1:10, 25, replace=TRUE)
y = 1+3*x
xy = data.frame(x, y)
colnames(xy)
fit = lm(y~x, data=xy)
##
##  不可行
target <- "y"
fit = lm(target~x, data=xy)