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, 27 Jan 2010 07:42:19 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Jan/27/t12646034929p4plbnxmojbwbq.htm/, Retrieved Mon, 06 May 2024 09:07:31 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=72693, Retrieved Mon, 06 May 2024 09:07:31 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact205
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [Harrel-Davis deci...] [2008-10-13 18:07:59] [e4a15d75e135371934c77b6a0dd48476]
-  M D    [Harrell-Davis Quantiles] [Harrel-davies dec...] [2010-01-27 14:42:19] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
176.9
177.3
177.3
177.5
177.6
177.3
177.8
179.6
179.7
179.8
179.1
179.1
179.3
179.3
179.6
179.8
180.2
180.1
179.9
179.9
179.2
179.7
179.9
180.2
181.1
181.3
181.3
181.4
181.3
181.4
181.5
181.7
181.9
182.0
182.1
182.1
187.2
188.1
188.0
188.2
188.6
188.5
188.6
188.5
189.2
189.3
189.4
189.4
189.4
189.6
189.7
189.7
189.8
190.1
190.0
190.0
190.2
190.3
190.3
190.2
190.6
190.5
190.8
190.8
190.8
191.0
191.3
191.3
191.2
191.2
191.4
191.5
194.1
193.9
193.9
193.7
194.8
194.8
194.8
195.3
195.4
196.1
196.1
196.0
197.8
198.5
198.9
198.5
199.2
199.2
199.3
199.3
200.5
201.4
201.6
201.4
204.9
206.2
207.4
209.0
210.1
210.3
213.8
213.8
213.6
216.5
216.4
216.6
220.9
220.3
220.3
220.4
221.2
221.1
221.8
221.7




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1179.3260493629120.353896411506129
0.2180.5668309745500.667198940024439
0.3184.2650490461732.70925608918962
0.4189.0470926328810.851671324686174
0.5190.3095465994310.4710708073862
0.6192.1451497583981.35988868870357
0.7196.0892850715881.76787686973961
0.8201.6318015836232.93749019195174
0.9214.3993228773773.37462290818724

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 179.326049362912 & 0.353896411506129 \tabularnewline
0.2 & 180.566830974550 & 0.667198940024439 \tabularnewline
0.3 & 184.265049046173 & 2.70925608918962 \tabularnewline
0.4 & 189.047092632881 & 0.851671324686174 \tabularnewline
0.5 & 190.309546599431 & 0.4710708073862 \tabularnewline
0.6 & 192.145149758398 & 1.35988868870357 \tabularnewline
0.7 & 196.089285071588 & 1.76787686973961 \tabularnewline
0.8 & 201.631801583623 & 2.93749019195174 \tabularnewline
0.9 & 214.399322877377 & 3.37462290818724 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=72693&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]179.326049362912[/C][C]0.353896411506129[/C][/ROW]
[ROW][C]0.2[/C][C]180.566830974550[/C][C]0.667198940024439[/C][/ROW]
[ROW][C]0.3[/C][C]184.265049046173[/C][C]2.70925608918962[/C][/ROW]
[ROW][C]0.4[/C][C]189.047092632881[/C][C]0.851671324686174[/C][/ROW]
[ROW][C]0.5[/C][C]190.309546599431[/C][C]0.4710708073862[/C][/ROW]
[ROW][C]0.6[/C][C]192.145149758398[/C][C]1.35988868870357[/C][/ROW]
[ROW][C]0.7[/C][C]196.089285071588[/C][C]1.76787686973961[/C][/ROW]
[ROW][C]0.8[/C][C]201.631801583623[/C][C]2.93749019195174[/C][/ROW]
[ROW][C]0.9[/C][C]214.399322877377[/C][C]3.37462290818724[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=72693&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=72693&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.1179.3260493629120.353896411506129
0.2180.5668309745500.667198940024439
0.3184.2650490461732.70925608918962
0.4189.0470926328810.851671324686174
0.5190.3095465994310.4710708073862
0.6192.1451497583981.35988868870357
0.7196.0892850715881.76787686973961
0.8201.6318015836232.93749019195174
0.9214.3993228773773.37462290818724



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