fork download
copy 
  1. #(a)
  2. > data = read.csv("https://c...content-available-to-author-only...n.de/book/pizza_delivery.csv")
  3. > data
  4. > a <- lm(time ~temperature + branch + day + operator + driver + bill + pizzas + discount_customer,data = data)
  5. > summary(a)
  6.  
  7. > #(b)
  8. > lcl<-coefficients(a) - qt(0.975,1248) * sqrt(diag(vcov(a)))
  9. > ucl<-coefficients(a) + qt(0.975,1248) * sqrt(diag(vcov(a)))
  10. > cbind(coefficients(a),lcl,ucl)
  11. > #(c)
  12. > sum(residuals(a)^2)/(a$df.residual)
  13. > #(d)
  14. > t = data[,3]
  15. > t
  16. > st<-sum((t - mean(t))^2)
  17. > se = sum(residuals(a)^2)
  18. > rsuare = 1-(se/st)
  19. > radj = 1-((se/1248)/(st/1265))
  20. > rsuare
  21. > radj
  22. > #(e)
  23. > a2<- lm(time~temperature + branch + day + driver + bill + pizzas,data = data)
  24. > predict(a2,data[031,])
  25.  
  26. > #end
  27. > # your code goes here# your code goes here
Success #stdin #stdout #stderr 0.24s 39260KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: unexpected '>' in ">"
Execution halted
https://ideone.com/JHWgQM
language:
R (R 3.5.2)
created:
2 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!