Advertisement
Guest User

Untitled

a guest
Aug 20th, 2014
191
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. yourdatatable <- read.table("your_excel_table_here.xls", sep = 't', header = T)
  2. y <- lm(price ~ size*material, data = yourdatatable, na.rm=T)
  3. summary(y)
  4.  
  5. ex <- lm(mpg~hp*wt, data = mtcars, na.rm=T)
  6. summary(ex)
  7.  
  8. Estimate Std. Error t value Pr(>|t|)
  9. (Intercept) 49.80842 3.60516 13.816 5.01e-14 ***
  10. hp -0.12010 0.02470 -4.863 4.04e-05 ***
  11. wt -8.21662 1.26971 -6.471 5.20e-07 ***
  12. hp:wt 0.02785 0.00742 3.753 0.000811 ***
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement