The following method creates model formula in an automated fashion.
names(mydata) <- make.names(names(mydata))
y <- "Class"
x <- names(mydata)[!names(mydata) %in% y]
mymodel <- as.formula(paste(y, paste(x, collapse="+"), sep="~"))
lm(mymodel, data=mydata)