[R] Regression using mapply?

[Philipp Kunze]

Hi,
I have huge matrices in which the response variable is in the first
column and the regressors are in the other columns. What I wanted to do
now is something like this:

#this is just to get an example-matrix
DataMatrix <- rep(1,1000);
Disturbance <- rnorm(900);
DataMatrix[101:1000] <- DataMatrix[101:1000]+Disturbance;
DataMatrix <- matrix(DataMatrix,ncol=10,nrow=100);

#estimate univariate linear model with each regressor-column, response
in the first column

for(i in 2:10){
	result <- lm(DataMatrix[,1]~DataMatrix[,i])
}


Is there any way to get rid of the for-loop using mapply (or some other
function)? 

Thanks!
Philipp