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, 03 Apr 2011 13:34:02 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Apr/03/t13018375234s6my1xisjpo6vj.htm/, Retrieved Thu, 09 May 2024 19:24:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=119987, Retrieved Thu, 09 May 2024 19:24:50 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact146
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Opgave 4:Anne Bru...] [2011-04-03 13:34:02] [285e0d7ee2579754619b73935338dbc7] [Current]
Feedback Forum

Post a new message
Dataseries X:
1664,81
2397,53
2840,71
3547,29
3752,96
3714,74
4349,61
3566,34
5021,82
6423,48
7600,60
19756,21
2499,81
5198,24
7225,14
4806,03
5900,88
4951,34
6179,12
4752,15
5496,43
5835,10
12600,08
28541,72
4717,02
5702,63
9957,58
5304,78
6492,43
6630,80
7349,62
8176,62
8573,17
9690,50
15151,84
34061,01
5921,10
5814,58
12421,25
6369,77
7609,12
7224,75
8121,22
7979,25
8093,06
8476,70
17914,66
30114,41
4826,64
6470,23
9638,77
8821,17
8722,37
10209,48
11276,55
12552,22
11637,39
13606,89
21822,11
45060,69
7615,03
9849,69
14558,40
11587,33
9332,56
13082,09
16732,78
19888,61
23933,38
25391,35
36024,80
80721,71
10243,24
11266,88
21826,84
17357,33
15997,79
18601,53
26155,15
28586,52
30505,41
30821,33
46634,38
104660,67




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ www.wessa.org

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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.011915.84852847702570.348410695193
0.063369.9167866484526.959119182734
0.114338.59336494998492.595266339761
0.164976.86683833844372.379049047216
0.215485.55226176672419.391138649595
0.265986.89938349884442.114089617563
0.316515.53520634539539.067101295069
0.367118.88271079526615.069989927251
0.417743.32052856279620.141627286784
0.468392.05759098936701.332868200285
0.519158.49298356316862.685316587284
0.5610099.2561883581048.64036471365
0.6111268.08600854051290.61843453091
0.6612795.37067624711693.68593905576
0.7114929.6404193122272.51810737348
0.7617768.37904945052710.78765988872
0.8121440.94040545853274.72509939512
0.8626079.94664812933416.57705178624
0.9131627.30871235883692.9590219725
0.9651606.139409532114443.8248863934

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.01 & 1915.84852847702 & 570.348410695193 \tabularnewline
0.06 & 3369.9167866484 & 526.959119182734 \tabularnewline
0.11 & 4338.59336494998 & 492.595266339761 \tabularnewline
0.16 & 4976.86683833844 & 372.379049047216 \tabularnewline
0.21 & 5485.55226176672 & 419.391138649595 \tabularnewline
0.26 & 5986.89938349884 & 442.114089617563 \tabularnewline
0.31 & 6515.53520634539 & 539.067101295069 \tabularnewline
0.36 & 7118.88271079526 & 615.069989927251 \tabularnewline
0.41 & 7743.32052856279 & 620.141627286784 \tabularnewline
0.46 & 8392.05759098936 & 701.332868200285 \tabularnewline
0.51 & 9158.49298356316 & 862.685316587284 \tabularnewline
0.56 & 10099.256188358 & 1048.64036471365 \tabularnewline
0.61 & 11268.0860085405 & 1290.61843453091 \tabularnewline
0.66 & 12795.3706762471 & 1693.68593905576 \tabularnewline
0.71 & 14929.640419312 & 2272.51810737348 \tabularnewline
0.76 & 17768.3790494505 & 2710.78765988872 \tabularnewline
0.81 & 21440.9404054585 & 3274.72509939512 \tabularnewline
0.86 & 26079.9466481293 & 3416.57705178624 \tabularnewline
0.91 & 31627.3087123588 & 3692.9590219725 \tabularnewline
0.96 & 51606.1394095321 & 14443.8248863934 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=119987&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]1915.84852847702[/C][C]570.348410695193[/C][/ROW]
[ROW][C]0.06[/C][C]3369.9167866484[/C][C]526.959119182734[/C][/ROW]
[ROW][C]0.11[/C][C]4338.59336494998[/C][C]492.595266339761[/C][/ROW]
[ROW][C]0.16[/C][C]4976.86683833844[/C][C]372.379049047216[/C][/ROW]
[ROW][C]0.21[/C][C]5485.55226176672[/C][C]419.391138649595[/C][/ROW]
[ROW][C]0.26[/C][C]5986.89938349884[/C][C]442.114089617563[/C][/ROW]
[ROW][C]0.31[/C][C]6515.53520634539[/C][C]539.067101295069[/C][/ROW]
[ROW][C]0.36[/C][C]7118.88271079526[/C][C]615.069989927251[/C][/ROW]
[ROW][C]0.41[/C][C]7743.32052856279[/C][C]620.141627286784[/C][/ROW]
[ROW][C]0.46[/C][C]8392.05759098936[/C][C]701.332868200285[/C][/ROW]
[ROW][C]0.51[/C][C]9158.49298356316[/C][C]862.685316587284[/C][/ROW]
[ROW][C]0.56[/C][C]10099.256188358[/C][C]1048.64036471365[/C][/ROW]
[ROW][C]0.61[/C][C]11268.0860085405[/C][C]1290.61843453091[/C][/ROW]
[ROW][C]0.66[/C][C]12795.3706762471[/C][C]1693.68593905576[/C][/ROW]
[ROW][C]0.71[/C][C]14929.640419312[/C][C]2272.51810737348[/C][/ROW]
[ROW][C]0.76[/C][C]17768.3790494505[/C][C]2710.78765988872[/C][/ROW]
[ROW][C]0.81[/C][C]21440.9404054585[/C][C]3274.72509939512[/C][/ROW]
[ROW][C]0.86[/C][C]26079.9466481293[/C][C]3416.57705178624[/C][/ROW]
[ROW][C]0.91[/C][C]31627.3087123588[/C][C]3692.9590219725[/C][/ROW]
[ROW][C]0.96[/C][C]51606.1394095321[/C][C]14443.8248863934[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=119987&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119987&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.011915.84852847702570.348410695193
0.063369.9167866484526.959119182734
0.114338.59336494998492.595266339761
0.164976.86683833844372.379049047216
0.215485.55226176672419.391138649595
0.265986.89938349884442.114089617563
0.316515.53520634539539.067101295069
0.367118.88271079526615.069989927251
0.417743.32052856279620.141627286784
0.468392.05759098936701.332868200285
0.519158.49298356316862.685316587284
0.5610099.2561883581048.64036471365
0.6111268.08600854051290.61843453091
0.6612795.37067624711693.68593905576
0.7114929.6404193122272.51810737348
0.7617768.37904945052710.78765988872
0.8121440.94040545853274.72509939512
0.8626079.94664812933416.57705178624
0.9131627.30871235883692.9590219725
0.9651606.139409532114443.8248863934



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