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 computationMon, 29 Feb 2016 16:14:41 +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/2016/Feb/29/t14567625076j7khq5x9hui7f9.htm/, Retrieved Tue, 30 Apr 2024 20:56:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=292999, Retrieved Tue, 30 Apr 2024 20:56:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact113
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2016-02-29 16:14:41] [a8cf284534efea996701e15b66911faf] [Current]
Feedback Forum

Post a new message
Dataseries X:
92.09
93.77
94.44
94.91
94.78
94.51
94.36
96.6
96.72
96.71
97.44
97.83
98.92
97.98
98.76
99.76
99.87
100.09
100.07
99.46
100.4
101.25
102.29
102.1
105.91
108.95
110.07
109.92
109.87
110.54
110.79
110.32
110.76
110.24
110.27
110.11
110.39
111.05
110.85
110.24
108.7
109.93
109.53
109.83
107.86
104.61
103.61
103.11
102.59
102.91
101.94
101.8
102.25
102.6
102.49
102.13
100.76
100.86
101.12
100.74
99.99
99.39
99.52
99.21
99.38
99.37
99.38
99.26
99.36
99.2
98.53
98.65
99.15
100.17
99.98
100.07
99.94
100.05
99.13
98.74
98.64
98.44
98.81
98.88
99.63
100.08
100.07
100.55
99.98
99.89
99.86
99.61
100.12
100.24
100.1
99.86
97.99
97.57
98.28
97.97
97.99
97.84
97.33
96.7
96.79
96.76
96.23
96.29
96.46
97.23
97.59
97.13
97.37
96.12
96.96
96.7
97
97.15
96.51
96.68




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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.196.44517850916170.276866855400262
0.297.21181860092010.316015597129605
0.398.21795204621440.412287539885395
0.499.09855972577570.283602700472249
0.599.67756072564470.232763260597178
0.6100.1007620773890.177914622068118
0.7101.1876988367120.722508129573625
0.8104.1768139385642.01332060574291
0.9109.8858434314170.494676257068092

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 96.4451785091617 & 0.276866855400262 \tabularnewline
0.2 & 97.2118186009201 & 0.316015597129605 \tabularnewline
0.3 & 98.2179520462144 & 0.412287539885395 \tabularnewline
0.4 & 99.0985597257757 & 0.283602700472249 \tabularnewline
0.5 & 99.6775607256447 & 0.232763260597178 \tabularnewline
0.6 & 100.100762077389 & 0.177914622068118 \tabularnewline
0.7 & 101.187698836712 & 0.722508129573625 \tabularnewline
0.8 & 104.176813938564 & 2.01332060574291 \tabularnewline
0.9 & 109.885843431417 & 0.494676257068092 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=292999&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]96.4451785091617[/C][C]0.276866855400262[/C][/ROW]
[ROW][C]0.2[/C][C]97.2118186009201[/C][C]0.316015597129605[/C][/ROW]
[ROW][C]0.3[/C][C]98.2179520462144[/C][C]0.412287539885395[/C][/ROW]
[ROW][C]0.4[/C][C]99.0985597257757[/C][C]0.283602700472249[/C][/ROW]
[ROW][C]0.5[/C][C]99.6775607256447[/C][C]0.232763260597178[/C][/ROW]
[ROW][C]0.6[/C][C]100.100762077389[/C][C]0.177914622068118[/C][/ROW]
[ROW][C]0.7[/C][C]101.187698836712[/C][C]0.722508129573625[/C][/ROW]
[ROW][C]0.8[/C][C]104.176813938564[/C][C]2.01332060574291[/C][/ROW]
[ROW][C]0.9[/C][C]109.885843431417[/C][C]0.494676257068092[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=292999&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=292999&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.196.44517850916170.276866855400262
0.297.21181860092010.316015597129605
0.398.21795204621440.412287539885395
0.499.09855972577570.283602700472249
0.599.67756072564470.232763260597178
0.6100.1007620773890.177914622068118
0.7101.1876988367120.722508129573625
0.8104.1768139385642.01332060574291
0.9109.8858434314170.494676257068092



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):
par3 <- '0.01'
par2 <- '0.99'
par1 <- '0.01'
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')