Hello,

Here is a dilemma I am having for a long time. But, I couldn't figure it
out.
I have an vector of Y and a data frame named "data",which contains all Xs. I
tried to be more efficient in fitting a simple linear regression with each
X.


Firstly,
for (i in 1:(dim(data)[2])){
model<-lm(Y~data[,i])
# this is not what I want since the name of coefficient will be data[,i]
# I need coefficient name to be the name for each variable
# for instance:
# Coefficients:
    # (Intercept)    data[, 1]
    #     24.2780           -0.3381
}


Second try!
I first create a vector of characters (Xs) that contains possible names of
X. This vector is exactly the same as colnames of X.

#my Xs
Xs<-c("a","b","c")
for (i in length(Xs)){
model<-lm(Y~data[,Xs[i]])
# Again, not what I want
# Coefficients:
    # (Intercept)    data[, Xs[1]]
    #     24.2780           -0.3381
}


Thus, how can I solve this dilemma?
I think about trying to find a function that can map the name of variable to
values of that variable. That is, I first attach the data. I can type a to
pull out values of data[,"a"] (a vector of numeric) directly. However, using
Xs[1] will give me only "character" - "a". Thus, is there any function that
allow me to pull values of dadta[,"a"] , eg, some_function(Xs[1]) give me
values of data[,"a"]

Any help is appreciated.


Tony

	[[alternative HTML version deleted]]

