R version 3.3.2 (2016-10-31) -- "Sincere Pumpkin Patch"
Copyright (C) 2016 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(1.386
+ ,1.388
+ ,1.391
+ ,1.394
+ ,1.402
+ ,1.414
+ ,1.419
+ ,1.419
+ ,1.42
+ ,1.424
+ ,1.431
+ ,1.438
+ ,1.44
+ ,1.437
+ ,1.437
+ ,1.439
+ ,1.439
+ ,1.438
+ ,1.437
+ ,1.437
+ ,1.43
+ ,1.43
+ ,1.432
+ ,1.427
+ ,1.422
+ ,1.417
+ ,1.416
+ ,1.414
+ ,1.414
+ ,1.415
+ ,1.414
+ ,1.414
+ ,1.415
+ ,1.415
+ ,1.414
+ ,1.414
+ ,1.415
+ ,1.42
+ ,1.425
+ ,1.425
+ ,1.425
+ ,1.424
+ ,1.426
+ ,1.428
+ ,1.429
+ ,1.433
+ ,1.435
+ ,1.44
+ ,1.442
+ ,1.442
+ ,1.444
+ ,1.444
+ ,1.445
+ ,1.448
+ ,1.447
+ ,1.445
+ ,1.445
+ ,1.447
+ ,1.447
+ ,1.447
+ ,1.446
+ ,1.447
+ ,1.446
+ ,1.445
+ ,1.447
+ ,1.447
+ ,1.447
+ ,1.445
+ ,1.448
+ ,1.45
+ ,1.449
+ ,1.452
+ ,1.454
+ ,1.455
+ ,1.459
+ ,1.465
+ ,1.463
+ ,1.463
+ ,1.465
+ ,1.467
+ ,1.466
+ ,1.466
+ ,1.466
+ ,1.462
+ ,1.463
+ ,1.464
+ ,1.464
+ ,1.464
+ ,1.461
+ ,1.462
+ ,1.458
+ ,1.458
+ ,1.459
+ ,1.459
+ ,1.458
+ ,1.457
+ ,1.458
+ ,1.456
+ ,1.456
+ ,1.456
+ ,1.457
+ ,1.457
+ ,1.455
+ ,1.456
+ ,1.455
+ ,1.455
+ ,1.457
+ ,1.457
+ ,1.456
+ ,1.451
+ ,1.449
+ ,1.445
+ ,1.445
+ ,1.447
+ ,1.446
+ ,1.446
+ ,1.444
+ ,1.446
+ ,1.445
+ ,1.445
+ ,1.444
+ ,1.446
+ ,1.446
+ ,1.445
+ ,1.446
+ ,1.442
+ ,1.442
+ ,1.443
+ ,1.439
+ ,1.434
+ ,1.429
+ ,1.427
+ ,1.425
+ ,1.425
+ ,1.426
+ ,1.426
+ ,1.426
+ ,1.424
+ ,1.425
+ ,1.423
+ ,1.423
+ ,1.425
+ ,1.423
+ ,1.422
+ ,1.418
+ ,1.417
+ ,1.415
+ ,1.415
+ ,1.415
+ ,1.417
+ ,1.416
+ ,1.416
+ ,1.416
+ ,1.407
+ ,1.408
+ ,1.409
+ ,1.403
+ ,1.4
+ ,1.397
+ ,1.397
+ ,1.391
+ ,1.391
+ ,1.392
+ ,1.388
+ ,1.386
+ ,1.384
+ ,1.381
+ ,1.376
+ ,1.375
+ ,1.377
+ ,1.376
+ ,1.374
+ ,1.371
+ ,1.369
+ ,1.366
+ ,1.367
+ ,1.367
+ ,1.367
+ ,1.367
+ ,1.367
+ ,1.367
+ ,1.365
+ ,1.366
+ ,1.367
+ ,1.367
+ ,1.371
+ ,1.375
+ ,1.38
+ ,1.385
+ ,1.385
+ ,1.387
+ ,1.391
+ ,1.394
+ ,1.396
+ ,1.397
+ ,1.402
+ ,1.402
+ ,1.404
+ ,1.408
+ ,1.415
+ ,1.419
+ ,1.429
+ ,1.434
+ ,1.435
+ ,1.437
+ ,1.437
+ ,1.437
+ ,1.436
+ ,1.438
+ ,1.436
+ ,1.436
+ ,1.437
+ ,1.437
+ ,1.437
+ ,1.436
+ ,1.437
+ ,1.435
+ ,1.435
+ ,1.437
+ ,1.437
+ ,1.44
+ ,1.445
+ ,1.451
+ ,1.45
+ ,1.45
+ ,1.452
+ ,1.454
+ ,1.457
+ ,1.459
+ ,1.466
+ ,1.469
+ ,1.469
+ ,1.47
+ ,1.474
+ ,1.475
+ ,1.475
+ ,1.475
+ ,1.473
+ ,1.473
+ ,1.475
+ ,1.476
+ ,1.476
+ ,1.476
+ ,1.476
+ ,1.475
+ ,1.474
+ ,1.476
+ ,1.476
+ ,1.477
+ ,1.476
+ ,1.478
+ ,1.478
+ ,1.478
+ ,1.479
+ ,1.477
+ ,1.476
+ ,1.475
+ ,1.476
+ ,1.473
+ ,1.473
+ ,1.475
+ ,1.474
+ ,1.474
+ ,1.472
+ ,1.472
+ ,1.471
+ ,1.471
+ ,1.472
+ ,1.472
+ ,1.473
+ ,1.469
+ ,1.468
+ ,1.467
+ ,1.467
+ ,1.483
+ ,1.487
+ ,1.486
+ ,1.484
+ ,1.485
+ ,1.484
+ ,1.484
+ ,1.486
+ ,1.486
+ ,1.486
+ ,1.493
+ ,1.496
+ ,1.498
+ ,1.499
+ ,1.5
+ ,1.501
+ ,1.502
+ ,1.5
+ ,1.497
+ ,1.494
+ ,1.494
+ ,1.496
+ ,1.493
+ ,1.492
+ ,1.489
+ ,1.489
+ ,1.484
+ ,1.485
+ ,1.486
+ ,1.486
+ ,1.485
+ ,1.483
+ ,1.485
+ ,1.481
+ ,1.482
+ ,1.483
+ ,1.483
+ ,1.483
+ ,1.48
+ ,1.479
+ ,1.475
+ ,1.475
+ ,1.477
+ ,1.475
+ ,1.474
+ ,1.472
+ ,1.473
+ ,1.471
+ ,1.471
+ ,1.473
+ ,1.475
+ ,1.474
+ ,1.472
+ ,1.474
+ ,1.472
+ ,1.472
+ ,1.474
+ ,1.474
+ ,1.473
+ ,1.471
+ ,1.472
+ ,1.468
+ ,1.468
+ ,1.47
+ ,1.468
+ ,1.466
+ ,1.463
+ ,1.46
+ ,1.452
+ ,1.452
+ ,1.454
+ ,1.449
+ ,1.446
+ ,1.445
+ ,1.447
+ ,1.443
+ ,1.443
+ ,1.445
+ ,1.445
+ ,1.442
+ ,1.437
+ ,1.437
+ ,1.434
+ ,1.434
+ ,1.436
+ ,1.434
+ ,1.434
+ ,1.433
+ ,1.434
+ ,1.433
+ ,1.433
+ ,1.435
+ ,1.441
+ ,1.443
+ ,1.442
+ ,1.444
+ ,1.443
+ ,1.443
+ ,1.444
+ ,1.445
+ ,1.449
+ ,1.449
+ ,1.453
+ ,1.452
+ ,1.452
+ ,1.455
+ ,1.454
+ ,1.454
+ ,1.453
+ ,1.453
+ ,1.451
+ ,1.452
+ ,1.455
+ ,1.454
+ ,1.455
+ ,1.453
+ ,1.457
+ ,1.456
+ ,1.456
+ ,1.458
+ ,1.459
+ ,1.458
+ ,1.457
+ ,1.461
+ ,1.46
+ ,1.46
+ ,1.462
+ ,1.463
+ ,1.462
+ ,1.462
+ ,1.464
+ ,1.464
+ ,1.464
+ ,1.466
+ ,1.469
+ ,1.474
+ ,1.473
+ ,1.478
+ ,1.477
+ ,1.478
+ ,1.48
+ ,1.482
+ ,1.482
+ ,1.48
+ ,1.482
+ ,1.48
+ ,1.48
+ ,1.482
+ ,1.481
+ ,1.479
+ ,1.474
+ ,1.475
+ ,1.468
+ ,1.467
+ ,1.468
+ ,1.466
+ ,1.464
+ ,1.462
+ ,1.464
+ ,1.46
+ ,1.46
+ ,1.461
+ ,1.458
+ ,1.455
+ ,1.453
+ ,1.45
+ ,1.444
+ ,1.444
+ ,1.446
+ ,1.444
+ ,1.443
+ ,1.437
+ ,1.435
+ ,1.432
+ ,1.43
+ ,1.434
+ ,1.434
+ ,1.433
+ ,1.432
+ ,1.434
+ ,1.435
+ ,1.436
+ ,1.436
+ ,1.438
+ ,1.442
+ ,1.44
+ ,1.442
+ ,1.438
+ ,1.437
+ ,1.44
+ ,1.439
+ ,1.439
+ ,1.437
+ ,1.433
+ ,1.422
+ ,1.422
+ ,1.424
+ ,1.418
+ ,1.409
+ ,1.402
+ ,1.395
+ ,1.391
+ ,1.391
+ ,1.392
+ ,1.392
+ ,1.391
+ ,1.389
+ ,1.391
+ ,1.39
+ ,1.391
+ ,1.393
+ ,1.391
+ ,1.392
+ ,1.387
+ ,1.384
+ ,1.381
+ ,1.382
+ ,1.383
+ ,1.384
+ ,1.383
+ ,1.381
+ ,1.384
+ ,1.382
+ ,1.382
+ ,1.384
+ ,1.384
+ ,1.384
+ ,1.382
+ ,1.389
+ ,1.394
+ ,1.397
+ ,1.396
+ ,1.398
+ ,1.399
+ ,1.398
+ ,1.4
+ ,1.396
+ ,1.397
+ ,1.399
+ ,1.398
+ ,1.399
+ ,1.399
+ ,1.401
+ ,1.398
+ ,1.399
+ ,1.401
+ ,1.399
+ ,1.395
+ ,1.392
+ ,1.393
+ ,1.39
+ ,1.39
+ ,1.391
+ ,1.392
+ ,1.392
+ ,1.39
+ ,1.391
+ ,1.39
+ ,1.391
+ ,1.393
+ ,1.394
+ ,1.393
+ ,1.392
+ ,1.396
+ ,1.394
+ ,1.394
+ ,1.396
+ ,1.397
+ ,1.396
+ ,1.395
+ ,1.396
+ ,1.395
+ ,1.396
+ ,1.397
+ ,1.399
+ ,1.396
+ ,1.398
+ ,1.404
+ ,1.407
+ ,1.408
+ ,1.411
+ ,1.411
+ ,1.412
+ ,1.416
+ ,1.419
+ ,1.418
+ ,1.419
+ ,1.421
+ ,1.421
+ ,1.421
+ ,1.42
+ ,1.427
+ ,1.426
+ ,1.429
+ ,1.429
+ ,1.429
+ ,1.429
+ ,1.427
+ ,1.429
+ ,1.426
+ ,1.428
+ ,1.428
+ ,1.429
+ ,1.428
+ ,1.427
+ ,1.429
+ ,1.427
+ ,1.428
+ ,1.43
+ ,1.43
+ ,1.429
+ ,1.426
+ ,1.421
+ ,1.418
+ ,1.418
+ ,1.419
+ ,1.419
+ ,1.419
+ ,1.417
+ ,1.418
+ ,1.417
+ ,1.419
+ ,1.421
+ ,1.424
+ ,1.429
+ ,1.427
+ ,1.43
+ ,1.427
+ ,1.428
+ ,1.43
+ ,1.429
+ ,1.433
+ ,1.437
+ ,1.442
+ ,1.441
+ ,1.443
+ ,1.444
+ ,1.445
+ ,1.444
+ ,1.442
+ ,1.444
+ ,1.443
+ ,1.444
+ ,1.446
+ ,1.445
+ ,1.444
+ ,1.442
+ ,1.444
+ ,1.442
+ ,1.442
+ ,1.444
+ ,1.443
+ ,1.442
+ ,1.439
+ ,1.441
+ ,1.435
+ ,1.436
+ ,1.438
+ ,1.434
+ ,1.426
+ ,1.421
+ ,1.418
+ ,1.412
+ ,1.413
+ ,1.414
+ ,1.413
+ ,1.412
+ ,1.411
+ ,1.414
+ ,1.41
+ ,1.411
+ ,1.413
+ ,1.413
+ ,1.412
+ ,1.411
+ ,1.413
+ ,1.411
+ ,1.413
+ ,1.414
+ ,1.41
+ ,1.409
+ ,1.407
+ ,1.408
+ ,1.405
+ ,1.405
+ ,1.407
+ ,1.407
+ ,1.407
+ ,1.404
+ ,1.401
+ ,1.392
+ ,1.393
+ ,1.394
+ ,1.392
+ ,1.391
+ ,1.388
+ ,1.39
+ ,1.386
+ ,1.388
+ ,1.39
+ ,1.389
+ ,1.386
+ ,1.382
+ ,1.38
+ ,1.376
+ ,1.378
+ ,1.379
+ ,1.379
+ ,1.378
+ ,1.378
+ ,1.381
+ ,1.379
+ ,1.38
+ ,1.382
+ ,1.384
+ ,1.384
+ ,1.383
+ ,1.391
+ ,1.392
+ ,1.394
+ ,1.396
+ ,1.398
+ ,1.402
+ ,1.403
+ ,1.408
+ ,1.405
+ ,1.406
+ ,1.408
+ ,1.408
+ ,1.407
+ ,1.405
+ ,1.409
+ ,1.406
+ ,1.407
+ ,1.408
+ ,1.408
+ ,1.407
+ ,1.405
+ ,1.407
+ ,1.403
+ ,1.404
+ ,1.405
+ ,1.404
+ ,1.399
+ ,1.396
+ ,1.398
+ ,1.399
+ ,1.4
+ ,1.401
+ ,1.402
+ ,1.402
+ ,1.4
+ ,1.404
+ ,1.403
+ ,1.404
+ ,1.404
+ ,1.404
+ ,1.44
+ ,1.438
+ ,1.441
+ ,1.438
+ ,1.439
+ ,1.44
+ ,1.44
+ ,1.437
+ ,1.434
+ ,1.437
+ ,1.435
+ ,1.435
+ ,1.437
+ ,1.434
+ ,1.431
+ ,1.426
+ ,1.426
+ ,1.423
+ ,1.425
+ ,1.426
+ ,1.427
+ ,1.424
+ ,1.422
+ ,1.427
+ ,1.424
+ ,1.426
+ ,1.427
+ ,1.429
+ ,1.427
+ ,1.425
+ ,1.427
+ ,1.425
+ ,1.426
+ ,1.428
+ ,1.427
+ ,1.427
+ ,1.425
+ ,1.428
+ ,1.426
+ ,1.428
+ ,1.429
+ ,1.434
+ ,1.434
+ ,1.435
+ ,1.439
+ ,1.437
+ ,1.438
+ ,1.439
+ ,1.439
+ ,1.439
+ ,1.438
+ ,1.442
+ ,1.441
+ ,1.441
+ ,1.442
+ ,1.442
+ ,1.44
+ ,1.438
+ ,1.439
+ ,1.435
+ ,1.435
+ ,1.437
+ ,1.438
+ ,1.434
+ ,1.429
+ ,1.43
+ ,1.424
+ ,1.424
+ ,1.425
+ ,1.423
+ ,1.42
+ ,1.415
+ ,1.413
+ ,1.409
+ ,1.409
+ ,1.411
+ ,1.41
+ ,1.406
+ ,1.4
+ ,1.4
+ ,1.4
+ ,1.401
+ ,1.402
+ ,1.407
+ ,1.408
+ ,1.407
+ ,1.41
+ ,1.41
+ ,1.411
+ ,1.412
+ ,1.418
+ ,1.419
+ ,1.416
+ ,1.419
+ ,1.417
+ ,1.418
+ ,1.42
+ ,1.419
+ ,1.419
+ ,1.417
+ ,1.419
+ ,1.417
+ ,1.418
+ ,1.42
+ ,1.421
+ ,1.421
+ ,1.425
+ ,1.429
+ ,1.428
+ ,1.428
+ ,1.429
+ ,1.43
+ ,1.429
+ ,1.428
+ ,1.431
+ ,1.429
+ ,1.43
+ ,1.431
+ ,1.431
+ ,1.429
+ ,1.428
+ ,1.428
+ ,1.424
+ ,1.424
+ ,1.425
+ ,1.422
+ ,1.42
+ ,1.418
+ ,1.42
+ ,1.418
+ ,1.419
+ ,1.421
+ ,1.421
+ ,1.421
+ ,1.423
+ ,1.428
+ ,1.427
+ ,1.428
+ ,1.43
+ ,1.431
+ ,1.429
+ ,1.428
+ ,1.43
+ ,1.428
+ ,1.429
+ ,1.43
+ ,1.43
+ ,1.429
+ ,1.427
+ ,1.43
+ ,1.428
+ ,1.429
+ ,1.43
+ ,1.431
+ ,1.427
+ ,1.424
+ ,1.422
+ ,1.419
+ ,1.42
+ ,1.421
+ ,1.421
+ ,1.421
+ ,1.42
+ ,1.423
+ ,1.427
+ ,1.428
+ ,1.43
+ ,1.43
+ ,1.429
+ ,1.434
+ ,1.442
+ ,1.445
+ ,1.447
+ ,1.448
+ ,1.448
+ ,1.448
+ ,1.447
+ ,1.449
+ ,1.447
+ ,1.448
+ ,1.449
+ ,1.449
+ ,1.444
+ ,1.439
+ ,1.439
+ ,1.432
+ ,1.433
+ ,1.435
+ ,1.433
+ ,1.427
+ ,1.424
+ ,1.424
+ ,1.42
+ ,1.421
+ ,1.422
+ ,1.42
+ ,1.42
+ ,1.419
+ ,1.42
+ ,1.414
+ ,1.415
+ ,1.416
+ ,1.416
+ ,1.418
+ ,1.418
+ ,1.419
+ ,1.417
+ ,1.418
+ ,1.42
+ ,1.419
+ ,1.422
+ ,1.425
+ ,1.427
+ ,1.425
+ ,1.426
+ ,1.427
+ ,1.425
+ ,1.421
+ ,1.418
+ ,1.42
+ ,1.419
+ ,1.421
+ ,1.421
+ ,1.421
+ ,1.419
+ ,1.417
+ ,1.419
+ ,1.418
+ ,1.418
+ ,1.419
+ ,1.415
+ ,1.412
+ ,1.408
+ ,1.41
+ ,1.409
+ ,1.409
+ ,1.411
+ ,1.411
+ ,1.414
+ ,1.413
+ ,1.421
+ ,1.421
+ ,1.421
+ ,1.424
+ ,1.425
+ ,1.426
+ ,1.422
+ ,1.424
+ ,1.427
+ ,1.426
+ ,1.428
+ ,1.427
+ ,1.427
+ ,1.422
+ ,1.419
+ ,1.415
+ ,1.415
+ ,1.416
+ ,1.413
+ ,1.409
+ ,1.408
+ ,1.409
+ ,1.408
+ ,1.407
+ ,1.41
+ ,1.409
+ ,1.407
+ ,1.404
+ ,1.405
+ ,1.406
+ ,1.406
+ ,1.408
+ ,1.408
+ ,1.412
+ ,1.414
+ ,1.411
+ ,1.406
+ ,1.406
+ ,1.409
+ ,1.405
+ ,1.4
+ ,1.393
+ ,1.387
+ ,1.378
+ ,1.378
+ ,1.378
+ ,1.374
+ ,1.37
+ ,1.361
+ ,1.355
+ ,1.351
+ ,1.35
+ ,1.352
+ ,1.35
+ ,1.349
+ ,1.351
+ ,1.356
+ ,1.355
+ ,1.355
+ ,1.357
+ ,1.357
+ ,1.357
+ ,1.355
+ ,1.358
+ ,1.357
+ ,1.358
+ ,1.361
+ ,1.365
+ ,1.366
+ ,1.364
+ ,1.366
+ ,1.364
+ ,1.364
+ ,1.367
+ ,1.372
+ ,1.373
+ ,1.371
+ ,1.374
+ ,1.365
+ ,1.365
+ ,1.368
+ ,1.362
+ ,1.36
+ ,1.356
+ ,1.357
+ ,1.352
+ ,1.352
+ ,1.354
+ ,1.347
+ ,1.344
+ ,1.342
+ ,1.342
+ ,1.33
+ ,1.33
+ ,1.332
+ ,1.323
+ ,1.319
+ ,1.313
+ ,1.313
+ ,1.304
+ ,1.304
+ ,1.305
+ ,1.299
+ ,1.291
+ ,1.283
+ ,1.28
+ ,1.27
+ ,1.27
+ ,1.271
+ ,1.261
+ ,1.252
+ ,1.24
+ ,1.236
+ ,1.228
+ ,1.228
+ ,1.229
+ ,1.227
+ ,1.225
+ ,1.221
+ ,1.223
+ ,1.222
+ ,1.222
+ ,1.223
+ ,1.217
+ ,1.212
+ ,1.207
+ ,1.208
+ ,1.206
+ ,1.206
+ ,1.208
+ ,1.207
+ ,1.206
+ ,1.203
+ ,1.205
+ ,1.198
+ ,1.2
+ ,1.201
+ ,1.197
+ ,1.191
+ ,1.186
+ ,1.187
+ ,1.184
+ ,1.185
+ ,1.187
+ ,1.187
+ ,1.186
+ ,1.185
+ ,1.186
+ ,1.184
+ ,1.184
+ ,1.187
+ ,1.188
+ ,1.189
+ ,1.188
+ ,1.19
+ ,1.19
+ ,1.192
+ ,1.194
+ ,1.201
+ ,1.21
+ ,1.219
+ ,1.222
+ ,1.225
+ ,1.225
+ ,1.229
+ ,1.237
+ ,1.249
+ ,1.255
+ ,1.26
+ ,1.267
+ ,1.268
+ ,1.271
+ ,1.276
+ ,1.279
+ ,1.28
+ ,1.282
+ ,1.28
+ ,1.28
+ ,1.282
+ ,1.283
+ ,1.283
+ ,1.282
+ ,1.289
+ ,1.291
+ ,1.291
+ ,1.293
+ ,1.293
+ ,1.293
+ ,1.291
+ ,1.293
+ ,1.292
+ ,1.292
+ ,1.294
+ ,1.294
+ ,1.294
+ ,1.292
+ ,1.293
+ ,1.292
+ ,1.291
+ ,1.293
+ ,1.292
+ ,1.287
+ ,1.283
+ ,1.284
+ ,1.278
+ ,1.278
+ ,1.28
+ ,1.279
+ ,1.28
+ ,1.277
+ ,1.278
+ ,1.276
+ ,1.277
+ ,1.278
+ ,1.277
+ ,1.275
+ ,1.273
+ ,1.27
+ ,1.268
+ ,1.268
+ ,1.269
+ ,1.27
+ ,1.269
+ ,1.268
+ ,1.268
+ ,1.261
+ ,1.262
+ ,1.263
+ ,1.264
+ ,1.269
+ ,1.272
+ ,1.282
+ ,1.288
+ ,1.289
+ ,1.291
+ ,1.294
+ ,1.299
+ ,1.3
+ ,1.304
+ ,1.31
+ ,1.31
+ ,1.309
+ ,1.312
+ ,1.312
+ ,1.312
+ ,1.31
+ ,1.306
+ ,1.306
+ ,1.307
+ ,1.306
+ ,1.307
+ ,1.312
+ ,1.313
+ ,1.312
+ ,1.312
+ ,1.313
+ ,1.31
+ ,1.309
+ ,1.309
+ ,1.311
+ ,1.31
+ ,1.31
+ ,1.312
+ ,1.313
+ ,1.313
+ ,1.308
+ ,1.309
+ ,1.308
+ ,1.309
+ ,1.309
+ ,1.31
+ ,1.313
+ ,1.312
+ ,1.31
+ ,1.306
+ ,1.306
+ ,1.304
+ ,1.309
+ ,1.31
+ ,1.31
+ ,1.309
+ ,1.303
+ ,1.302
+ ,1.304
+ ,1.302
+ ,1.301
+ ,1.302
+ ,1.302
+ ,1.301
+ ,1.302
+ ,1.304
+ ,1.305
+ ,1.305
+ ,1.304
+ ,1.305
+ ,1.299
+ ,1.299
+ ,1.301
+ ,1.297
+ ,1.296
+ ,1.295
+ ,1.295
+ ,1.293
+ ,1.293
+ ,1.295
+ ,1.295
+ ,1.295
+ ,1.293
+ ,1.294
+ ,1.294
+ ,1.293
+ ,1.295
+ ,1.294
+ ,1.289
+ ,1.285
+ ,1.284
+ ,1.28
+ ,1.28
+ ,1.281
+ ,1.28
+ ,1.275
+ ,1.267
+ ,1.262
+ ,1.254
+ ,1.254
+ ,1.255
+ ,1.251
+ ,1.245
+ ,1.242
+ ,1.242
+ ,1.239
+ ,1.24
+ ,1.239
+ ,1.233
+ ,1.225
+ ,1.22
+ ,1.22
+ ,1.218
+ ,1.219
+ ,1.22
+ ,1.218
+ ,1.215
+ ,1.21
+ ,1.209
+ ,1.203
+ ,1.203
+ ,1.204
+ ,1.201
+ ,1.197
+ ,1.194
+ ,1.194
+ ,1.193
+ ,1.193
+ ,1.194
+ ,1.194
+ ,1.194
+ ,1.192
+ ,1.19
+ ,1.181
+ ,1.181
+ ,1.181
+ ,1.172
+ ,1.163
+ ,1.157
+ ,1.156
+ ,1.155
+ ,1.155
+ ,1.157
+ ,1.165
+ ,1.174
+ ,1.175
+ ,1.181
+ ,1.186
+ ,1.188
+ ,1.19
+ ,1.196
+ ,1.197
+ ,1.199
+ ,1.2
+ ,1.199
+ ,1.199
+ ,1.201
+ ,1.2
+ ,1.198
+ ,1.198
+ ,1.199
+ ,1.193
+ ,1.194
+ ,1.196
+ ,1.194
+ ,1.193
+ ,1.193
+ ,1.189
+ ,1.185
+ ,1.184
+ ,1.186
+ ,1.185
+ ,1.182
+ ,1.181
+ ,1.184
+ ,1.181
+ ,1.181
+ ,1.185
+ ,1.184
+ ,1.187
+ ,1.19
+ ,1.193
+ ,1.196
+ ,1.197
+ ,1.2
+ ,1.201
+ ,1.199
+ ,1.195
+ ,1.193
+ ,1.187
+ ,1.188
+ ,1.19
+ ,1.186
+ ,1.179
+ ,1.172
+ ,1.172
+ ,1.17
+ ,1.17
+ ,1.172
+ ,1.172
+ ,1.17
+ ,1.169
+ ,1.175
+ ,1.173
+ ,1.173
+ ,1.175
+ ,1.18
+ ,1.187
+ ,1.196
+ ,1.199
+ ,1.198
+ ,1.198
+ ,1.202
+ ,1.206
+ ,1.207
+ ,1.208
+ ,1.208
+ ,1.203
+ ,1.204
+ ,1.206
+ ,1.199
+ ,1.195
+ ,1.191
+ ,1.191
+ ,1.186
+ ,1.186
+ ,1.188
+ ,1.184
+ ,1.181
+ ,1.181
+ ,1.182
+ ,1.18
+ ,1.18
+ ,1.182
+ ,1.177
+ ,1.172
+ ,1.168
+ ,1.162
+ ,1.157
+ ,1.157
+ ,1.159
+ ,1.158
+ ,1.151
+ ,1.143
+ ,1.139
+ ,1.129
+ ,1.129
+ ,1.131
+ ,1.122
+ ,1.113
+ ,1.107
+ ,1.101
+ ,1.094
+ ,1.094
+ ,1.096
+ ,1.087
+ ,1.081
+ ,1.078
+ ,1.071
+ ,1.07
+ ,1.07
+ ,1.071
+ ,1.068
+ ,1.064
+ ,1.067)
> #'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,] "0.438"
[2,] "4.58385430024999"
[3,] "4.58542384465491"
[4,] "0.00913033286921137"
[5,] "0.00912408349695318"
[6,] "0.0955527753087861"
[7,] "0.0955200685560536"
[8,] "0.0695433660185056"
[9,] "0.0695195620246477"
[10,] "1.89700760711841"
[11,] "0.00912408349695318"
[12,] "0.0777867990054912"
[13,] "0.0688446269678303"
[14,] "0.064002737850787"
[15,] "0.0330000000000001"
[16,] "0.00912408349695318"
[17,] "0.010723864476386"
[18,] "0.129"
[19,] "0.129"
[20,] "0.129"
[21,] "0.129"
[22,] "0.129"
[23,] "0.129"
[24,] "0.129"
[25,] "0.129"
[26,] "0.0645"
[27,] "0.0645"
[28,] "0.0645"
[29,] "0.0645"
[30,] "0.0645"
[31,] "0.0645"
[32,] "0.0645"
[33,] "0.0645"
[34,] "0.0469603203494722"
[35,] "0.0469603203494722"
[36,] "0.0469603203494722"
[37,] "0.0469603203494722"
[38,] "0.0469603203494722"
[39,] "0.0469603203494722"
[40,] "0.0469603203494722"
[41,] "0.0469603203494722"
[42,] "1066530"
[43,] "0.0182606657384067"
[44,] "0.10039990998844"
[45,] "0.100399909988424"
[46,] "0.490891862902413"
[47,] "0.999312229315877"
[48,] "0.999996689746915"
[49,] "0.0550118804847887"
[50,] "1461"
> 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/1icju1483867228.tab")
>
>
>
> proc.time()
user system elapsed
6.663 0.036 6.728