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)