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, 26 May 2013 23:12:57 -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/2013/May/26/t1369624429co57mrlgughmla2.htm/, Retrieved Mon, 29 Apr 2024 15:25:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=210730, Retrieved Mon, 29 Apr 2024 15:25:16 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact100
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [] [2013-02-26 16:42:46] [29a5408ffd313e16fe1b983b4342b9cb]
- R PD    [Harrell-Davis Quantiles] [] [2013-05-27 03:12:57] [d4c272cfec48e7f4e5af64cbab0d9d0c] [Current]
Feedback Forum

Post a new message
Dataseries X:
108.56
108.71
116.73
118.88
119.6
119.62
119.64
119.74
119.74
119.74
119.9
119.9
119.9
119.9
119.9
121.02
122.95
123.62
123.67
123.81
123.83
123.83
123.83
123.83
123.89
123.89
124.44
125.51
125.89
126.12
126.25
126.25
126.3
126.31
126.38
125.51
126.82
126.86
126.86
127.28
128.72
128.77
128.84
128.88
128.88
128.88
128.88
128.88
128.89
128.9
128.92
129.05
129.83
130.54
130.82
130.91
131.04
131.07
131.15
131.2
131.2
131.42
131.45
131.7
134.24
135.17
135.51
135.65
136.02
136.07
136.13
136.07




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=210730&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 time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1119.5833373688220.276015334296525
0.2121.0900518828671.39266651760315
0.3123.7292030004150.783091104181384
0.4125.3491090969890.923388927679361
0.5126.8611636406020.858127460372171
0.6128.4390236718830.671446590672955
0.7129.4783455916610.698360073796032
0.8130.9946749402460.545943986333914
0.9133.9455229576171.65264847930842

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 119.583337368822 & 0.276015334296525 \tabularnewline
0.2 & 121.090051882867 & 1.39266651760315 \tabularnewline
0.3 & 123.729203000415 & 0.783091104181384 \tabularnewline
0.4 & 125.349109096989 & 0.923388927679361 \tabularnewline
0.5 & 126.861163640602 & 0.858127460372171 \tabularnewline
0.6 & 128.439023671883 & 0.671446590672955 \tabularnewline
0.7 & 129.478345591661 & 0.698360073796032 \tabularnewline
0.8 & 130.994674940246 & 0.545943986333914 \tabularnewline
0.9 & 133.945522957617 & 1.65264847930842 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=210730&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]119.583337368822[/C][C]0.276015334296525[/C][/ROW]
[ROW][C]0.2[/C][C]121.090051882867[/C][C]1.39266651760315[/C][/ROW]
[ROW][C]0.3[/C][C]123.729203000415[/C][C]0.783091104181384[/C][/ROW]
[ROW][C]0.4[/C][C]125.349109096989[/C][C]0.923388927679361[/C][/ROW]
[ROW][C]0.5[/C][C]126.861163640602[/C][C]0.858127460372171[/C][/ROW]
[ROW][C]0.6[/C][C]128.439023671883[/C][C]0.671446590672955[/C][/ROW]
[ROW][C]0.7[/C][C]129.478345591661[/C][C]0.698360073796032[/C][/ROW]
[ROW][C]0.8[/C][C]130.994674940246[/C][C]0.545943986333914[/C][/ROW]
[ROW][C]0.9[/C][C]133.945522957617[/C][C]1.65264847930842[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=210730&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=210730&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.1119.5833373688220.276015334296525
0.2121.0900518828671.39266651760315
0.3123.7292030004150.783091104181384
0.4125.3491090969890.923388927679361
0.5126.8611636406020.858127460372171
0.6128.4390236718830.671446590672955
0.7129.4783455916610.698360073796032
0.8130.9946749402460.545943986333914
0.9133.9455229576171.65264847930842



Parameters (Session):
par1 = 0.10 ; par2 = 0.90 ; par3 = 0.10 ;
Parameters (R input):
par1 = 0.10 ; par2 = 0.90 ; par3 = 0.10 ;
R code (references can be found in the software module):
par3 <- '0.01'
par2 <- '0.90'
par1 <- '0.10'
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')