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, 28 May 2008 07:33:14 -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/2008/May/28/t1211981840rkzmbxdq385j794.htm/, Retrieved Mon, 20 May 2024 00:07:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=13437, Retrieved Mon, 20 May 2024 00:07:24 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsdecielen gem prijs kinderfiets
Estimated Impact228
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [Nieuwe personenwa...] [2008-03-05 16:02:42] [75a0d8aa87c90273b105cd3c5edbfc21]
- RMPD  [Percentiles] [gemiddelde fietsp...] [2008-03-05 16:49:04] [74be16979710d4c4e7c6647856088456]
- RMPD      [Harrell-Davis Quantiles] [Hans van de Paer ...] [2008-05-28 13:33:14] [5f22b470c9f884f89ba28cade77c8f91] [Current]
Feedback Forum

Post a new message
Dataseries X:
217.8
218.79
218.99
219.53
219.55
219.74
219.74
219.74
219.8
219.97
220.07
220.07
220.1
225.8
233.17
233.83
233.63
233.63
233.65
233.8
233.84
233.74
233.88
233.88
233.81
234.68
236.14
236.91
236.87
236.78
236.78
236.9
236.94
236.97
236.96
236.94
236.99
237.24
237.62
237.54
237.41
237.4
237.41
237.28
237.17
237.18
237.18
237.18
236.77
239.23
240.23
240.33
240.33
240.34
240.34
240.27
240.29
240.29
240.29
240.29
240.31
239.95
242.33
242.11
241.53
241.53
241.53
241.41
241.41
241.66
241.8
241.99




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time11 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 11 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13437&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]11 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13437&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13437&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 time11 seconds
R Server'George Udny Yule' @ 72.249.76.132







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1219.9693650974660.721483100551154
0.2227.8174919598165.27017546935423
0.3234.0090707962851.03268335684248
0.4236.1021302570190.960656988293092
0.5236.9927897919720.189189955519147
0.6237.4671321112740.464198191883418
0.7239.1610191712321.09761874326422
0.8240.3644422542180.257825285783144
0.9241.3851916866220.344286852452482

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 219.969365097466 & 0.721483100551154 \tabularnewline
0.2 & 227.817491959816 & 5.27017546935423 \tabularnewline
0.3 & 234.009070796285 & 1.03268335684248 \tabularnewline
0.4 & 236.102130257019 & 0.960656988293092 \tabularnewline
0.5 & 236.992789791972 & 0.189189955519147 \tabularnewline
0.6 & 237.467132111274 & 0.464198191883418 \tabularnewline
0.7 & 239.161019171232 & 1.09761874326422 \tabularnewline
0.8 & 240.364442254218 & 0.257825285783144 \tabularnewline
0.9 & 241.385191686622 & 0.344286852452482 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13437&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]219.969365097466[/C][C]0.721483100551154[/C][/ROW]
[ROW][C]0.2[/C][C]227.817491959816[/C][C]5.27017546935423[/C][/ROW]
[ROW][C]0.3[/C][C]234.009070796285[/C][C]1.03268335684248[/C][/ROW]
[ROW][C]0.4[/C][C]236.102130257019[/C][C]0.960656988293092[/C][/ROW]
[ROW][C]0.5[/C][C]236.992789791972[/C][C]0.189189955519147[/C][/ROW]
[ROW][C]0.6[/C][C]237.467132111274[/C][C]0.464198191883418[/C][/ROW]
[ROW][C]0.7[/C][C]239.161019171232[/C][C]1.09761874326422[/C][/ROW]
[ROW][C]0.8[/C][C]240.364442254218[/C][C]0.257825285783144[/C][/ROW]
[ROW][C]0.9[/C][C]241.385191686622[/C][C]0.344286852452482[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13437&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13437&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.1219.9693650974660.721483100551154
0.2227.8174919598165.27017546935423
0.3234.0090707962851.03268335684248
0.4236.1021302570190.960656988293092
0.5236.9927897919720.189189955519147
0.6237.4671321112740.464198191883418
0.7239.1610191712321.09761874326422
0.8240.3644422542180.257825285783144
0.9241.3851916866220.344286852452482



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