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 computationSun, 22 Mar 2009 05:11:49 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Mar/22/t1237720376gcm3hz2n9f1lgdr.htm/, Retrieved Thu, 28 Mar 2024 13:54:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=39154, Retrieved Thu, 28 Mar 2024 13:54:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact226
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Harrel Davis - fo...] [2009-03-22 11:11:49] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
158,8
157,63
157,8
156,77
156,57
157,33
157,26
157,49
157,68
158,23
158,04
158,17
158,18
159,71
158,7
158,5
158,15
157,69
157,69
158,2
159,25
158,71
158,75
158,75
158,03
157,88
157,47
157,06
156,8
156,76
156,75
156,66
155,92
156,1
156,43
157,39
157,39
157,55
157,75
156,79
156,24
156,8
156,8
156,2
155,25
154,81
154,94
154,97
154,93
149,62
148,6
146,27
145,87
144,23
144,23
142,22
138,85
138,54
137,64
137,38
137,38
136,1
133,58
132,72
130,59
129,23
129,22
126,62
125,83
125,54
125,55
125,53




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 5 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=39154&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]5 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=39154&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39154&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 time5 seconds
R Server'George Udny Yule' @ 72.249.76.132







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1130.6976116767333.08004574286893
0.2139.4197154346963.64755734424845
0.3148.8710286855324.76442794570569
0.4155.2063282590851.55684911945104
0.5156.6207815965840.322279529924294
0.6157.1328038042590.284585138033366
0.7157.5872630164950.184538455578656
0.8157.9797932967450.187343697315207
0.9158.5089004631720.22264077165459

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 130.697611676733 & 3.08004574286893 \tabularnewline
0.2 & 139.419715434696 & 3.64755734424845 \tabularnewline
0.3 & 148.871028685532 & 4.76442794570569 \tabularnewline
0.4 & 155.206328259085 & 1.55684911945104 \tabularnewline
0.5 & 156.620781596584 & 0.322279529924294 \tabularnewline
0.6 & 157.132803804259 & 0.284585138033366 \tabularnewline
0.7 & 157.587263016495 & 0.184538455578656 \tabularnewline
0.8 & 157.979793296745 & 0.187343697315207 \tabularnewline
0.9 & 158.508900463172 & 0.22264077165459 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=39154&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]130.697611676733[/C][C]3.08004574286893[/C][/ROW]
[ROW][C]0.2[/C][C]139.419715434696[/C][C]3.64755734424845[/C][/ROW]
[ROW][C]0.3[/C][C]148.871028685532[/C][C]4.76442794570569[/C][/ROW]
[ROW][C]0.4[/C][C]155.206328259085[/C][C]1.55684911945104[/C][/ROW]
[ROW][C]0.5[/C][C]156.620781596584[/C][C]0.322279529924294[/C][/ROW]
[ROW][C]0.6[/C][C]157.132803804259[/C][C]0.284585138033366[/C][/ROW]
[ROW][C]0.7[/C][C]157.587263016495[/C][C]0.184538455578656[/C][/ROW]
[ROW][C]0.8[/C][C]157.979793296745[/C][C]0.187343697315207[/C][/ROW]
[ROW][C]0.9[/C][C]158.508900463172[/C][C]0.22264077165459[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=39154&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39154&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.1130.6976116767333.08004574286893
0.2139.4197154346963.64755734424845
0.3148.8710286855324.76442794570569
0.4155.2063282590851.55684911945104
0.5156.6207815965840.322279529924294
0.6157.1328038042590.284585138033366
0.7157.5872630164950.184538455578656
0.8157.9797932967450.187343697315207
0.9158.5089004631720.22264077165459



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