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, 11 May 2011 21:03:48 +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/2011/May/11/t1305147638n76jyipm9ule2q2.htm/, Retrieved Sun, 12 May 2024 00:02:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=121496, Retrieved Sun, 12 May 2024 00:02:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact171
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Harrel-Davis deci...] [2011-05-11 21:03:48] [73460acc53c7293f330720eb944c4fbc] [Current]
Feedback Forum

Post a new message
Dataseries X:
12.32
12.34
12.36
12.54
12.77
12.79
12.96
12.96
13
13.19
13.25
13.61
13.8
13.83
14.04
14.16
14.2
14.27
14.31
14.69
14.9
14.92
15.01
15.09
15.14
15.24
15.33
15.36
15.44
15.5
15.58
15.65
15.72
15.82
15.87
16.07
16.18
16.19
16.39
16.54
16.61
16.62
16.66
16.71
16.72
16.79
16.82
16.83
16.91
16.97
17.02
17.03
17.04
17.07
17.11
17.12
17.14
17.18
17.24
17.26
17.26
17.29
17.36
17.44
17.48
17.48
17.52
17.54
17.58
17.64
17.69
17.69
17.76
17.79
17.82
17.89
17.95
18
18.03
18.06
18.08
18.13
18.16
18.18
18.18
18.27
18.31
18.35
18.45
18.5




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ www.yougetit.org

\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 & 'Herman Ole Andreas Wold' @ www.yougetit.org \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=121496&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]'Herman Ole Andreas Wold' @ www.yougetit.org[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=121496&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=121496&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'Herman Ole Andreas Wold' @ www.yougetit.org







Harrell-Davis Quantiles
quantilesvaluestandard error
0.113.19062603414210.343719012014819
0.214.4113423684330.43551088399617
0.315.32856818884840.32233516227985
0.416.09092196986720.392666528622979
0.516.73547087568990.220092780222675
0.617.0840098248960.138677539539178
0.717.38945478748520.150604951194974
0.817.73876532330870.145947351473565
0.918.10153798903880.0885392273589455

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 13.1906260341421 & 0.343719012014819 \tabularnewline
0.2 & 14.411342368433 & 0.43551088399617 \tabularnewline
0.3 & 15.3285681888484 & 0.32233516227985 \tabularnewline
0.4 & 16.0909219698672 & 0.392666528622979 \tabularnewline
0.5 & 16.7354708756899 & 0.220092780222675 \tabularnewline
0.6 & 17.084009824896 & 0.138677539539178 \tabularnewline
0.7 & 17.3894547874852 & 0.150604951194974 \tabularnewline
0.8 & 17.7387653233087 & 0.145947351473565 \tabularnewline
0.9 & 18.1015379890388 & 0.0885392273589455 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=121496&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]13.1906260341421[/C][C]0.343719012014819[/C][/ROW]
[ROW][C]0.2[/C][C]14.411342368433[/C][C]0.43551088399617[/C][/ROW]
[ROW][C]0.3[/C][C]15.3285681888484[/C][C]0.32233516227985[/C][/ROW]
[ROW][C]0.4[/C][C]16.0909219698672[/C][C]0.392666528622979[/C][/ROW]
[ROW][C]0.5[/C][C]16.7354708756899[/C][C]0.220092780222675[/C][/ROW]
[ROW][C]0.6[/C][C]17.084009824896[/C][C]0.138677539539178[/C][/ROW]
[ROW][C]0.7[/C][C]17.3894547874852[/C][C]0.150604951194974[/C][/ROW]
[ROW][C]0.8[/C][C]17.7387653233087[/C][C]0.145947351473565[/C][/ROW]
[ROW][C]0.9[/C][C]18.1015379890388[/C][C]0.0885392273589455[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=121496&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=121496&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.113.19062603414210.343719012014819
0.214.4113423684330.43551088399617
0.315.32856818884840.32233516227985
0.416.09092196986720.392666528622979
0.516.73547087568990.220092780222675
0.617.0840098248960.138677539539178
0.717.38945478748520.150604951194974
0.817.73876532330870.145947351473565
0.918.10153798903880.0885392273589455



Parameters (Session):
par1 = grey ;
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')