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, 07 Mar 2010 05:15:12 -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/07/t12679642317chimunb2l9de4f.htm/, Retrieved Fri, 12 Aug 2022 10:06:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74045, Retrieved Fri, 12 Aug 2022 10:06:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact153
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2010-03-07 12:15:12] [1c63715a73aab28ce271608ca6a82d4c] [Current]
Feedback Forum

Post a new message
Dataseries X:
6550
8728
12026
14395
14587
13791
9498
8251
7049
9545
9364
8456
7237
9374
11837
13784
15926
13821
11143
7975
7610
10015
12759
8816
10677
10947
15200
17010
20900
16205
12143
8997
5568
11474
12256
10583
10862
10965
14405
20379
20128
17816
12268
8642
7962
13932
15936
12628
12267
12470
18944
21259
22015
18581
15175
10306
10792
14752
13754
11738
12181
12965
19990
23125
23541
21247
15189
14767
10895
17130
17697
16611
12674
12760
20249
22135
20677
19933
15388
15113
13401
16135
17562
14720
12225
11608
20985
19692
24081
22114
14220
13434
13598
17187
16119
13713
13210
14251
20139
21725
26099
21084
18024
16722
14385
21342
17180
14577




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74045&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.18786.21918254671478.412582543095
0.210638.3281025536550.593963256867
0.311959.9799001310450.896835124831
0.413012.1584936083516.521488173894
0.514075.0579948837430.755672303673
0.615126.1689638823573.959428211593
0.716749.9866267223768.011394448977
0.819192.41588086891018.84486567886
0.921182.6448439283425.787182041607

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 8786.21918254671 & 478.412582543095 \tabularnewline
0.2 & 10638.3281025536 & 550.593963256867 \tabularnewline
0.3 & 11959.9799001310 & 450.896835124831 \tabularnewline
0.4 & 13012.1584936083 & 516.521488173894 \tabularnewline
0.5 & 14075.0579948837 & 430.755672303673 \tabularnewline
0.6 & 15126.1689638823 & 573.959428211593 \tabularnewline
0.7 & 16749.9866267223 & 768.011394448977 \tabularnewline
0.8 & 19192.4158808689 & 1018.84486567886 \tabularnewline
0.9 & 21182.6448439283 & 425.787182041607 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74045&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]8786.21918254671[/C][C]478.412582543095[/C][/ROW]
[ROW][C]0.2[/C][C]10638.3281025536[/C][C]550.593963256867[/C][/ROW]
[ROW][C]0.3[/C][C]11959.9799001310[/C][C]450.896835124831[/C][/ROW]
[ROW][C]0.4[/C][C]13012.1584936083[/C][C]516.521488173894[/C][/ROW]
[ROW][C]0.5[/C][C]14075.0579948837[/C][C]430.755672303673[/C][/ROW]
[ROW][C]0.6[/C][C]15126.1689638823[/C][C]573.959428211593[/C][/ROW]
[ROW][C]0.7[/C][C]16749.9866267223[/C][C]768.011394448977[/C][/ROW]
[ROW][C]0.8[/C][C]19192.4158808689[/C][C]1018.84486567886[/C][/ROW]
[ROW][C]0.9[/C][C]21182.6448439283[/C][C]425.787182041607[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74045&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74045&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.18786.21918254671478.412582543095
0.210638.3281025536550.593963256867
0.311959.9799001310450.896835124831
0.413012.1584936083516.521488173894
0.514075.0579948837430.755672303673
0.615126.1689638823573.959428211593
0.716749.9866267223768.011394448977
0.819192.41588086891018.84486567886
0.921182.6448439283425.787182041607



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