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 computationSat, 02 May 2015 21:17:49 +0100
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/May/02/t1430597914ys99yeam2cujrw9.htm/, Retrieved Fri, 29 Mar 2024 09:31:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=279015, Retrieved Fri, 29 Mar 2024 09:31:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact144
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Quartiles] [] [2015-02-10 10:18:51] [8390261acee10548bfb365f53448cdf9]
- RMP     [Harrell-Davis Quantiles] [] [2015-05-02 20:17:49] [944b95db226364abcbc791a2a23b852c] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,3
1,2
1,1
1,4
1,5
1,4
1,1
1,1
1
1,4
1,3
1,2
1,5
1,6
1,8
1,5
1,3
1,6
1,6
1,8
1,8
1,6
1,8
2
1,3
1,1
1
1,2
1,2
1,3
1,3
1,4
1,1
0,9
1
1,1
1,4
1,5
1,8
1,8
1,8
1,7
1,5
1,1
1,3
1,6
1,9
1,9
2
2,2
2,2
2
2,3
2,6
3,2
3,2
3,1
2,8
2,3
1,9
1,9
2
2
1,8
1,6
1,4
0,2
0,3
0,4
0,7
1
1,1
0,8
0,8
1
1,1
1
0,8
1,6
1,5
1,6
1,6
1,6
1,9
2
1,9
2
2,1
2,3
2,3
2,6
2,6
2,7
2,6
2,6
2,4
2,5
2,5
2,5
2,4
2,1
2,1
2,3
2,3
2,3
2,9
2,8
2,9
3
3
2,9
2,6
2,8
2,9
3,1
2,8
2,4
1,6
1,5
1,7
1,4
1,1
0,8
1,2
0,8
0,9
0,9
1
0,9
1,1
1
0,7




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=279015&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=279015&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=279015&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Harrell-Davis Quantiles
quantilesvaluestandard error
0.050.7679681424114530.0664114128470165
0.10.9214377460766980.0637453787625636
0.151.021442176641520.0457106022032044
0.21.092006363061910.0400367655975116
0.251.164574452551360.0676989117131651
0.31.267335029048620.0789019591568569
0.351.366721335586250.0750781044941982
0.41.460554567627190.0744381672953947
0.451.547049054877670.0658124121184178
0.51.627935473541380.0736951635860588
0.551.731695332489760.094308552812417
0.61.841285338031070.084535731455295
0.651.946637403004560.0857151758300956
0.72.073776667808360.112552363579214
0.752.234529030199860.11441026778685
0.82.391378246752110.107326547509005
0.852.561732656677590.0980312048162051
0.92.749663753710180.101513602643834
0.952.948721601921520.0756533524303327

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.05 & 0.767968142411453 & 0.0664114128470165 \tabularnewline
0.1 & 0.921437746076698 & 0.0637453787625636 \tabularnewline
0.15 & 1.02144217664152 & 0.0457106022032044 \tabularnewline
0.2 & 1.09200636306191 & 0.0400367655975116 \tabularnewline
0.25 & 1.16457445255136 & 0.0676989117131651 \tabularnewline
0.3 & 1.26733502904862 & 0.0789019591568569 \tabularnewline
0.35 & 1.36672133558625 & 0.0750781044941982 \tabularnewline
0.4 & 1.46055456762719 & 0.0744381672953947 \tabularnewline
0.45 & 1.54704905487767 & 0.0658124121184178 \tabularnewline
0.5 & 1.62793547354138 & 0.0736951635860588 \tabularnewline
0.55 & 1.73169533248976 & 0.094308552812417 \tabularnewline
0.6 & 1.84128533803107 & 0.084535731455295 \tabularnewline
0.65 & 1.94663740300456 & 0.0857151758300956 \tabularnewline
0.7 & 2.07377666780836 & 0.112552363579214 \tabularnewline
0.75 & 2.23452903019986 & 0.11441026778685 \tabularnewline
0.8 & 2.39137824675211 & 0.107326547509005 \tabularnewline
0.85 & 2.56173265667759 & 0.0980312048162051 \tabularnewline
0.9 & 2.74966375371018 & 0.101513602643834 \tabularnewline
0.95 & 2.94872160192152 & 0.0756533524303327 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=279015&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]0.767968142411453[/C][C]0.0664114128470165[/C][/ROW]
[ROW][C]0.1[/C][C]0.921437746076698[/C][C]0.0637453787625636[/C][/ROW]
[ROW][C]0.15[/C][C]1.02144217664152[/C][C]0.0457106022032044[/C][/ROW]
[ROW][C]0.2[/C][C]1.09200636306191[/C][C]0.0400367655975116[/C][/ROW]
[ROW][C]0.25[/C][C]1.16457445255136[/C][C]0.0676989117131651[/C][/ROW]
[ROW][C]0.3[/C][C]1.26733502904862[/C][C]0.0789019591568569[/C][/ROW]
[ROW][C]0.35[/C][C]1.36672133558625[/C][C]0.0750781044941982[/C][/ROW]
[ROW][C]0.4[/C][C]1.46055456762719[/C][C]0.0744381672953947[/C][/ROW]
[ROW][C]0.45[/C][C]1.54704905487767[/C][C]0.0658124121184178[/C][/ROW]
[ROW][C]0.5[/C][C]1.62793547354138[/C][C]0.0736951635860588[/C][/ROW]
[ROW][C]0.55[/C][C]1.73169533248976[/C][C]0.094308552812417[/C][/ROW]
[ROW][C]0.6[/C][C]1.84128533803107[/C][C]0.084535731455295[/C][/ROW]
[ROW][C]0.65[/C][C]1.94663740300456[/C][C]0.0857151758300956[/C][/ROW]
[ROW][C]0.7[/C][C]2.07377666780836[/C][C]0.112552363579214[/C][/ROW]
[ROW][C]0.75[/C][C]2.23452903019986[/C][C]0.11441026778685[/C][/ROW]
[ROW][C]0.8[/C][C]2.39137824675211[/C][C]0.107326547509005[/C][/ROW]
[ROW][C]0.85[/C][C]2.56173265667759[/C][C]0.0980312048162051[/C][/ROW]
[ROW][C]0.9[/C][C]2.74966375371018[/C][C]0.101513602643834[/C][/ROW]
[ROW][C]0.95[/C][C]2.94872160192152[/C][C]0.0756533524303327[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=279015&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=279015&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.050.7679681424114530.0664114128470165
0.10.9214377460766980.0637453787625636
0.151.021442176641520.0457106022032044
0.21.092006363061910.0400367655975116
0.251.164574452551360.0676989117131651
0.31.267335029048620.0789019591568569
0.351.366721335586250.0750781044941982
0.41.460554567627190.0744381672953947
0.451.547049054877670.0658124121184178
0.51.627935473541380.0736951635860588
0.551.731695332489760.094308552812417
0.61.841285338031070.084535731455295
0.651.946637403004560.0857151758300956
0.72.073776667808360.112552363579214
0.752.234529030199860.11441026778685
0.82.391378246752110.107326547509005
0.852.561732656677590.0980312048162051
0.92.749663753710180.101513602643834
0.952.948721601921520.0756533524303327



Parameters (Session):
par1 = 0.05 ; par2 = 0.95 ; par3 = 0.05 ;
Parameters (R input):
par1 = 0.05 ; par2 = 0.95 ; par3 = 0.05 ;
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')