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, 26 Nov 2011 06:18:39 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/26/t13223063875m81u536uksdybv.htm/, Retrieved Thu, 28 Mar 2024 20:02:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=147383, Retrieved Thu, 28 Mar 2024 20:02:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDG201142
Estimated Impact134
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [prijs haarsnit heren] [2011-11-26 11:18:39] [d0059bb5ffa81669f18ca7953f72fb2d] [Current]
- R PD    [Harrell-Davis Quantiles] [prijs haarsnit heren] [2011-12-17 10:00:34] [f1fd1a5c6326484b1f99f813a7dd37c8]
Feedback Forum

Post a new message
Dataseries X:
15,58
15,66
15,73
15,74
15,77
15,78
15,8
15,81
15,82
15,88
15,85
15,89
15,92
16,02
16,1
16,13
16,21
16,25
16,27
16,21
16,21
16,24
16,32
16,32
16,36
16,48
16,54
16,58
16,56
16,55
16,58
16,53
16,6
16,46
16,48
16,48
16,49
16,54
16,67
16,72
16,79
16,86
16,84
16,86
16,96
17,01
17,02
17,04
17,04
17,39
17,54
17,57
17,58
17,56
17,63
17,67
17,71
17,75
17,82
17,86




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147383&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'George Udny Yule' @ yule.wessa.net







Harrell-Davis Quantiles
quantilesvaluestandard error
0.115.78905651470060.0385023365600793
0.215.9544635587180.119045968903855
0.316.19155098105490.101425833737305
0.416.36333134268760.0981494051396688
0.516.50222939607390.0625967229259294
0.616.62032147996780.0923153279266498
0.716.83926801267360.141617231516278
0.817.19348404561420.229512639761922
0.917.60829082315210.096326737485897

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 15.7890565147006 & 0.0385023365600793 \tabularnewline
0.2 & 15.954463558718 & 0.119045968903855 \tabularnewline
0.3 & 16.1915509810549 & 0.101425833737305 \tabularnewline
0.4 & 16.3633313426876 & 0.0981494051396688 \tabularnewline
0.5 & 16.5022293960739 & 0.0625967229259294 \tabularnewline
0.6 & 16.6203214799678 & 0.0923153279266498 \tabularnewline
0.7 & 16.8392680126736 & 0.141617231516278 \tabularnewline
0.8 & 17.1934840456142 & 0.229512639761922 \tabularnewline
0.9 & 17.6082908231521 & 0.096326737485897 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=147383&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]15.7890565147006[/C][C]0.0385023365600793[/C][/ROW]
[ROW][C]0.2[/C][C]15.954463558718[/C][C]0.119045968903855[/C][/ROW]
[ROW][C]0.3[/C][C]16.1915509810549[/C][C]0.101425833737305[/C][/ROW]
[ROW][C]0.4[/C][C]16.3633313426876[/C][C]0.0981494051396688[/C][/ROW]
[ROW][C]0.5[/C][C]16.5022293960739[/C][C]0.0625967229259294[/C][/ROW]
[ROW][C]0.6[/C][C]16.6203214799678[/C][C]0.0923153279266498[/C][/ROW]
[ROW][C]0.7[/C][C]16.8392680126736[/C][C]0.141617231516278[/C][/ROW]
[ROW][C]0.8[/C][C]17.1934840456142[/C][C]0.229512639761922[/C][/ROW]
[ROW][C]0.9[/C][C]17.6082908231521[/C][C]0.096326737485897[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=147383&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=147383&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.115.78905651470060.0385023365600793
0.215.9544635587180.119045968903855
0.316.19155098105490.101425833737305
0.416.36333134268760.0981494051396688
0.516.50222939607390.0625967229259294
0.616.62032147996780.0923153279266498
0.716.83926801267360.141617231516278
0.817.19348404561420.229512639761922
0.917.60829082315210.096326737485897



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