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, 08 Mar 2010 06:58: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/Mar/08/t12680567626vj7ardnn85ep9o.htm/, Retrieved Fri, 29 Mar 2024 14:03:21 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74135, Retrieved Fri, 29 Mar 2024 14:03:21 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact177
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Iko - Paper - Ish...] [2010-03-08 13:58:19] [032b0bef6ff10258e637998f9273e57a] [Current]
Feedback Forum

Post a new message
Dataseries X:
121,67
121,65
121,61
121,5
121,41
121,41
121,4
121,38
121,34
121,19
120,96
120,96
120,96
120,9
120,86
120,73
120,53
120,53
120,53
120,52
120,51
120,43
120,29
120,27
120,27
120,24
120,21
120,06
119,86
119,85
119,85
119,83
119,71
119,57
119,2
119,13
119,13
119,09
118,9
118,54
118,12
118,11
118,1
118,08
117,91
117,63
117,28
117,2
117,17
117,14
116,96
116,34
115,99
115,99
115,97
115,92
115,63
115,31
115,13
115,09
115,07
115,01
114,64
113,86
113,34
113,33
113,32
113,26
113,2
112,61
112,28
112,16




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=74135&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=74135&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74135&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.1113.7119305560190.59604831068231
0.2115.3996138432790.543949625575913
0.3116.7094984253610.685218850333238
0.4117.969942600330.622155319808752
0.5119.0914659208440.564416943833685
0.6119.9095441449810.330281276165909
0.7120.3871280862570.191660725931396
0.8120.8066756620670.211026512764732
0.9121.3227838084650.145400610483098

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 113.711930556019 & 0.59604831068231 \tabularnewline
0.2 & 115.399613843279 & 0.543949625575913 \tabularnewline
0.3 & 116.709498425361 & 0.685218850333238 \tabularnewline
0.4 & 117.96994260033 & 0.622155319808752 \tabularnewline
0.5 & 119.091465920844 & 0.564416943833685 \tabularnewline
0.6 & 119.909544144981 & 0.330281276165909 \tabularnewline
0.7 & 120.387128086257 & 0.191660725931396 \tabularnewline
0.8 & 120.806675662067 & 0.211026512764732 \tabularnewline
0.9 & 121.322783808465 & 0.145400610483098 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74135&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]113.711930556019[/C][C]0.59604831068231[/C][/ROW]
[ROW][C]0.2[/C][C]115.399613843279[/C][C]0.543949625575913[/C][/ROW]
[ROW][C]0.3[/C][C]116.709498425361[/C][C]0.685218850333238[/C][/ROW]
[ROW][C]0.4[/C][C]117.96994260033[/C][C]0.622155319808752[/C][/ROW]
[ROW][C]0.5[/C][C]119.091465920844[/C][C]0.564416943833685[/C][/ROW]
[ROW][C]0.6[/C][C]119.909544144981[/C][C]0.330281276165909[/C][/ROW]
[ROW][C]0.7[/C][C]120.387128086257[/C][C]0.191660725931396[/C][/ROW]
[ROW][C]0.8[/C][C]120.806675662067[/C][C]0.211026512764732[/C][/ROW]
[ROW][C]0.9[/C][C]121.322783808465[/C][C]0.145400610483098[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74135&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74135&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.1113.7119305560190.59604831068231
0.2115.3996138432790.543949625575913
0.3116.7094984253610.685218850333238
0.4117.969942600330.622155319808752
0.5119.0914659208440.564416943833685
0.6119.9095441449810.330281276165909
0.7120.3871280862570.191660725931396
0.8120.8066756620670.211026512764732
0.9121.3227838084650.145400610483098



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