Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_harrell_davis.wasp
Title produced by softwareHarrell-Davis Quantiles
Date of computationSun, 22 Mar 2009 15:42:09 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Mar/22/t1237758161x37j033qvv9sp3f.htm/, Retrieved Tue, 16 Apr 2024 09:13:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=39160, Retrieved Tue, 16 Apr 2024 09:13:27 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact216
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Gabriels Wim Deci...] [2009-03-22 21:42:09] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
0
0
0
0
0
0
0
0
0
0
0
0
0
0
196
229
249
258
265
268
278
279
280
286
291
296
296
296
298
300
303
306
307
308
311
316
317
318
319
322
322
324
325
325
326
327
328
329
331
332
333
335
336
337
337
339
339
340
341
341
341
342
343
344
344
345
346
346
348
350
351
353
354
355
355
355
356
356
356
356
356
358
358
358
358
358
359
359
360
360
361
361
361
362
362
362
365
365
366
367
369
369
371
371
372
372
373
374
375
375
376
376
377
377
377
379
379
379
379
383
384
387
387
387
389
389
389
390
392
392
394
394
396
397
398
400
400
401
401
402
403
403
404
404
406
407
408
408
410
410
411
411
414
416
416
418
418
419
419
419
421
421
422
422
425
427
429
429
429
429
430
430
432
432
433
434
434
434
435
435
435
436
436
436
436
436
437
439
439
440
440
440
442
442
443
444
446
446
446
447
448
450
451
451
452
454
455
456
457
458
459
459
466
468
468
468
469
470
470
470
471
471
472
472
472
472
474
475
475
479
481
483
484
485
488
488
488
489
490
492
494
494
499
502
503
507
514
517
523
523
525
526
529
530
531
534
549
572
588
589
594
628
694
698




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=39160&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=39160&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39160&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1291.81921962246513.6086556616455
0.2334.9781247731785.96144489189683
0.3355.8112870520883.71337603493026
0.4371.9888745973525.82005843935849
0.5395.0123358455367.30965171611996
0.6419.0670413476987.05306990411405
0.7437.4383616498783.90390162356918
0.8461.2712193108617.4105375669619
0.9490.9213450584857.44869145019157

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 291.819219622465 & 13.6086556616455 \tabularnewline
0.2 & 334.978124773178 & 5.96144489189683 \tabularnewline
0.3 & 355.811287052088 & 3.71337603493026 \tabularnewline
0.4 & 371.988874597352 & 5.82005843935849 \tabularnewline
0.5 & 395.012335845536 & 7.30965171611996 \tabularnewline
0.6 & 419.067041347698 & 7.05306990411405 \tabularnewline
0.7 & 437.438361649878 & 3.90390162356918 \tabularnewline
0.8 & 461.271219310861 & 7.4105375669619 \tabularnewline
0.9 & 490.921345058485 & 7.44869145019157 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=39160&T=1

[TABLE]
[ROW][C]Harrell-Davis Quantiles[/C][/ROW]
[ROW][C]quantiles[/C][C]value[/C][C]standard error[/C][/ROW]
[ROW][C]0.1[/C][C]291.819219622465[/C][C]13.6086556616455[/C][/ROW]
[ROW][C]0.2[/C][C]334.978124773178[/C][C]5.96144489189683[/C][/ROW]
[ROW][C]0.3[/C][C]355.811287052088[/C][C]3.71337603493026[/C][/ROW]
[ROW][C]0.4[/C][C]371.988874597352[/C][C]5.82005843935849[/C][/ROW]
[ROW][C]0.5[/C][C]395.012335845536[/C][C]7.30965171611996[/C][/ROW]
[ROW][C]0.6[/C][C]419.067041347698[/C][C]7.05306990411405[/C][/ROW]
[ROW][C]0.7[/C][C]437.438361649878[/C][C]3.90390162356918[/C][/ROW]
[ROW][C]0.8[/C][C]461.271219310861[/C][C]7.4105375669619[/C][/ROW]
[ROW][C]0.9[/C][C]490.921345058485[/C][C]7.44869145019157[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=39160&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39160&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Harrell-Davis Quantiles
quantilesvaluestandard error
0.1291.81921962246513.6086556616455
0.2334.9781247731785.96144489189683
0.3355.8112870520883.71337603493026
0.4371.9888745973525.82005843935849
0.5395.0123358455367.30965171611996
0.6419.0670413476987.05306990411405
0.7437.4383616498783.90390162356918
0.8461.2712193108617.4105375669619
0.9490.9213450584857.44869145019157



Parameters (Session):
par1 = 0.1 ; par2 = 0.9 ; par3 = 0.1 ;
Parameters (R input):
par1 = 0.1 ; par2 = 0.9 ; par3 = 0.1 ;
R code (references can be found in the software module):
par1 <- as(par1,'numeric')
par2 <- as(par2,'numeric')
par3 <- as(par3,'numeric')
library(Hmisc)
myseq <- seq(par1, par2, par3)
hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE)
bitmap(file='test1.png')
plot(myseq,hd,col=2,main=main,xlab=xlab,ylab=ylab)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Harrell-Davis Quantiles',3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'quantiles',header=TRUE)
a<-table.element(a,'value',header=TRUE)
a<-table.element(a,'standard error',header=TRUE)
a<-table.row.end(a)
length(hd)
for (i in 1:length(hd))
{
a<-table.row.start(a)
a<-table.element(a,as(labels(hd)[i],'numeric'),header=TRUE)
a<-table.element(a,as.matrix(hd[i])[1,1])
a<-table.element(a,as.matrix(attr(hd,'se')[i])[1,1])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')