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, 09 Mar 2009 02:31:33 -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/2009/Mar/09/t1236587520wlv0d98d7k4nzw0.htm/, Retrieved Sun, 28 Apr 2024 21:32:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=38738, Retrieved Sun, 28 Apr 2024 21:32:42 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact174
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [maximumprijs stud...] [2009-02-23 14:22:35] [02715571966c5d3fa10a0b3d6198f883]
-       [Notched Boxplots] [studio 100: Birgi...] [2009-02-23 14:31:51] [02715571966c5d3fa10a0b3d6198f883]
- RMPD      [Harrell-Davis Quantiles] [stof voor jurk, d...] [2009-03-09 08:31:33] [d1f918e423e17c77ffe66851ac8b2470] [Current]
Feedback Forum

Post a new message
Dataseries X:
22,18
22,28
22,25
22,06
22,13
22,06
22,06
22,05
22,05
22,03
22,06
22,01
22,01
21,99
22
22
21,93
21,92
21,92
21,85
21,84
21,75
21,71
21,6
21,6
21,61
21,6
21,57
21,54
21,54
21,54
21,54
21,54
21,54
21,54
21,54
21,54
21,54
21,53
21,48
21,44
21,44
21,44
21,43
21,42
21,41
21,23
21,22
21,22
21,22
21,21
21,19
21,19
21,19
21,19
21,19
21,18
21,1
20,96
20,95
20,95
20,95
20,92
20,9
20,86
20,86
20,86
20,86
20,85
20,84
20,8
20,78
20,78
20,77
20,75
20,75
20,74
20,74
20,73
20,73




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=38738&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.120.78833985726230.0333633497776828
0.220.90230837908830.0610516853498429
0.321.10601150553140.101488051343417
0.421.27850709324420.0956417950026897
0.521.46168355770350.0745331031081992
0.621.54645490490120.0285288278121823
0.721.67952719375650.114478775690388
0.821.93752793115700.0842101250906778
0.922.05101633921930.0210234655717784

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 20.7883398572623 & 0.0333633497776828 \tabularnewline
0.2 & 20.9023083790883 & 0.0610516853498429 \tabularnewline
0.3 & 21.1060115055314 & 0.101488051343417 \tabularnewline
0.4 & 21.2785070932442 & 0.0956417950026897 \tabularnewline
0.5 & 21.4616835577035 & 0.0745331031081992 \tabularnewline
0.6 & 21.5464549049012 & 0.0285288278121823 \tabularnewline
0.7 & 21.6795271937565 & 0.114478775690388 \tabularnewline
0.8 & 21.9375279311570 & 0.0842101250906778 \tabularnewline
0.9 & 22.0510163392193 & 0.0210234655717784 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=38738&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]20.7883398572623[/C][C]0.0333633497776828[/C][/ROW]
[ROW][C]0.2[/C][C]20.9023083790883[/C][C]0.0610516853498429[/C][/ROW]
[ROW][C]0.3[/C][C]21.1060115055314[/C][C]0.101488051343417[/C][/ROW]
[ROW][C]0.4[/C][C]21.2785070932442[/C][C]0.0956417950026897[/C][/ROW]
[ROW][C]0.5[/C][C]21.4616835577035[/C][C]0.0745331031081992[/C][/ROW]
[ROW][C]0.6[/C][C]21.5464549049012[/C][C]0.0285288278121823[/C][/ROW]
[ROW][C]0.7[/C][C]21.6795271937565[/C][C]0.114478775690388[/C][/ROW]
[ROW][C]0.8[/C][C]21.9375279311570[/C][C]0.0842101250906778[/C][/ROW]
[ROW][C]0.9[/C][C]22.0510163392193[/C][C]0.0210234655717784[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=38738&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=38738&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.120.78833985726230.0333633497776828
0.220.90230837908830.0610516853498429
0.321.10601150553140.101488051343417
0.421.27850709324420.0956417950026897
0.521.46168355770350.0745331031081992
0.621.54645490490120.0285288278121823
0.721.67952719375650.114478775690388
0.821.93752793115700.0842101250906778
0.922.05101633921930.0210234655717784



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