FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_harrell_davis.wasp
Title produced by softwareHarrell-Davis Quantiles
Date of computationSun, 15 Aug 2010 11:17:29 +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/2010/Aug/15/t12818710753hqd2mkv712gjk8.htm/, Retrieved Sat, 27 Apr 2024 20:10:44 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=78827, Retrieved Sat, 27 Apr 2024 20:10:44 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsSebastien Delforge
Estimated Impact168

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Harrel-Davis omze...] [2010-08-15 11:17:29] [923770d86edf74ed976a539eae527e37] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
75
74
73
71
91
90
75
65
66
66
67
69
75
79
75
77
100
100
94
83
83
83
84
88
89
98
94
84
111
98
98
83
79
78
80
94
98
104
94
90
115
104
114
99
96
98
104
111
117
125
117
118
151
145
155
133
124
125
131
133
136
141
130
137
177
183
191
166
156
153
164
164
168
173
164
165
205
207
215
190
169
175
188
188
196
201
194
197
237
236
244
222
195
199
207
204
212
222
214
217
258
256
251
223
198
206
214
212
227
238
228
235
275
278
278
251
225
232
238
239

Tables (Output of Computation)





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

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

As an alternative you can also use a QR Code:  
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.176.71152671884742.41335683632801
0.287.65569526012274.24615944495728
0.398.59357668451354.28040731310696
0.4115.8547491645539.65038795853847
0.5142.08416790303513.0858459726786
0.6171.00773905846311.5116210875229
0.7195.9401344085507.8201004465847
0.8214.3503990330016.514853847008
0.9235.7057185562875.37757235663557

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 76.7115267188474 & 2.41335683632801 \tabularnewline
0.2 & 87.6556952601227 & 4.24615944495728 \tabularnewline
0.3 & 98.5935766845135 & 4.28040731310696 \tabularnewline
0.4 & 115.854749164553 & 9.65038795853847 \tabularnewline
0.5 & 142.084167903035 & 13.0858459726786 \tabularnewline
0.6 & 171.007739058463 & 11.5116210875229 \tabularnewline
0.7 & 195.940134408550 & 7.8201004465847 \tabularnewline
0.8 & 214.350399033001 & 6.514853847008 \tabularnewline
0.9 & 235.705718556287 & 5.37757235663557 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=78827&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]76.7115267188474[/C][C]2.41335683632801[/C][/ROW]
[ROW][C]0.2[/C][C]87.6556952601227[/C][C]4.24615944495728[/C][/ROW]
[ROW][C]0.3[/C][C]98.5935766845135[/C][C]4.28040731310696[/C][/ROW]
[ROW][C]0.4[/C][C]115.854749164553[/C][C]9.65038795853847[/C][/ROW]
[ROW][C]0.5[/C][C]142.084167903035[/C][C]13.0858459726786[/C][/ROW]
[ROW][C]0.6[/C][C]171.007739058463[/C][C]11.5116210875229[/C][/ROW]
[ROW][C]0.7[/C][C]195.940134408550[/C][C]7.8201004465847[/C][/ROW]
[ROW][C]0.8[/C][C]214.350399033001[/C][C]6.514853847008[/C][/ROW]
[ROW][C]0.9[/C][C]235.705718556287[/C][C]5.37757235663557[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=78827&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Harrell-Davis Quantiles
quantilesvaluestandard error
0.176.71152671884742.41335683632801
0.287.65569526012274.24615944495728
0.398.59357668451354.28040731310696
0.4115.8547491645539.65038795853847
0.5142.08416790303513.0858459726786
0.6171.00773905846311.5116210875229
0.7195.9401344085507.8201004465847
0.8214.3503990330016.514853847008
0.9235.7057185562875.37757235663557


Figures (Output of Computation)

Input Parameters & R Code

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