R-hjelp til exercise 3.1 i BSS

 

 

# Les dataene inn i en dataramme, gi navn til variablene i datarammen og se p? dataene:

cafe<-read.table("http://www.math.uio.no/avdc/kurs/STK4900/data/exer3_1.dat")

names(cafe)<-c("no","sale")

cafe

 

# Se p? dataene og kontroller at de svarer til de som er gitt i oppgaven.

 

 

# Gj?r variablene i datarammen tilgjengelige

attach(cafe)

 

 

# Lag plot av salg som funksjon av antall dispensere:

plot(no,sale)

 

# Se p? plottet. Hvordan er sammenhengen mellom antall dispensere og kaffesalget

 

 

# Tilpass en rett linje og tegn den inn p? plottet:

lm(sale~no)

abline(lm(sale~no))

 

# Hvor godt beskriver den rette linja sammenhengen mellom antall dispensere og kaffesalget?

 

 

# Tilpass en andregrads kurve

# (merk at vi i en regresjonsformel m? skrive # andregradsleddet inne i I( ),

# for ellers kan tegnet bli ^ misforst?s av R):

lm(sale~no+I(no^2))

 

# Beregn og tegn inn andregradskurven:

x<-seq(0,7,0.1)

koef<-lm(sale~no+I(no^2))$coef

koef

lines(x,koef[1]+koef[2]*x+koef[3]*x^2,lty=2)

 

# Gir den rette linja eller andregrads kurven best sammenheng

# mellom antall dispensere og kaffesalget?