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 computationTue, 09 Oct 2012 09:31:17 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Oct/09/t1349789507cmlsud9gmv04wor.htm/, Retrieved Wed, 01 May 2024 20:10:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=174605, Retrieved Wed, 01 May 2024 20:10:57 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact71
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2012-10-09 13:31:17] [44b559b455558ce8185c1073291404e7] [Current]
Feedback Forum

Post a new message
Dataseries X:
98.68
99.21
99.36
100.72
102.27
102.62
102.97
102.88
102.9
103.01
103.02
103.73
104.18
103.73
103.78
103.61
103.84
103.86
104.14
104.05
104.01
104.49
104.83
104.78
104.95
105.28
105.28
105.91
106.81
106.39
107.02
106.92
107.01
106.79
107.41
107.13
107.54
108.48
108.5
108.27
109.42
110.09
109.98
109.99
109.54
108.85
106.76
107.56
106.24
108.85
111.11
111.85
110.68
106.96
106.74
105.73
105.66
104.01
106.86
108.84
110.66
106.93
103.74
101.64
102.17
101.13
100.64
100.43
99.77
99.79
99.47
99.63




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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1100.2675963268790.645291265927427
0.2102.3338911748280.707303072264938
0.3103.4785993392770.388821737664213
0.4104.1390480678810.388233442227606
0.5105.1483676230830.687216219171231
0.6106.3541108860490.53921434302724
0.7107.0428252619380.298104697617433
0.8108.1136662335610.637853191866778
0.9109.6470560204420.525894557768269
1111.85NA

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 100.267596326879 & 0.645291265927427 \tabularnewline
0.2 & 102.333891174828 & 0.707303072264938 \tabularnewline
0.3 & 103.478599339277 & 0.388821737664213 \tabularnewline
0.4 & 104.139048067881 & 0.388233442227606 \tabularnewline
0.5 & 105.148367623083 & 0.687216219171231 \tabularnewline
0.6 & 106.354110886049 & 0.53921434302724 \tabularnewline
0.7 & 107.042825261938 & 0.298104697617433 \tabularnewline
0.8 & 108.113666233561 & 0.637853191866778 \tabularnewline
0.9 & 109.647056020442 & 0.525894557768269 \tabularnewline
1 & 111.85 & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=174605&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]100.267596326879[/C][C]0.645291265927427[/C][/ROW]
[ROW][C]0.2[/C][C]102.333891174828[/C][C]0.707303072264938[/C][/ROW]
[ROW][C]0.3[/C][C]103.478599339277[/C][C]0.388821737664213[/C][/ROW]
[ROW][C]0.4[/C][C]104.139048067881[/C][C]0.388233442227606[/C][/ROW]
[ROW][C]0.5[/C][C]105.148367623083[/C][C]0.687216219171231[/C][/ROW]
[ROW][C]0.6[/C][C]106.354110886049[/C][C]0.53921434302724[/C][/ROW]
[ROW][C]0.7[/C][C]107.042825261938[/C][C]0.298104697617433[/C][/ROW]
[ROW][C]0.8[/C][C]108.113666233561[/C][C]0.637853191866778[/C][/ROW]
[ROW][C]0.9[/C][C]109.647056020442[/C][C]0.525894557768269[/C][/ROW]
[ROW][C]1[/C][C]111.85[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=174605&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=174605&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.1100.2675963268790.645291265927427
0.2102.3338911748280.707303072264938
0.3103.4785993392770.388821737664213
0.4104.1390480678810.388233442227606
0.5105.1483676230830.687216219171231
0.6106.3541108860490.53921434302724
0.7107.0428252619380.298104697617433
0.8108.1136662335610.637853191866778
0.9109.6470560204420.525894557768269
1111.85NA



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