Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- yourdatatable <- read.table("your_excel_table_here.xls", sep = 't', header = T)
- y <- lm(price ~ size*material, data = yourdatatable, na.rm=T)
- summary(y)
- ex <- lm(mpg~hp*wt, data = mtcars, na.rm=T)
- summary(ex)
- Estimate Std. Error t value Pr(>|t|)
- (Intercept) 49.80842 3.60516 13.816 5.01e-14 ***
- hp -0.12010 0.02470 -4.863 4.04e-05 ***
- wt -8.21662 1.26971 -6.471 5.20e-07 ***
- hp:wt 0.02785 0.00742 3.753 0.000811 ***
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement