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 computationWed, 11 Feb 2015 21:32:26 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Feb/11/t1423690473791woozwo5tcffc.htm/, Retrieved Sat, 18 May 2024 23:39:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=277063, Retrieved Sat, 18 May 2024 23:39:25 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact58
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2015-02-11 21:32:26] [87e7ca6f558d0278e2a63754d8e5cb91] [Current]
Feedback Forum

Post a new message
Dataseries X:
73.97
73.97
73.97
73.97
73.97
73.97
73.96
74.44
75.43
75.77
75.82
75.85
75.85
75.85
77.95
82.07
84.82
85.08
85.34
85.65
85.65
85.72
85.73
85.73
85.73
85.73
85.74
86.32
87.59
87.81
87.87
87.94
87.96
88.01
88.01
88.01
88.01
88.01
88.59
89.43
89.63
89.73
89.88
89.89
89.9
89.91
89.86
90.07
90.17
90.17
90.28
90.87
92.05
92.1
92.16
92.22
92.25
92.29
92.29
92.29
92.29
92.29
91.95
91.82
92.16
92.31
92.33
92.4
92.54
92.49
92.54
92.58
92.58
92.39
92.33
93.59
95.51
95.99
96.22
97.2
98.54
99.64
100.23
100.17
100.28
100.44
100.54
100.64
103.27
104.31
104.97
106.42
108.17
108.68
109.15
109.19




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=277063&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=277063&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=277063&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'Gertrude Mary Cox' @ cox.wessa.net







Harrell-Davis Quantiles
quantilesvaluestandard error
0.0574.13656421898030.341239824486519
0.175.6653634423651.47221932659226
0.1579.53773832567793.70576371723257
0.284.06289838374912.2752034744123
0.2585.93163773636080.888119925005812
0.387.00195031872260.94324857539147
0.3587.95798641157230.770753906455607
0.488.80348539059820.817274774574131
0.4589.62689429844860.731883263776553
0.590.40388055459570.797304527179732
0.5591.27739981840870.844184739273686
0.691.95849242857910.458612290324208
0.6592.25293554663830.155847561028694
0.792.455249643420.261187637306502
0.7593.22251002249441.11813432111002
0.895.52090622209272.35597854850296
0.8598.71458912574372.03634408154358
0.9101.4912521581111.74444991937389
0.95106.1201699850262.24743385485116

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.05 & 74.1365642189803 & 0.341239824486519 \tabularnewline
0.1 & 75.665363442365 & 1.47221932659226 \tabularnewline
0.15 & 79.5377383256779 & 3.70576371723257 \tabularnewline
0.2 & 84.0628983837491 & 2.2752034744123 \tabularnewline
0.25 & 85.9316377363608 & 0.888119925005812 \tabularnewline
0.3 & 87.0019503187226 & 0.94324857539147 \tabularnewline
0.35 & 87.9579864115723 & 0.770753906455607 \tabularnewline
0.4 & 88.8034853905982 & 0.817274774574131 \tabularnewline
0.45 & 89.6268942984486 & 0.731883263776553 \tabularnewline
0.5 & 90.4038805545957 & 0.797304527179732 \tabularnewline
0.55 & 91.2773998184087 & 0.844184739273686 \tabularnewline
0.6 & 91.9584924285791 & 0.458612290324208 \tabularnewline
0.65 & 92.2529355466383 & 0.155847561028694 \tabularnewline
0.7 & 92.45524964342 & 0.261187637306502 \tabularnewline
0.75 & 93.2225100224944 & 1.11813432111002 \tabularnewline
0.8 & 95.5209062220927 & 2.35597854850296 \tabularnewline
0.85 & 98.7145891257437 & 2.03634408154358 \tabularnewline
0.9 & 101.491252158111 & 1.74444991937389 \tabularnewline
0.95 & 106.120169985026 & 2.24743385485116 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=277063&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.05[/C][C]74.1365642189803[/C][C]0.341239824486519[/C][/ROW]
[ROW][C]0.1[/C][C]75.665363442365[/C][C]1.47221932659226[/C][/ROW]
[ROW][C]0.15[/C][C]79.5377383256779[/C][C]3.70576371723257[/C][/ROW]
[ROW][C]0.2[/C][C]84.0628983837491[/C][C]2.2752034744123[/C][/ROW]
[ROW][C]0.25[/C][C]85.9316377363608[/C][C]0.888119925005812[/C][/ROW]
[ROW][C]0.3[/C][C]87.0019503187226[/C][C]0.94324857539147[/C][/ROW]
[ROW][C]0.35[/C][C]87.9579864115723[/C][C]0.770753906455607[/C][/ROW]
[ROW][C]0.4[/C][C]88.8034853905982[/C][C]0.817274774574131[/C][/ROW]
[ROW][C]0.45[/C][C]89.6268942984486[/C][C]0.731883263776553[/C][/ROW]
[ROW][C]0.5[/C][C]90.4038805545957[/C][C]0.797304527179732[/C][/ROW]
[ROW][C]0.55[/C][C]91.2773998184087[/C][C]0.844184739273686[/C][/ROW]
[ROW][C]0.6[/C][C]91.9584924285791[/C][C]0.458612290324208[/C][/ROW]
[ROW][C]0.65[/C][C]92.2529355466383[/C][C]0.155847561028694[/C][/ROW]
[ROW][C]0.7[/C][C]92.45524964342[/C][C]0.261187637306502[/C][/ROW]
[ROW][C]0.75[/C][C]93.2225100224944[/C][C]1.11813432111002[/C][/ROW]
[ROW][C]0.8[/C][C]95.5209062220927[/C][C]2.35597854850296[/C][/ROW]
[ROW][C]0.85[/C][C]98.7145891257437[/C][C]2.03634408154358[/C][/ROW]
[ROW][C]0.9[/C][C]101.491252158111[/C][C]1.74444991937389[/C][/ROW]
[ROW][C]0.95[/C][C]106.120169985026[/C][C]2.24743385485116[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=277063&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=277063&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.0574.13656421898030.341239824486519
0.175.6653634423651.47221932659226
0.1579.53773832567793.70576371723257
0.284.06289838374912.2752034744123
0.2585.93163773636080.888119925005812
0.387.00195031872260.94324857539147
0.3587.95798641157230.770753906455607
0.488.80348539059820.817274774574131
0.4589.62689429844860.731883263776553
0.590.40388055459570.797304527179732
0.5591.27739981840870.844184739273686
0.691.95849242857910.458612290324208
0.6592.25293554663830.155847561028694
0.792.455249643420.261187637306502
0.7593.22251002249441.11813432111002
0.895.52090622209272.35597854850296
0.8598.71458912574372.03634408154358
0.9101.4912521581111.74444991937389
0.95106.1201699850262.24743385485116



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = 0.05 ; par2 = 0.95 ; par3 = 0.05 ;
R code (references can be found in the software module):
par3 <- '0.01'
par2 <- '0.95'
par1 <- '0.05'
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')