Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_harrell_davies.wasp
Title produced by softwareHarrell-Davis Quantiles
Date of computationSun, 19 Oct 2008 11:17:58 -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/2008/Oct/19/t12244368633myp9l8564f3w5o.htm/, Retrieved Sun, 19 May 2024 15:58:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=16974, Retrieved Sun, 19 May 2024 15:58:05 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact150
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Harrell-Davis Quantiles] [Q7 95% confidence...] [2007-10-20 15:02:46] [b731da8b544846036771bbf9bf2f34ce]
-   PD  [Harrell-Davis Quantiles] [controle: compute...] [2008-10-19 17:06:05] [5e74953d94072114d25d7276793b561e]
-   P       [Harrell-Davis Quantiles] [verandering step ...] [2008-10-19 17:17:58] [5925747fb2a6bb4cfcd8015825ee5e92] [Current]
-   P         [Harrell-Davis Quantiles] [verandering step ...] [2008-10-19 17:38:26] [5e74953d94072114d25d7276793b561e]
Feedback Forum

Post a new message
Dataseries X:
110.40
96.40
101.90
106.20
81.00
94.70
101.00
109.40
102.30
90.70
96.20
96.10
106.00
103.10
102.00
104.70
86.00
92.10
106.90
112.60
101.70
92.00
97.40
97.00
105.40
102.70
98.10
104.50
87.40
89.90
109.80
111.70
98.60
96.90
95.10
97.00
112.70
102.90
97.40
111.40
87.40
96.80
114.10
110.30
103.90
101.60
94.60
95.90
104.70
102.80
98.10
113.90
80.90
95.70
113.20
105.90
108.80
102.30
99.00
100.70
115.50




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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.0181.25329680904381.11779486645604
0.01581.58301579583881.71916998992970
0.0282.01006573354722.24893406006270
0.02582.51854424450952.65031685408418
0.0383.08679671910672.90248632098292
0.03583.69125852637863.01413985255907
0.0484.3097246748113.01306443451468
0.04584.92361970972472.93596649036505
0.0585.51916199259832.81929371038251
0.05586.08755429790432.6936963961831
0.0686.62446430306392.58088039100784
0.06587.12909436170152.49249930409674
0.0787.60310768011282.43182921759067
0.07588.0496093624642.3960718287685
0.0888.47230263075412.37910337912327
0.08588.8748710009992.37389542960224
0.0989.26058547573232.37440618168912
0.09589.63210395751522.37564007114971
0.189.99141564358462.37418160585810

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.01 & 81.2532968090438 & 1.11779486645604 \tabularnewline
0.015 & 81.5830157958388 & 1.71916998992970 \tabularnewline
0.02 & 82.0100657335472 & 2.24893406006270 \tabularnewline
0.025 & 82.5185442445095 & 2.65031685408418 \tabularnewline
0.03 & 83.0867967191067 & 2.90248632098292 \tabularnewline
0.035 & 83.6912585263786 & 3.01413985255907 \tabularnewline
0.04 & 84.309724674811 & 3.01306443451468 \tabularnewline
0.045 & 84.9236197097247 & 2.93596649036505 \tabularnewline
0.05 & 85.5191619925983 & 2.81929371038251 \tabularnewline
0.055 & 86.0875542979043 & 2.6936963961831 \tabularnewline
0.06 & 86.6244643030639 & 2.58088039100784 \tabularnewline
0.065 & 87.1290943617015 & 2.49249930409674 \tabularnewline
0.07 & 87.6031076801128 & 2.43182921759067 \tabularnewline
0.075 & 88.049609362464 & 2.3960718287685 \tabularnewline
0.08 & 88.4723026307541 & 2.37910337912327 \tabularnewline
0.085 & 88.874871000999 & 2.37389542960224 \tabularnewline
0.09 & 89.2605854757323 & 2.37440618168912 \tabularnewline
0.095 & 89.6321039575152 & 2.37564007114971 \tabularnewline
0.1 & 89.9914156435846 & 2.37418160585810 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=16974&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.01[/C][C]81.2532968090438[/C][C]1.11779486645604[/C][/ROW]
[ROW][C]0.015[/C][C]81.5830157958388[/C][C]1.71916998992970[/C][/ROW]
[ROW][C]0.02[/C][C]82.0100657335472[/C][C]2.24893406006270[/C][/ROW]
[ROW][C]0.025[/C][C]82.5185442445095[/C][C]2.65031685408418[/C][/ROW]
[ROW][C]0.03[/C][C]83.0867967191067[/C][C]2.90248632098292[/C][/ROW]
[ROW][C]0.035[/C][C]83.6912585263786[/C][C]3.01413985255907[/C][/ROW]
[ROW][C]0.04[/C][C]84.309724674811[/C][C]3.01306443451468[/C][/ROW]
[ROW][C]0.045[/C][C]84.9236197097247[/C][C]2.93596649036505[/C][/ROW]
[ROW][C]0.05[/C][C]85.5191619925983[/C][C]2.81929371038251[/C][/ROW]
[ROW][C]0.055[/C][C]86.0875542979043[/C][C]2.6936963961831[/C][/ROW]
[ROW][C]0.06[/C][C]86.6244643030639[/C][C]2.58088039100784[/C][/ROW]
[ROW][C]0.065[/C][C]87.1290943617015[/C][C]2.49249930409674[/C][/ROW]
[ROW][C]0.07[/C][C]87.6031076801128[/C][C]2.43182921759067[/C][/ROW]
[ROW][C]0.075[/C][C]88.049609362464[/C][C]2.3960718287685[/C][/ROW]
[ROW][C]0.08[/C][C]88.4723026307541[/C][C]2.37910337912327[/C][/ROW]
[ROW][C]0.085[/C][C]88.874871000999[/C][C]2.37389542960224[/C][/ROW]
[ROW][C]0.09[/C][C]89.2605854757323[/C][C]2.37440618168912[/C][/ROW]
[ROW][C]0.095[/C][C]89.6321039575152[/C][C]2.37564007114971[/C][/ROW]
[ROW][C]0.1[/C][C]89.9914156435846[/C][C]2.37418160585810[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=16974&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=16974&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.0181.25329680904381.11779486645604
0.01581.58301579583881.71916998992970
0.0282.01006573354722.24893406006270
0.02582.51854424450952.65031685408418
0.0383.08679671910672.90248632098292
0.03583.69125852637863.01413985255907
0.0484.3097246748113.01306443451468
0.04584.92361970972472.93596649036505
0.0585.51916199259832.81929371038251
0.05586.08755429790432.6936963961831
0.0686.62446430306392.58088039100784
0.06587.12909436170152.49249930409674
0.0787.60310768011282.43182921759067
0.07588.0496093624642.3960718287685
0.0888.47230263075412.37910337912327
0.08588.8748710009992.37389542960224
0.0989.26058547573232.37440618168912
0.09589.63210395751522.37564007114971
0.189.99141564358462.37418160585810



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