R kode som illustrerer t test og konfidensintervall for to utvalg (avsnitt 10.2)

 

 

# Vi vil illustrere teorien i avsnitt 10.2 i l?reboka ved ? se p? data om "peak expiratory flow" (PEF) for et utvalg av 10 menn og 11 kvinner.

# PEF m?les med et peak flow meter og angir den kraften en kan bl?se luften ut av lungene med (m?leenheten er liter per minutt).

 

# Vi leser inn pef m?lingene:

pef.mann=c(603, 628, 610, 639, 579, 637, 653, 612, 623, 550)

pef.kvinne=c(455,456,523,458, 460, 435, 489, 399, 525, 464, 450)

 

# Vi bruker kommandoen t.test til ? teste om kvinner og menn har samme forventede PEF verdi og til ? lage et konfidensintervall for differansen i forventede PEF verdier.

 

# Vi bruker f?rst de klassiske metodene som forutsetter at variansen er den samme for kvinner og menn (jf. sidene 492-493 i l?reboka):

t.test(pef.mann,pef.kvinne,var.equal=T)

 

# Vi bruker s? de modifiserte metodene som ikke krever at variansen er den samme for kvinner og menn (jf. sidene 487-489 i l?reboka):

t.test(pef.mann,pef.kvinne,var.equal=F)