R kode som illustrerer test og konfidensintervall for sammenligning av to varianser (avsnitt 10.5)

# Vi vil illustrere teorien i avsnitt 10.5 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 var.test til ? teste om variansen i PEF verdiene er den samme for kvinner og menn og til ? lage et konfidensintervall for forholdet mellom variansene.

var.test(pef.mann,pef.kvinne)