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, 16 Aug 2009 07:35:37 -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/Aug/16/t1250429821fkr9m3zxs8q4u6b.htm/, Retrieved Sun, 05 May 2024 15:46:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=42630, Retrieved Sun, 05 May 2024 15:46:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact204
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram] [] [2009-08-16 10:56:48] [f85cc8f00ef4b762f0a6fdfddc793773]
- RM D    [Harrell-Davis Quantiles] [] [2009-08-16 13:35:37] [e921d89db97faa9283224ee60d8fb091] [Current]
Feedback Forum

Post a new message
Dataseries X:
72,84
73,96
73,26
73,86
73,04
212,8
157,92
111,55
99,01
89,5
100,95
116,06
131,5
137,43
138,53
137,26
136,81
182,98
149,45
109,34
93,37
84,09
83,83
82,94
82,88
81,41
79,87
79,66
76,07
182,69
165,78
142,5
120,6
105,73
98,72
98,41
96,08
97,3
97,5
97,02
98,75
232,81
240,83
193,4
148,28
138,34
135,34
134,02
133,86
131,67
132,43
130,21
129,98
206,16
195,17
159,16
136,33
125,18
121,21
119,38
119,26
119,75
118,78
116,97
121,69
223,51
228,58
205,22
189,4
180,14
177,59
176,39
171,16
173,11
171,74
175,97
179,64
254,62
240,5
212,01
176,36
153,24
146,69
141,52
142,6
143,19
142,32
142,03
144,92
177,31
194,4
189,19
180,44
175,84
178,54
176,55




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42630&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42630&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42630&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Harrell-Davis Quantiles
quantilesvaluestandard error
0.182.73886762169034.09206324785492
0.298.24337749618234.85380837658197
0.3114.6114574691487.17147860567849
0.4128.1849830985175.6684344435469
0.5137.6802025483413.70867373989968
0.6148.1359454945317.62833906794041
0.7169.2838318760968.42307858738564
0.8180.793993427174.07725592910829
0.9203.48571072475810.0646415126214

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 82.7388676216903 & 4.09206324785492 \tabularnewline
0.2 & 98.2433774961823 & 4.85380837658197 \tabularnewline
0.3 & 114.611457469148 & 7.17147860567849 \tabularnewline
0.4 & 128.184983098517 & 5.6684344435469 \tabularnewline
0.5 & 137.680202548341 & 3.70867373989968 \tabularnewline
0.6 & 148.135945494531 & 7.62833906794041 \tabularnewline
0.7 & 169.283831876096 & 8.42307858738564 \tabularnewline
0.8 & 180.79399342717 & 4.07725592910829 \tabularnewline
0.9 & 203.485710724758 & 10.0646415126214 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42630&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]82.7388676216903[/C][C]4.09206324785492[/C][/ROW]
[ROW][C]0.2[/C][C]98.2433774961823[/C][C]4.85380837658197[/C][/ROW]
[ROW][C]0.3[/C][C]114.611457469148[/C][C]7.17147860567849[/C][/ROW]
[ROW][C]0.4[/C][C]128.184983098517[/C][C]5.6684344435469[/C][/ROW]
[ROW][C]0.5[/C][C]137.680202548341[/C][C]3.70867373989968[/C][/ROW]
[ROW][C]0.6[/C][C]148.135945494531[/C][C]7.62833906794041[/C][/ROW]
[ROW][C]0.7[/C][C]169.283831876096[/C][C]8.42307858738564[/C][/ROW]
[ROW][C]0.8[/C][C]180.79399342717[/C][C]4.07725592910829[/C][/ROW]
[ROW][C]0.9[/C][C]203.485710724758[/C][C]10.0646415126214[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42630&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42630&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.182.73886762169034.09206324785492
0.298.24337749618234.85380837658197
0.3114.6114574691487.17147860567849
0.4128.1849830985175.6684344435469
0.5137.6802025483413.70867373989968
0.6148.1359454945317.62833906794041
0.7169.2838318760968.42307858738564
0.8180.793993427174.07725592910829
0.9203.48571072475810.0646415126214



Parameters (Session):
par2 = grey ; par3 = FALSE ; par4 = Unknown ;
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')