rt <-read.table("C:/Users/Ju/Desktop/anova/anova.txt",head=TRUE)
lm.sol <-lm(Y~X1+X2+X3,data=rt)
summary(lm.sol)
"C:/Users/Ju/Desktop/anova/anova.txt" contents:
X1X2X3Y
112123531
213124539
314125547
415126555
516127563
617128571
718129579
819130587
920131595
1021132603
1122133611
12 23123222