powered by
data(metal.df)
hardness
setting
rate
data(metal.df) med <-ifelse(metal.df$setting=="medium", 1,0) slow<-ifelse(metal.df$setting=="slow", 1,0) summary(lm(rate~med + slow + hardness, data=metal.df))
Run the code above in your browser using DataLab