R version 3.0.2 (2013-09-25) -- "Frisbee Sailing"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> x <- c(25.7300
+ ,26.2400
+ ,25.5150
+ ,26.4400
+ ,27.0800
+ ,26.8000
+ ,26.2850
+ ,25.4600
+ ,24.6500
+ ,23.7050
+ ,21.6500
+ ,20.7500
+ ,23.6300
+ ,21.8650
+ ,22.1050
+ ,22.8900
+ ,22.1000
+ ,23.2300
+ ,23.0150
+ ,22.6900
+ ,21.5300
+ ,20.8050
+ ,20.5050
+ ,22.6250
+ ,21.9250
+ ,22.3300
+ ,22.0300
+ ,22.7250
+ ,23.0150
+ ,22.3650
+ ,22.2450
+ ,23.1250
+ ,22.9500
+ ,22.2200
+ ,21.9150
+ ,23.1400
+ ,22.5100
+ ,21.9850
+ ,21.7450
+ ,21.1350
+ ,20.5350
+ ,22.0000
+ ,22.6150
+ ,22.5350
+ ,22.6900
+ ,23.4350
+ ,22.1650
+ ,21.9650
+ ,23.0700
+ ,22.3750
+ ,22.9900
+ ,22.9900
+ ,22.4150
+ ,22.6550
+ ,22.1100
+ ,22.2850
+ ,22.4850
+ ,23.2300
+ ,22.7400
+ ,22.5900
+ ,22.2150
+ ,22.3300
+ ,21.9850
+ ,22.0500
+ ,22.2900
+ ,22.2050
+ ,22.4650
+ ,22.6350
+ ,22.9500
+ ,22.7200
+ ,22.3550
+ ,22.4650
+ ,22.6200
+ ,22.3000
+ ,21.8650
+ ,22.0100
+ ,21.3100
+ ,21.6800
+ ,21.9200
+ ,21.4400
+ ,21.6450
+ ,21.5600
+ ,21.1000
+ ,21.5150
+ ,21.6650
+ ,21.9300
+ ,21.7750
+ ,21.3600
+ ,21.1200
+ ,21.6600
+ ,21.2000
+ ,21.3450
+ ,21.7750
+ ,21.1550
+ ,20.3350
+ ,20.6350
+ ,22.1950
+ ,21.9250
+ ,21.3000
+ ,21.3400
+ ,21.6500
+ ,21.4200
+ ,21.0450
+ ,21.5300
+ ,21.1850
+ ,20.5350
+ ,20.4250
+ ,19.8450
+ ,19.4150
+ ,19.8650
+ ,18.9250
+ ,19.5500
+ ,19.3750
+ ,19.5800
+ ,19.7850
+ ,20.4200
+ ,20.6100
+ ,20.6350
+ ,20.7250
+ ,20.8250
+ ,21.0900
+ ,21.3200
+ ,22.0700
+ ,22.0100
+ ,22.3750
+ ,22.4250
+ ,22.5500
+ ,21.9600
+ ,21.9750
+ ,22.4300
+ ,22.6700
+ ,22.4850
+ ,22.4950
+ ,22.3100
+ ,22.4950
+ ,22.4950
+ ,22.3650
+ ,22.1050
+ ,22.5150
+ ,22.5500
+ ,22.5100
+ ,22.1650
+ ,21.5450
+ ,21.4650
+ ,21.4600
+ ,21.3950
+ ,21.1200
+ ,21.1400
+ ,21.3550
+ ,21.5250
+ ,21.2350
+ ,21.5850
+ ,21.5700
+ ,21.4700
+ ,21.4000
+ ,21.4600
+ ,21.3750
+ ,22.2000
+ ,21.8150
+ ,22.4500
+ ,22.4800
+ ,23.0350
+ ,23.3200
+ ,23.5000
+ ,23.3400
+ ,23.6500
+ ,23.6050
+ ,23.3150
+ ,23.4500
+ ,24.5800
+ ,24.5100
+ ,24.8300
+ ,24.5450
+ ,24.8800
+ ,24.7200
+ ,24.6900
+ ,24.5450
+ ,24.2050
+ ,24.2900
+ ,24.4450
+ ,24.0550
+ ,23.9150
+ ,23.9650
+ ,24.7750
+ ,24.4050
+ ,23.9950
+ ,23.9000
+ ,23.7500
+ ,23.9250
+ ,24.0650
+ ,24.1450
+ ,23.9950
+ ,24.5900
+ ,24.4400
+ ,24.5000
+ ,24.3200
+ ,24.2550
+ ,24.3550
+ ,24.1550
+ ,24.5250
+ ,24.6450
+ ,25.2650
+ ,25.3950
+ ,25.1600
+ ,25.5150
+ ,25.1750
+ ,24.5650
+ ,24.5900
+ ,24.6800
+ ,24.7600
+ ,24.6950
+ ,24.6400
+ ,24.8350
+ ,24.9200
+ ,24.8000
+ ,24.7500
+ ,24.5850
+ ,24.6950
+ ,24.6700
+ ,24.7200
+ ,24.5200
+ ,24.2300
+ ,24.0600
+ ,24.2350
+ ,24.3500
+ ,24.3050
+ ,24.6800
+ ,24.7100
+ ,24.9550
+ ,24.5300
+ ,24.3700
+ ,24.5900
+ ,24.7200
+ ,24.5300
+ ,24.3850
+ ,24.2650
+ ,24.9000
+ ,24.7900
+ ,24.9750
+ ,25.2050
+ ,25.3150
+ ,25.2900
+ ,25.7550
+ ,26.0800
+ ,26.2250
+ ,26.3350
+ ,26.7100
+ ,26.8800
+ ,26.5000
+ ,26.4250
+ ,26.2900
+ ,26.1700
+ ,26.4850
+ ,26.5650
+ ,26.6550
+ ,26.8500
+ ,26.5600
+ ,26.9350
+ ,26.9000
+ ,27.1600
+ ,27.4050
+ ,27.2950
+ ,27.3250
+ ,27.3950
+ ,27.4000
+ ,27.4200
+ ,27.4600
+ ,27.5050
+ ,27.3950
+ ,27.0350
+ ,27.0350
+ ,27.0750
+ ,26.6200
+ ,26.6150
+ ,26.7300
+ ,26.7550
+ ,27.0450
+ ,26.6550
+ ,26.8600
+ ,26.5600
+ ,26.7450
+ ,27.2000
+ ,27.2450
+ ,27.7400
+ ,27.9050
+ ,28.0650
+ ,27.9700
+ ,28.2300
+ ,28.3700
+ ,28.4350
+ ,28.2900
+ ,28.4400
+ ,28.7400
+ ,29.1200
+ ,29.0950
+ ,29.0550
+ ,28.5900
+ ,28.6000
+ ,29.0400
+ ,28.9800
+ ,28.6350
+ ,28.7450
+ ,28.9350
+ ,28.8400
+ ,28.9150
+ ,29.2900
+ ,29.5550
+ ,29.5200
+ ,29.5300
+ ,29.2100
+ ,28.4900
+ ,28.4600
+ ,28.5900
+ ,28.6350
+ ,28.6450
+ ,28.7200
+ ,28.7200
+ ,28.8700
+ ,28.8400
+ ,28.5000
+ ,28.5200
+ ,28.1750
+ ,28.1650
+ ,28.0950
+ ,27.5750
+ ,28.1350
+ ,28.4400
+ ,28.5150
+ ,28.5650
+ ,28.1450
+ ,28.2100
+ ,27.7500
+ ,27.1850
+ ,27.1200
+ ,27.1750
+ ,27.0700
+ ,27.2550
+ ,27.0900
+ ,27.1250
+ ,27.1900
+ ,27.5250
+ ,27.4350
+ ,26.7150
+ ,26.5450
+ ,26.3250
+ ,27.0050
+ ,26.8950
+ ,27.1100
+ ,26.9900
+ ,27.4100
+ ,27.6650
+ ,27.9550
+ ,27.8600
+ ,27.6900
+ ,27.4150
+ ,27.5800
+ ,26.5600
+ ,26.3600
+ ,26.6350
+ ,26.6500
+ ,26.9650
+ ,27.2350
+ ,27.3500
+ ,27.2300
+ ,27.0900
+ ,27.1000
+ ,26.8000
+ ,26.6750
+ ,26.8250
+ ,26.8500
+ ,26.9200
+ ,26.9750
+ ,27.3750
+ ,27.2700
+ ,27.6500
+ ,27.3100
+ ,27.4000
+ ,27.3250
+ ,27.3850
+ ,27.4350
+ ,27.5000
+ ,27.6500
+ ,27.4300
+ ,27.1450
+ ,26.9100
+ ,26.8800
+ ,27.2950
+ ,27.3800
+ ,27.5100
+ ,27.4750
+ ,27.1300
+ ,27.4850
+ ,27.6600
+ ,27.2350
+ ,27.0950
+ ,27.1550
+ ,26.9400
+ ,26.8650
+ ,26.4350
+ ,26.6800
+ ,26.8700
+ ,26.7250
+ ,26.8800
+ ,26.5900
+ ,26.8300
+ ,26.1500
+ ,26.3350
+ ,27.0200
+ ,26.8050
+ ,27.0100
+ ,26.7450
+ ,26.6700
+ ,26.7050
+ ,26.5500
+ ,26.5600
+ ,25.7700
+ ,25.7950
+ ,25.7300
+ ,25.3100
+ ,25.0400
+ ,25.6150
+ ,25.7000
+ ,25.6450
+ ,26.2050
+ ,26.3750
+ ,25.6350
+ ,25.4000
+ ,25.7800
+ ,25.6750
+ ,26.2250
+ ,25.8250
+ ,25.7550
+ ,26.0900
+ ,26.2000
+ ,26.1800
+ ,26.1550
+ ,26.2400
+ ,26.2300
+ ,26.1200
+ ,25.9000
+ ,25.1300
+ ,25.5400
+ ,25.1650
+ ,25.0600
+ ,25.0150
+ ,25.0250
+ ,25.2150
+ ,25.7350
+ ,26.2100
+ ,26.2000
+ ,26.2250
+ ,26.3600
+ ,26.4100
+ ,26.4250
+ ,26.1850
+ ,26.1350
+ ,26.6200
+ ,27.0400
+ ,27.1300
+ ,27.3750
+ ,27.4700
+ ,27.5250
+ ,27.4400
+ ,27.4950
+ ,27.5550
+ ,28.2050
+ ,28.1900
+ ,28.2750
+ ,28.1850
+ ,28.3750
+ ,28.5550
+ ,28.4900
+ ,28.0200
+ ,27.8450
+ ,27.8650
+ ,27.9400
+ ,28.0600
+ ,27.9200
+ ,27.6400
+ ,27.6500
+ ,27.8000
+ ,27.8300
+ ,27.6950
+ ,27.5800
+ ,28.0800
+ ,27.7750
+ ,27.9413
+ ,28.6550
+ ,28.6900
+ ,28.7800
+ ,28.8150
+ ,28.9150
+ ,29.1450
+ ,29.2600
+ ,29.0150
+ ,28.7950
+ ,28.7100
+ ,28.7550
+ ,28.7800
+ ,28.9850
+ ,29.0550
+ ,29.1150
+ ,28.9350
+ ,29.3100
+ ,29.3000
+ ,29.5500
+ ,29.3800
+ ,29.2600
+ ,29.5600
+ ,29.4400
+ ,29.8300
+ ,29.9000
+ ,29.7200
+ ,29.7050
+ ,29.7800
+ ,29.8000
+ ,29.9700
+ ,29.9550
+ ,29.9700
+ ,30.0000
+ ,30.1700
+ ,30.5750
+ ,30.7350
+ ,30.8050
+ ,30.5050
+ ,30.6200
+ ,30.5950
+ ,30.6050
+ ,30.6600
+ ,30.8550
+ ,30.9300
+ ,30.9750
+ ,31.2250
+ ,31.2900
+ ,31.2300
+ ,31.3200
+ ,31.2750
+ ,31.4000
+ ,31.4600
+ ,31.4800
+ ,31.0400
+ ,31.2600
+ ,31.9200
+ ,32.1600
+ ,32.1350
+ ,31.8100
+ ,32.3050
+ ,32.0550
+ ,31.6950
+ ,31.5850
+ ,32.3500
+ ,32.4500
+ ,32.2500
+ ,31.9950
+ ,32.0700
+ ,32.1950
+ ,32.4150
+ ,32.3250
+ ,32.4250
+ ,31.9500
+ ,32.3700
+ ,32.6700
+ ,32.8500
+ ,32.6550
+ ,32.7450
+ ,32.7950
+ ,32.7900
+ ,32.5350
+ ,32.6800
+ ,32.7250
+ ,32.7500
+ ,32.8850
+ ,32.6100
+ ,31.9350
+ ,31.7450
+ ,31.5150
+ ,31.4600
+ ,31.5300
+ ,31.3450
+ ,31.5200
+ ,31.7000
+ ,31.5650
+ ,31.7400
+ ,31.7100
+ ,31.4650
+ ,31.3850
+ ,31.6250
+ ,31.4800
+ ,31.4800
+ ,31.3500
+ ,31.1050
+ ,31.4250
+ ,31.5250
+ ,31.4300
+ ,31.2850
+ ,31.2800
+ ,31.2600
+ ,31.4350
+ ,31.5750
+ ,31.7700
+ ,31.7850
+ ,31.5700
+ ,31.5950
+ ,31.7000
+ ,32.2750
+ ,32.2750
+ ,31.8800
+ ,31.9550
+ ,31.9400
+ ,32.1550
+ ,31.9600
+ ,32.4550
+ ,32.2150
+ ,32.7850
+ ,32.6050
+ ,32.6100
+ ,32.8200
+ ,32.8100
+ ,32.6450
+ ,32.4050
+ ,31.9700
+ ,31.5150
+ ,30.8000
+ ,31.1400
+ ,31.3500
+ ,31.7850
+ ,31.7550
+ ,32.1350
+ ,32.3450
+ ,32.6100
+ ,32.5150
+ ,32.8600
+ ,33.0200
+ ,33.1700
+ ,33.6100
+ ,33.8300
+ ,33.7350
+ ,33.8150
+ ,33.7200
+ ,33.6350
+ ,33.7000
+ ,33.4500
+ ,33.6400
+ ,34.1550
+ ,34.0050
+ ,33.6550
+ ,33.5450
+ ,33.9250
+ ,33.9400
+ ,33.8700
+ ,33.4650
+ ,33.5000
+ ,33.7050
+ ,33.7300
+ ,33.8600
+ ,33.9400
+ ,33.7300
+ ,33.3500
+ ,33.4500
+ ,33.4750
+ ,33.6700
+ ,33.6600
+ ,34.1550
+ ,34.0900
+ ,33.9150
+ ,33.9950
+ ,34.1500
+ ,34.2300
+ ,34.1500
+ ,33.7450
+ ,33.7350
+ ,33.4550
+ ,33.3500
+ ,33.2550
+ ,33.4050
+ ,33.3800
+ ,33.0200
+ ,32.7650
+ ,32.7100
+ ,32.6000
+ ,32.7000
+ ,32.9450
+ ,32.6950
+ ,32.5600
+ ,32.8050
+ ,32.4850
+ ,32.7450
+ ,32.8100
+ ,32.9150
+ ,33.1300
+ ,33.2000
+ ,32.4900
+ ,32.4650
+ ,32.6050
+ ,33.0150
+ ,33.3550
+ ,33.6450
+ ,34.0450
+ ,34.1500
+ ,34.2650
+ ,34.3750
+ ,34.3400
+ ,34.0500
+ ,33.9250
+ ,34.0300
+ ,33.8350
+ ,33.7650
+ ,33.5600
+ ,34.6600
+ ,34.4350
+ ,34.6700
+ ,34.8650
+ ,34.6300
+ ,34.5950
+ ,34.3450
+ ,34.4050
+ ,34.0050
+ ,33.8650
+ ,33.5350
+ ,34.2000
+ ,32.9100
+ ,33.3850
+ ,32.5600
+ ,33.3400
+ ,31.9800
+ ,33.2350
+ ,33.5700
+ ,34.1000
+ ,34.0850
+ ,34.6400
+ ,33.8800
+ ,33.5500
+ ,33.6350
+ ,34.5300
+ ,34.8400
+ ,33.9850
+ ,34.2500
+ ,34.8650
+ ,34.9300
+ ,35.2250
+ ,35.2250
+ ,34.8700
+ ,34.7150
+ ,35.4000
+ ,35.5850
+ ,34.6850
+ ,34.6900
+ ,34.5500
+ ,34.8850
+ ,35.5100
+ ,35.6150
+ ,35.2450
+ ,35.3250
+ ,34.6400
+ ,33.9100
+ ,33.7100
+ ,34.3800
+ ,34.7850
+ ,34.0300
+ ,34.5250
+ ,33.7800
+ ,32.7100
+ ,32.6150
+ ,32.7650
+ ,32.6950
+ ,32.9500
+ ,33.4500
+ ,33.4000
+ ,33.7400
+ ,33.7000
+ ,33.9250
+ ,33.5000
+ ,33.3700
+ ,33.5150
+ ,33.5600
+ ,34.0950
+ ,33.9350
+ ,33.4750
+ ,33.7350
+ ,34.2850
+ ,34.4650
+ ,34.1600
+ ,33.5200
+ ,33.8850
+ ,34.3250
+ ,33.8900
+ ,34.1050
+ ,34.3250
+ ,33.5150
+ ,33.6950
+ ,34.0600
+ ,33.8950
+ ,34.0000
+ ,33.5050
+ ,33.3100
+ ,33.6950
+ ,32.9750
+ ,32.9850
+ ,32.4350
+ ,32.3700
+ ,32.5850
+ ,33.0950
+ ,33.6150
+ ,33.4150
+ ,33.1900
+ ,33.1550
+ ,33.3400
+ ,33.3900
+ ,33.3650
+ ,33.7850
+ ,33.4450
+ ,33.2400
+ ,33.1300
+ ,33.4450
+ ,33.7200
+ ,33.6850
+ ,34.2000
+ ,34.7850
+ ,34.5950
+ ,34.9700
+ ,34.9400
+ ,34.7550
+ ,35.0800
+ ,34.9850
+ ,35.0700
+ ,34.8500
+ ,34.6850
+ ,34.4650
+ ,34.4650
+ ,34.6700
+ ,34.0300
+ ,33.7850
+ ,33.4950
+ ,33.6750
+ ,33.7950
+ ,33.7250
+ ,34.0450
+ ,34.2650
+ ,33.9500
+ ,34.2150
+ ,34.0050
+ ,33.7200
+ ,33.7300
+ ,33.7650
+ ,33.9250
+ ,33.9150
+ ,34.0400
+ ,34.0150
+ ,34.2750
+ ,34.1650
+ ,33.9850
+ ,33.9700
+ ,34.2200
+ ,34.4500
+ ,34.2000
+ ,34.4300
+ ,34.5250
+ ,34.4100
+ ,34.6250
+ ,34.5900
+ ,34.5000
+ ,34.4150
+ ,34.4250
+ ,34.9300
+ ,34.8000
+ ,34.5900
+ ,34.6150
+ ,34.3800
+ ,34.3950
+ ,34.6350
+ ,34.7550
+ ,35.0750
+ ,35.1250
+ ,35.1100
+ ,35.1650
+ ,35.0800
+ ,35.2000
+ ,35.2950
+ ,35.5600
+ ,35.7100
+ ,35.7450
+ ,35.9500
+ ,35.9350
+ ,36.3300
+ ,36.9050
+ ,37.0050
+ ,37.0700
+ ,36.8800
+ ,36.7300
+ ,36.7350
+ ,36.4350
+ ,36.0100
+ ,36.0600
+ ,36.1100
+ ,35.9700
+ ,36.2200
+ ,36.9750
+ ,37.0850
+ ,36.9100
+ ,37.0650
+ ,36.8450
+ ,37.0600
+ ,37.4650
+ ,37.8550
+ ,38.3150
+ ,38.1600
+ ,38.4650
+ ,38.5800
+ ,38.7200
+ ,38.5000
+ ,38.6400
+ ,38.5700
+ ,38.3900
+ ,38.7050
+ ,38.7350
+ ,38.4350
+ ,38.2850
+ ,38.1650
+ ,37.5600
+ ,37.0250
+ ,37.2550
+ ,37.0950
+ ,37.2750
+ ,37.7800
+ ,37.6150
+ ,37.7300
+ ,37.5300
+ ,37.3650
+ ,36.5450
+ ,36.8200
+ ,36.6200
+ ,37.3050
+ ,37.1400
+ ,37.6200
+ ,37.3300
+ ,37.6000
+ ,37.3450
+ ,37.8700
+ ,38.0450
+ ,37.9900
+ ,37.8700
+ ,37.7800
+ ,37.3350
+ ,37.4700
+ ,37.3850
+ ,37.5400
+ ,38.1700
+ ,38.2850
+ ,39.0950
+ ,39.4600
+ ,39.5800
+ ,39.2250
+ ,39.0750
+ ,38.9900
+ ,38.9900
+ ,38.7300
+ ,38.3200
+ ,38.6400
+ ,38.2400
+ ,38.8450
+ ,38.7200
+ ,38.7750
+ ,38.5150
+ ,38.4400
+ ,38.3300
+ ,38.5100
+ ,39.4250
+ ,40.0050
+ ,40.5600
+ ,40.4000
+ ,40.5050
+ ,39.8750
+ ,40.4150
+ ,40.3200
+ ,39.8850
+ ,39.7800
+ ,39.6200
+ ,39.3950
+ ,39.3000
+ ,39.3800
+ ,39.3500
+ ,39.5500
+ ,39.5300
+ ,39.4700
+ ,39.2600
+ ,38.7700
+ ,38.1100
+ ,38.4700
+ ,38.1700
+ ,38.0000
+ ,37.4600
+ ,37.1400
+ ,37.4000
+ ,37.2800
+ ,37.5100
+ ,38.1500
+ ,37.9000
+ ,37.6600
+ ,37.7700
+ ,37.5500
+ ,38.3500
+ ,38.1200
+ ,38.3500
+ ,38.6200
+ ,38.5200
+ ,38.6400
+ ,38.0300
+ ,38.1200
+ ,37.6800
+ ,37.7600
+ ,38.3100
+ ,37.9300
+ ,38.3800
+ ,38.3400
+ ,38.2400
+ ,38.3300
+ ,38.5800
+ ,38.5800
+ ,38.5600
+ ,38.0900
+ ,38.1100
+ ,38.2300
+ ,38.1300
+ ,37.9000
+ ,37.7400
+ ,37.8400
+ ,37.4000
+ ,37.2300
+ ,36.6100
+ ,36.8800
+ ,37.0900
+ ,37.0400
+ ,37.1800
+ ,37.3300
+ ,37.0800
+ ,36.7700
+ ,37.4200
+ ,36.7200
+ ,36.3600
+ ,36.2900
+ ,36.0800
+ ,36.1600
+ ,36.0100
+ ,36.4300
+ ,36.5600
+ ,37.2400
+ ,37.2500
+ ,37.3900
+ ,37.9300
+ ,37.3600
+ ,37.4200
+ ,37.5600
+ ,37.9700
+ ,37.9200
+ ,37.3800
+ ,37.1500
+ ,37.3100
+ ,37.3800
+ ,37.7100
+ ,37.6400
+ ,37.8600
+ ,37.6400
+ ,37.6000
+ ,37.6600
+ ,37.5000
+ ,37.2800
+ ,36.7800
+ ,37.0500
+ ,36.8900
+ ,36.7300
+ ,36.4200
+ ,36.4200
+ ,35.9700
+ ,36.2500
+ ,37.6000
+ ,37.6000
+ ,37.6600
+ ,37.3000
+ ,37.0400
+ ,37.0300
+ ,36.9600
+ ,36.9100
+ ,36.9900
+ ,37.3200
+ ,37.3200
+ ,37.5100
+ ,37.7000
+ ,37.1300
+ ,37.1300
+ ,37.1100
+ ,37.0500
+ ,37.0100
+ ,37.4200
+ ,37.5000
+ ,37.2400
+ ,37.5400
+ ,37.3500
+ ,38.1400
+ ,38.3100
+ ,38.9100
+ ,38.7700
+ ,38.6100
+ ,37.5600
+ ,37.2100
+ ,36.8400
+ ,37.4200
+ ,37.6700
+ ,37.7300
+ ,37.7100
+ ,38.5200
+ ,37.7200
+ ,38.1100
+ ,38.4500
+ ,38.7200
+ ,38.7000
+ ,38.8200
+ ,38.6800
+ ,39.0200
+ ,39.1200
+ ,39.2200
+ ,39.3100
+ ,38.9600
+ ,38.5900
+ ,39.0200
+ ,38.8300
+ ,38.7600
+ ,39.3300
+ ,39.8700
+ ,40.0700
+ ,40.0400
+ ,40.1200
+ ,40.6900
+ ,40.2200
+ ,40.4400
+ ,40.4500
+ ,40.7200
+ ,40.1700
+ ,40.5400
+ ,40.0800
+ ,40.8600
+ ,40.7100
+ ,41.0700
+ ,41.1800
+ ,41.0800
+ ,40.0900
+ ,42.3700
+ ,42.5500
+ ,42.1000
+ ,42.6600
+ ,42.7200
+ ,42.7000
+ ,42.1500
+ ,42.3500
+ ,42.1000
+ ,42.2400
+ ,42.3300
+ ,42.2100
+ ,41.9600
+ ,42.2400
+ ,42.0800
+ ,42.7000
+ ,42.4600
+ ,42.1200
+ ,42.1500
+ ,42.1900
+ ,42.5200
+ ,42.9200
+ ,43.0900
+ ,42.9700
+ ,42.3800
+ ,42.3400
+ ,42.2500
+ ,41.9300
+ ,42.2400
+ ,42.5500
+ ,41.4000
+ ,40.7700
+ ,39.9900
+ ,40.8100
+ ,41.4200
+ ,40.6500
+ ,40.7900
+ ,41.4100
+ ,41.1800
+ ,40.7900
+ ,40.3900
+ ,40.4100
+ ,40.3400
+ ,40.6800
+ ,40.9300
+ ,40.4100
+ ,39.1300
+ ,39.7600
+ ,39.5300
+ ,39.7200
+ ,40.3300
+ ,40.2600
+ ,40.1100
+ ,40.4600
+ ,40.3700
+ ,40.4900
+ ,40.5200
+ ,40.5400
+ ,40.8300
+ ,40.6800
+ ,41.0300
+ ,41.0300
+ ,41.0100
+ ,40.2300
+ ,40.8400
+ ,40.8100
+ ,41.0900
+ ,40.8400
+ ,40.9600
+ ,40.8600
+ ,40.8400
+ ,40.6400
+ ,40.2800
+ ,40.3200
+ ,40.0800
+ ,40.5700
+ ,40.2200
+ ,40.2900
+ ,40.3700
+ ,40.1500
+ ,40.2000
+ ,40.1600
+ ,39.8300
+ ,39.6500
+ ,39.5300
+ ,39.0900
+ ,39.0500
+ ,38.7800
+ ,38.6500
+ ,38.2800
+ ,38.3100
+ ,38.5200
+ ,38.1200
+ ,38.1500
+ ,38.3500
+ ,38.1000
+ ,38.1800
+ ,37.9000
+ ,38.5400
+ ,38.2400
+ ,38.3500
+ ,38.5200
+ ,38.6300
+ ,38.7800
+ ,38.4400
+ ,38.6900
+ ,38.8600
+ ,38.7900
+ ,39.5900
+ ,39.3100
+ ,39.4000
+ ,38.6300
+ ,38.5300
+ ,38.3300
+ ,38.7400
+ ,38.4000
+ ,37.8800
+ ,37.9500
+ ,37.4300
+ ,37.1600
+ ,37.2000
+ ,37.0500
+ ,37.2800
+ ,37.0800
+ ,37.7800
+ ,37.7700
+ ,37.9100
+ ,37.6600
+ ,38.0000
+ ,38.5500
+ ,38.7800
+ ,38.8200
+ ,39.0900
+ ,39.0900
+ ,38.8000
+ ,39.0300
+ ,39.6100
+ ,39.8000
+ ,39.6200
+ ,39.5700
+ ,39.6100
+ ,39.5100
+ ,39.5000
+ ,40.0500
+ ,39.8300
+ ,40.0500
+ ,39.8700
+ ,39.8800
+ ,40.1200
+ ,40.2100
+ ,40.2200
+ ,40.1700
+ ,40.1400
+ ,40.0600
+ ,40.4300
+ ,40.4300
+ ,40.3700
+ ,40.2500
+ ,40.1900
+ ,40.1900
+ ,40.0800
+ ,40.3500
+ ,40.3700
+ ,39.8300
+ ,40.4600
+ ,40.4000
+ ,39.8500
+ ,40.1300
+ ,39.2100
+ ,39.2300
+ ,39.2700
+ ,39.1000
+ ,40.0200
+ ,39.8600
+ ,40.0400
+ ,40.1600
+ ,40.1900
+ ,40.4900
+ ,40.6600
+ ,41.0900
+ ,41.3100
+ ,40.6600
+ ,40.4600
+ ,40.2700
+ ,40.3900
+ ,39.9400
+ ,39.7300
+ ,40.1300
+ ,39.5300
+ ,39.6900
+ ,39.7600
+ ,39.7100
+ ,39.2800
+ ,39.9200
+ ,39.9000
+ ,39.2400
+ ,38.8400
+ ,38.7300
+ ,38.8700
+ ,37.9000
+ ,38.1700
+ ,37.8200
+ ,37.2000
+ ,37.4800
+ ,37.6100
+ ,38.0300
+ ,37.9500
+ ,38.5700
+ ,38.6400
+ ,38.5100
+ ,38.6500
+ ,38.9300
+ ,37.4700
+ ,37.1000
+ ,37.3000
+ ,37.1800
+ ,37.5000
+ ,37.7700
+ ,37.8700
+ ,38.0700
+ ,38.2000
+ ,38.1200
+ ,38.3100
+ ,38.3500
+ ,38.4700
+ ,38.5500
+ ,38.6500
+ ,38.8000
+ ,38.4700
+ ,37.9700
+ ,38.1700
+ ,38.2700
+ ,38.4000
+ ,38.1400
+ ,38.4500
+ ,38.4400
+ ,38.4000
+ ,38.6200
+ ,38.6100
+ ,38.8200
+ ,38.9500
+ ,38.6600
+ ,38.4100
+ ,38.3300
+ ,38.0700
+ ,38.2200
+ ,38.6200
+ ,38.9000
+ ,38.9900
+ ,38.8900
+ ,38.6300
+ ,38.7300
+ ,40.1800
+ ,40.5900
+ ,40.7200
+ ,40.7500
+ ,40.7100
+ ,40.7300
+ ,40.7000
+ ,41.0100
+ ,41.0300
+ ,40.5700
+ ,40.7900
+ ,40.7800
+ ,40.9500
+ ,40.7600
+ ,40.4900
+ ,40.9100
+ ,40.7300
+ ,40.8700
+ ,40.8200
+ ,41.1100
+ ,40.8900
+ ,40.5200
+ ,40.8900
+ ,40.7100
+ ,40.5800
+ ,40.8700
+ ,40.5800
+ ,40.5800
+ ,40.7700
+ ,40.5800
+ ,40.6600
+ ,40.9100
+ ,40.8600
+ ,40.8800
+ ,40.7900
+ ,40.8900
+ ,40.9900
+ ,40.9100
+ ,41.0700
+ ,40.8600
+ ,40.4200
+ ,40.3700
+ ,40.6600
+ ,40.9200
+ ,41.5600
+ ,41.7900
+ ,41.6900
+ ,41.7300
+ ,41.8500
+ ,41.9600
+ ,42.0300
+ ,42.1900
+ ,42.3600
+ ,42.2900
+ ,42.2900
+ ,42.2300
+ ,42.1400
+ ,41.9400
+ ,41.9500
+ ,42.2600
+ ,41.9700
+ ,42.3800
+ ,42.1000
+ ,42.1200
+ ,42.0200
+ ,42.4300
+ ,42.4000
+ ,41.1900
+ ,40.8100
+ ,40.9700
+ ,41.0000
+ ,40.6800
+ ,40.3500
+ ,39.6200
+ ,39.2900
+ ,39.2900
+ ,39.4000
+ ,39.1800
+ ,39.9200
+ ,39.3500
+ ,39.4500
+ ,39.5700
+ ,39.6800
+ ,39.9400
+ ,40.1800
+ ,40.8800
+ ,41.3500
+ ,41.2600
+ ,41.2500
+ ,41.4100
+ ,41.1200
+ ,41.4100
+ ,41.6000
+ ,41.6000
+ ,41.6300
+ ,41.7200
+ ,41.6400
+ ,41.7800
+ ,41.8700
+ ,41.8400
+ ,41.7800
+ ,41.9400
+ ,42.1700
+ ,41.9500
+ ,41.4600
+ ,41.5000
+ ,41.6400
+ ,41.6100
+ ,41.7900
+ ,42.0500
+ ,42.2200
+ ,41.8900
+ ,42.2700
+ ,41.7800)
> #'GNU S' R Code compiled by R2WASP v. 1.2.291 ()
> #Author: root
> #To cite this work: Wessa P., (2012), Variability (v1.0.5) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_variability.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #
> num <- 50
> res <- array(NA,dim=c(num,3))
> q1 <- function(data,n,p,i,f) {
+ np <- n*p;
+ i <<- floor(np)
+ f <<- np - i
+ qvalue <- (1-f)*data[i] + f*data[i+1]
+ }
> q2 <- function(data,n,p,i,f) {
+ np <- (n+1)*p
+ i <<- floor(np)
+ f <<- np - i
+ qvalue <- (1-f)*data[i] + f*data[i+1]
+ }
> q3 <- function(data,n,p,i,f) {
+ np <- n*p
+ i <<- floor(np)
+ f <<- np - i
+ if (f==0) {
+ qvalue <- data[i]
+ } else {
+ qvalue <- data[i+1]
+ }
+ }
> q4 <- function(data,n,p,i,f) {
+ np <- n*p
+ i <<- floor(np)
+ f <<- np - i
+ if (f==0) {
+ qvalue <- (data[i]+data[i+1])/2
+ } else {
+ qvalue <- data[i+1]
+ }
+ }
> q5 <- function(data,n,p,i,f) {
+ np <- (n-1)*p
+ i <<- floor(np)
+ f <<- np - i
+ if (f==0) {
+ qvalue <- data[i+1]
+ } else {
+ qvalue <- data[i+1] + f*(data[i+2]-data[i+1])
+ }
+ }
> q6 <- function(data,n,p,i,f) {
+ np <- n*p+0.5
+ i <<- floor(np)
+ f <<- np - i
+ qvalue <- data[i]
+ }
> q7 <- function(data,n,p,i,f) {
+ np <- (n+1)*p
+ i <<- floor(np)
+ f <<- np - i
+ if (f==0) {
+ qvalue <- data[i]
+ } else {
+ qvalue <- f*data[i] + (1-f)*data[i+1]
+ }
+ }
> q8 <- function(data,n,p,i,f) {
+ np <- (n+1)*p
+ i <<- floor(np)
+ f <<- np - i
+ if (f==0) {
+ qvalue <- data[i]
+ } else {
+ if (f == 0.5) {
+ qvalue <- (data[i]+data[i+1])/2
+ } else {
+ if (f < 0.5) {
+ qvalue <- data[i]
+ } else {
+ qvalue <- data[i+1]
+ }
+ }
+ }
+ }
> iqd <- function(x,def) {
+ x <-sort(x[!is.na(x)])
+ n<-length(x)
+ if (def==1) {
+ qvalue1 <- q1(x,n,0.25,i,f)
+ qvalue3 <- q1(x,n,0.75,i,f)
+ }
+ if (def==2) {
+ qvalue1 <- q2(x,n,0.25,i,f)
+ qvalue3 <- q2(x,n,0.75,i,f)
+ }
+ if (def==3) {
+ qvalue1 <- q3(x,n,0.25,i,f)
+ qvalue3 <- q3(x,n,0.75,i,f)
+ }
+ if (def==4) {
+ qvalue1 <- q4(x,n,0.25,i,f)
+ qvalue3 <- q4(x,n,0.75,i,f)
+ }
+ if (def==5) {
+ qvalue1 <- q5(x,n,0.25,i,f)
+ qvalue3 <- q5(x,n,0.75,i,f)
+ }
+ if (def==6) {
+ qvalue1 <- q6(x,n,0.25,i,f)
+ qvalue3 <- q6(x,n,0.75,i,f)
+ }
+ if (def==7) {
+ qvalue1 <- q7(x,n,0.25,i,f)
+ qvalue3 <- q7(x,n,0.75,i,f)
+ }
+ if (def==8) {
+ qvalue1 <- q8(x,n,0.25,i,f)
+ qvalue3 <- q8(x,n,0.75,i,f)
+ }
+ iqdiff <- qvalue3 - qvalue1
+ return(c(iqdiff,iqdiff/2,iqdiff/(qvalue3 + qvalue1)))
+ }
> range <- max(x) - min(x)
> lx <- length(x)
> biasf <- (lx-1)/lx
> varx <- var(x)
> bvarx <- varx*biasf
> sdx <- sqrt(varx)
> mx <- mean(x)
> bsdx <- sqrt(bvarx)
> x2 <- x*x
> mse0 <- sum(x2)/lx
> xmm <- x-mx
> xmm2 <- xmm*xmm
> msem <- sum(xmm2)/lx
> axmm <- abs(x - mx)
> medx <- median(x)
> axmmed <- abs(x - medx)
> xmmed <- x - medx
> xmmed2 <- xmmed*xmmed
> msemed <- sum(xmmed2)/lx
> qarr <- array(NA,dim=c(8,3))
> for (j in 1:8) {
+ qarr[j,] <- iqd(x,j)
+ }
> sdpo <- 0
> adpo <- 0
> for (i in 1:(lx-1)) {
+ for (j in (i+1):lx) {
+ ldi <- x[i]-x[j]
+ aldi <- abs(ldi)
+ sdpo = sdpo + ldi * ldi
+ adpo = adpo + aldi
+ }
+ }
> denom <- (lx*(lx-1)/2)
> sdpo = sdpo / denom
> adpo = adpo / denom
> gmd <- 0
> for (i in 1:lx) {
+ for (j in 1:lx) {
+ ldi <- abs(x[i]-x[j])
+ gmd = gmd + ldi
+ }
+ }
> gmd <- gmd / (lx*(lx-1))
> sumx <- sum(x)
> pk <- x / sumx
> ck <- cumsum(pk)
> dk <- array(NA,dim=lx)
> for (i in 1:lx) {
+ if (ck[i] <= 0.5) dk[i] <- ck[i] else dk[i] <- 1 - ck[i]
+ }
> bigd <- sum(dk) * 2 / (lx-1)
> iod <- 1 - sum(pk*pk)
> res[1,] <- c('Absolute range','http://www.xycoon.com/absolute.htm', range)
> res[2,] <- c('Relative range (unbiased)','http://www.xycoon.com/relative.htm', range/sd(x))
> res[3,] <- c('Relative range (biased)','http://www.xycoon.com/relative.htm', range/sqrt(varx*biasf))
> res[4,] <- c('Variance (unbiased)','http://www.xycoon.com/unbiased.htm', varx)
> res[5,] <- c('Variance (biased)','http://www.xycoon.com/biased.htm', bvarx)
> res[6,] <- c('Standard Deviation (unbiased)','http://www.xycoon.com/unbiased1.htm', sdx)
> res[7,] <- c('Standard Deviation (biased)','http://www.xycoon.com/biased1.htm', bsdx)
> res[8,] <- c('Coefficient of Variation (unbiased)','http://www.xycoon.com/variation.htm', sdx/mx)
> res[9,] <- c('Coefficient of Variation (biased)','http://www.xycoon.com/variation.htm', bsdx/mx)
> res[10,] <- c('Mean Squared Error (MSE versus 0)','http://www.xycoon.com/mse.htm', mse0)
> res[11,] <- c('Mean Squared Error (MSE versus Mean)','http://www.xycoon.com/mse.htm', msem)
> res[12,] <- c('Mean Absolute Deviation from Mean (MAD Mean)', 'http://www.xycoon.com/mean2.htm', sum(axmm)/lx)
> res[13,] <- c('Mean Absolute Deviation from Median (MAD Median)', 'http://www.xycoon.com/median1.htm', sum(axmmed)/lx)
> res[14,] <- c('Median Absolute Deviation from Mean', 'http://www.xycoon.com/mean3.htm', median(axmm))
> res[15,] <- c('Median Absolute Deviation from Median', 'http://www.xycoon.com/median2.htm', median(axmmed))
> res[16,] <- c('Mean Squared Deviation from Mean', 'http://www.xycoon.com/mean1.htm', msem)
> res[17,] <- c('Mean Squared Deviation from Median', 'http://www.xycoon.com/median.htm', msemed)
>
> #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/wessaorg/rcomp/createtable")
>
> mylink1 <- hyperlink('http://www.xycoon.com/difference.htm','Interquartile Difference','')
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_1.htm','(Weighted Average at Xnp)',''),sep=' ')
> res[18,] <- c('', mylink2, qarr[1,1])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_2.htm','(Weighted Average at X(n+1)p)',''),sep=' ')
> res[19,] <- c('', mylink2, qarr[2,1])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_3.htm','(Empirical Distribution Function)',''),sep=' ')
> res[20,] <- c('', mylink2, qarr[3,1])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_4.htm','(Empirical Distribution Function - Averaging)',''),sep=' ')
> res[21,] <- c('', mylink2, qarr[4,1])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_5.htm','(Empirical Distribution Function - Interpolation)',''),sep=' ')
> res[22,] <- c('', mylink2, qarr[5,1])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_6.htm','(Closest Observation)',''),sep=' ')
> res[23,] <- c('', mylink2, qarr[6,1])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_7.htm','(True Basic - Statistics Graphics Toolkit)',''),sep=' ')
> res[24,] <- c('', mylink2, qarr[7,1])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_8.htm','(MS Excel (old versions))',''),sep=' ')
> res[25,] <- c('', mylink2, qarr[8,1])
> mylink1 <- hyperlink('http://www.xycoon.com/deviation.htm','Semi Interquartile Difference','')
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_1.htm','(Weighted Average at Xnp)',''),sep=' ')
> res[26,] <- c('', mylink2, qarr[1,2])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_2.htm','(Weighted Average at X(n+1)p)',''),sep=' ')
> res[27,] <- c('', mylink2, qarr[2,2])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_3.htm','(Empirical Distribution Function)',''),sep=' ')
> res[28,] <- c('', mylink2, qarr[3,2])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_4.htm','(Empirical Distribution Function - Averaging)',''),sep=' ')
> res[29,] <- c('', mylink2, qarr[4,2])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_5.htm','(Empirical Distribution Function - Interpolation)',''),sep=' ')
> res[30,] <- c('', mylink2, qarr[5,2])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_6.htm','(Closest Observation)',''),sep=' ')
> res[31,] <- c('', mylink2, qarr[6,2])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_7.htm','(True Basic - Statistics Graphics Toolkit)',''),sep=' ')
> res[32,] <- c('', mylink2, qarr[7,2])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_8.htm','(MS Excel (old versions))',''),sep=' ')
> res[33,] <- c('', mylink2, qarr[8,2])
> mylink1 <- hyperlink('http://www.xycoon.com/variation1.htm','Coefficient of Quartile Variation','')
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_1.htm','(Weighted Average at Xnp)',''),sep=' ')
> res[34,] <- c('', mylink2, qarr[1,3])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_2.htm','(Weighted Average at X(n+1)p)',''),sep=' ')
> res[35,] <- c('', mylink2, qarr[2,3])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_3.htm','(Empirical Distribution Function)',''),sep=' ')
> res[36,] <- c('', mylink2, qarr[3,3])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_4.htm','(Empirical Distribution Function - Averaging)',''),sep=' ')
> res[37,] <- c('', mylink2, qarr[4,3])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_5.htm','(Empirical Distribution Function - Interpolation)',''),sep=' ')
> res[38,] <- c('', mylink2, qarr[5,3])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_6.htm','(Closest Observation)',''),sep=' ')
> res[39,] <- c('', mylink2, qarr[6,3])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_7.htm','(True Basic - Statistics Graphics Toolkit)',''),sep=' ')
> res[40,] <- c('', mylink2, qarr[7,3])
> mylink2 <- paste(mylink1,hyperlink('http://www.xycoon.com/method_8.htm','(MS Excel (old versions))',''),sep=' ')
> res[41,] <- c('', mylink2, qarr[8,3])
> res[42,] <- c('Number of all Pairs of Observations', 'http://www.xycoon.com/pair_numbers.htm', lx*(lx-1)/2)
> res[43,] <- c('Squared Differences between all Pairs of Observations', 'http://www.xycoon.com/squared_differences.htm', sdpo)
> res[44,] <- c('Mean Absolute Differences between all Pairs of Observations', 'http://www.xycoon.com/mean_abs_differences.htm', adpo)
> res[45,] <- c('Gini Mean Difference', 'http://www.xycoon.com/gini_mean_difference.htm', gmd)
> res[46,] <- c('Leik Measure of Dispersion', 'http://www.xycoon.com/leiks_d.htm', bigd)
> res[47,] <- c('Index of Diversity', 'http://www.xycoon.com/diversity.htm', iod)
> res[48,] <- c('Index of Qualitative Variation', 'http://www.xycoon.com/qualitative_variation.htm', iod*lx/(lx-1))
> res[49,] <- c('Coefficient of Dispersion', 'http://www.xycoon.com/dispersion.htm', sum(axmm)/lx/medx)
> res[50,] <- c('Observations', '', lx)
> res
[,1]
[1,] "Absolute range"
[2,] "Relative range (unbiased)"
[3,] "Relative range (biased)"
[4,] "Variance (unbiased)"
[5,] "Variance (biased)"
[6,] "Standard Deviation (unbiased)"
[7,] "Standard Deviation (biased)"
[8,] "Coefficient of Variation (unbiased)"
[9,] "Coefficient of Variation (biased)"
[10,] "Mean Squared Error (MSE versus 0)"
[11,] "Mean Squared Error (MSE versus Mean)"
[12,] "Mean Absolute Deviation from Mean (MAD Mean)"
[13,] "Mean Absolute Deviation from Median (MAD Median)"
[14,] "Median Absolute Deviation from Mean"
[15,] "Median Absolute Deviation from Median"
[16,] "Mean Squared Deviation from Mean"
[17,] "Mean Squared Deviation from Median"
[18,] ""
[19,] ""
[20,] ""
[21,] ""
[22,] ""
[23,] ""
[24,] ""
[25,] ""
[26,] ""
[27,] ""
[28,] ""
[29,] ""
[30,] ""
[31,] ""
[32,] ""
[33,] ""
[34,] ""
[35,] ""
[36,] ""
[37,] ""
[38,] ""
[39,] ""
[40,] ""
[41,] ""
[42,] "Number of all Pairs of Observations"
[43,] "Squared Differences between all Pairs of Observations"
[44,] "Mean Absolute Differences between all Pairs of Observations"
[45,] "Gini Mean Difference"
[46,] "Leik Measure of Dispersion"
[47,] "Index of Diversity"
[48,] "Index of Qualitative Variation"
[49,] "Coefficient of Dispersion"
[50,] "Observations"
[,2]
[1,] "http://www.xycoon.com/absolute.htm"
[2,] "http://www.xycoon.com/relative.htm"
[3,] "http://www.xycoon.com/relative.htm"
[4,] "http://www.xycoon.com/unbiased.htm"
[5,] "http://www.xycoon.com/biased.htm"
[6,] "http://www.xycoon.com/unbiased1.htm"
[7,] "http://www.xycoon.com/biased1.htm"
[8,] "http://www.xycoon.com/variation.htm"
[9,] "http://www.xycoon.com/variation.htm"
[10,] "http://www.xycoon.com/mse.htm"
[11,] "http://www.xycoon.com/mse.htm"
[12,] "http://www.xycoon.com/mean2.htm"
[13,] "http://www.xycoon.com/median1.htm"
[14,] "http://www.xycoon.com/mean3.htm"
[15,] "http://www.xycoon.com/median2.htm"
[16,] "http://www.xycoon.com/mean1.htm"
[17,] "http://www.xycoon.com/median.htm"
[18,] "Interquartile Difference (Weighted Average at Xnp)"
[19,] "Interquartile Difference (Weighted Average at X(n+1)p)"
[20,] "Interquartile Difference (Empirical Distribution Function)"
[21,] "Interquartile Difference (Empirical Distribution Function - Averaging)"
[22,] "Interquartile Difference (Empirical Distribution Function - Interpolation)"
[23,] "Interquartile Difference (Closest Observation)"
[24,] "Interquartile Difference (True Basic - Statistics Graphics Toolkit)"
[25,] "Interquartile Difference (MS Excel (old versions))"
[26,] "Semi Interquartile Difference (Weighted Average at Xnp)"
[27,] "Semi Interquartile Difference (Weighted Average at X(n+1)p)"
[28,] "Semi Interquartile Difference (Empirical Distribution Function)"
[29,] "Semi Interquartile Difference (Empirical Distribution Function - Averaging)"
[30,] "Semi Interquartile Difference (Empirical Distribution Function - Interpolation)"
[31,] "Semi Interquartile Difference (Closest Observation)"
[32,] "Semi Interquartile Difference (True Basic - Statistics Graphics Toolkit)"
[33,] "Semi Interquartile Difference (MS Excel (old versions))"
[34,] "Coefficient of Quartile Variation (Weighted Average at Xnp)"
[35,] "Coefficient of Quartile Variation (Weighted Average at X(n+1)p)"
[36,] "Coefficient of Quartile Variation (Empirical Distribution Function)"
[37,] "Coefficient of Quartile Variation (Empirical Distribution Function - Averaging)"
[38,] "Coefficient of Quartile Variation (Empirical Distribution Function - Interpolation)"
[39,] "Coefficient of Quartile Variation (Closest Observation)"
[40,] "Coefficient of Quartile Variation (True Basic - Statistics Graphics Toolkit)"
[41,] "Coefficient of Quartile Variation (MS Excel (old versions))"
[42,] "http://www.xycoon.com/pair_numbers.htm"
[43,] "http://www.xycoon.com/squared_differences.htm"
[44,] "http://www.xycoon.com/mean_abs_differences.htm"
[45,] "http://www.xycoon.com/gini_mean_difference.htm"
[46,] "http://www.xycoon.com/leiks_d.htm"
[47,] "http://www.xycoon.com/diversity.htm"
[48,] "http://www.xycoon.com/qualitative_variation.htm"
[49,] "http://www.xycoon.com/dispersion.htm"
[50,] ""
[,3]
[1,] "24.165"
[2,] "3.79301511026845"
[3,] "3.79427086766431"
[4,] "40.5886356670338"
[5,] "40.5617735653349"
[6,] "6.37092110036169"
[7,] "6.36881257106337"
[8,] "0.192875925113548"
[9,] "0.192812090617305"
[10,] "1131.62120812091"
[11,] "40.5617735653349"
[12,] "5.49940686244838"
[13,] "5.43347365982793"
[14,] "5.60118881535407"
[15,] "5.36"
[16,] "40.5617735653349"
[17,] "41.3428957754401"
[18,] "11.24375"
[19,] "11.24"
[20,] "11.24"
[21,] "11.24"
[22,] "11.2325"
[23,] "11.24"
[24,] "11.24"
[25,] "11.24"
[26,] "5.621875"
[27,] "5.62"
[28,] "5.62"
[29,] "5.62"
[30,] "5.61625"
[31,] "5.62"
[32,] "5.62"
[33,] "5.62"
[34,] "0.170731707317073"
[35,] "0.170665047069541"
[36,] "0.170665047069541"
[37,] "0.170665047069541"
[38,] "0.170531749345276"
[39,] "0.170665047069541"
[40,] "0.170665047069541"
[41,] "0.170665047069541"
[42,] "1140805"
[43,] "81.1772713340702"
[44,] "7.2746605905472"
[45,] "7.27466059054753"
[46,] "0.478750297753101"
[47,] "0.999313582725157"
[48,] "0.999975379799809"
[49,] "0.162152642265911"
[50,] "1511"
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Variability - Ungrouped Data',2,TRUE)
> a<-table.row.end(a)
> for (i in 1:num) {
+ a<-table.row.start(a)
+ if (res[i,1] != '') {
+ a<-table.element(a,hyperlink(res[i,2],res[i,1],''),header=TRUE)
+ } else {
+ a<-table.element(a,res[i,2],header=TRUE)
+ }
+ a<-table.element(a,res[i,3])
+ a<-table.row.end(a)
+ }
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/1ljhn1418394613.tab")
>
>
>
> proc.time()
user system elapsed
11.003 0.139 11.136