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 computationMon, 08 Mar 2010 10:13:26 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Mar/08/t1268068463kemcnx8hya1siau.htm/, Retrieved Mon, 23 May 2022 11:50:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74161, Retrieved Mon, 23 May 2022 11:50:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact106
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2010-03-08 17:13:26] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
1954
2072
2075
2138
2175
2206
2211
2226
2246
2252
2265
2271
2302
2344
2353
2367
2389
2400
2414
2416
2419
2425
2434
2452
2452
2472
2488
2492
2498
2521
2522
2529
2534
2550
2564
2570
2589
2622
2629
2632
2678
2687
2707
2708
2725
2731
2738
2758
2759
2769
2789
2794
2798
2800
2804
2820
2822
2823
2824
2828
2839
2851
2858
2867
2880
2895
2903
2907
2910
2912
2914
2931
2939
2952
2956
2961
2992
2993
3007
3023
3025
3030
3048
3054
3055
3059
3062
3070
3076
3084
3088
3092
3093
3134
3136
3138
3150
3163
3180
3210
3244
3254
3260
3263
3264
3282
3299
3308
3315
3320
3331
3333
3418
3437
3438
3458
3470
3478
3478
3495
3508
3515
3517
3534
3563
3573
3576
3583
3604
3618
3622
3632
3641
3644
3670
3685
3686
3688
3708
3736
3746
3754
3782
3782
3785
3812
3819
3821
3869
3871
3889
3903
3905
3907
3924
3937
3965
4001
4009
4021
4022
4067
4077
4097
4106
4119
4137
4163
4209
4209
4221
4290
4308
4358
4365
4404
4451
4464
4504
4694
4882
4904
5029
5086
5411
5587
5725




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=74161&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=74161&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74161&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.12400.6822894625743.50405371472
0.22614.3626898589573.7632695314727
0.32816.0984116344343.27453391657
0.42966.6640308458557.6427947197948
0.53134.9425411597371.7789141876764
0.63385.9706882597595.0895217067466
0.73626.5330581124669.4065691927428
0.83868.4480011947773.2511318877391
0.94199.7535882432892.9513905910587

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 2400.68228946257 & 43.50405371472 \tabularnewline
0.2 & 2614.36268985895 & 73.7632695314727 \tabularnewline
0.3 & 2816.09841163443 & 43.27453391657 \tabularnewline
0.4 & 2966.66403084585 & 57.6427947197948 \tabularnewline
0.5 & 3134.94254115973 & 71.7789141876764 \tabularnewline
0.6 & 3385.97068825975 & 95.0895217067466 \tabularnewline
0.7 & 3626.53305811246 & 69.4065691927428 \tabularnewline
0.8 & 3868.44800119477 & 73.2511318877391 \tabularnewline
0.9 & 4199.75358824328 & 92.9513905910587 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74161&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]2400.68228946257[/C][C]43.50405371472[/C][/ROW]
[ROW][C]0.2[/C][C]2614.36268985895[/C][C]73.7632695314727[/C][/ROW]
[ROW][C]0.3[/C][C]2816.09841163443[/C][C]43.27453391657[/C][/ROW]
[ROW][C]0.4[/C][C]2966.66403084585[/C][C]57.6427947197948[/C][/ROW]
[ROW][C]0.5[/C][C]3134.94254115973[/C][C]71.7789141876764[/C][/ROW]
[ROW][C]0.6[/C][C]3385.97068825975[/C][C]95.0895217067466[/C][/ROW]
[ROW][C]0.7[/C][C]3626.53305811246[/C][C]69.4065691927428[/C][/ROW]
[ROW][C]0.8[/C][C]3868.44800119477[/C][C]73.2511318877391[/C][/ROW]
[ROW][C]0.9[/C][C]4199.75358824328[/C][C]92.9513905910587[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74161&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74161&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.12400.6822894625743.50405371472
0.22614.3626898589573.7632695314727
0.32816.0984116344343.27453391657
0.42966.6640308458557.6427947197948
0.53134.9425411597371.7789141876764
0.63385.9706882597595.0895217067466
0.73626.5330581124669.4065691927428
0.83868.4480011947773.2511318877391
0.94199.7535882432892.9513905910587



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')