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, 16 Mar 2009 01:39:25 -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/16/t1237189258o1dts1dgdbp9vmz.htm/, Retrieved Thu, 28 Mar 2024 18:17:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=39109, Retrieved Thu, 28 Mar 2024 18:17:12 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact205
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Harrell-Davis Dec...] [2009-03-16 07:39:25] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
30,06
30,46
30,46
30,49
30,49
30,5
30,5
30,5
30,51
30,51
30,61
30,88
30,95
31,09
31,28
31,31
31,32
31,34
31,34
31,34
31,34
31,36
31,36
31,36
31,72
32,07
32,13
32,19
32,26
32,27
32,28
32,28
32,28
32,29
32,61
32,68
32,69
32,74
32,86
32,86
32,9
32,95
32,95
32,96
32,99
33
33,06
33,42
33,48
33,5
33,51
33,52
33,55
33,56
33,56
33,56
33,6
33,61
33,62
33,72
33,83
33,96
34,06
34,11
34,11
34,21
34,19
34,17
34,12
34,15
34,15
34,15




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39109&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.130.54359401133860.0944961980327763
0.231.0946926065330.243398809890857
0.331.51903130850980.267388522126787
0.432.13991369801720.299942086197432
0.532.6205111456520.244752986512383
0.633.0149862791380.209890930343862
0.733.42613430699860.173280911337372
0.833.68775939185610.142498865531727
0.934.08417991351050.0900008330924437

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 30.5435940113386 & 0.0944961980327763 \tabularnewline
0.2 & 31.094692606533 & 0.243398809890857 \tabularnewline
0.3 & 31.5190313085098 & 0.267388522126787 \tabularnewline
0.4 & 32.1399136980172 & 0.299942086197432 \tabularnewline
0.5 & 32.620511145652 & 0.244752986512383 \tabularnewline
0.6 & 33.014986279138 & 0.209890930343862 \tabularnewline
0.7 & 33.4261343069986 & 0.173280911337372 \tabularnewline
0.8 & 33.6877593918561 & 0.142498865531727 \tabularnewline
0.9 & 34.0841799135105 & 0.0900008330924437 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=39109&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]30.5435940113386[/C][C]0.0944961980327763[/C][/ROW]
[ROW][C]0.2[/C][C]31.094692606533[/C][C]0.243398809890857[/C][/ROW]
[ROW][C]0.3[/C][C]31.5190313085098[/C][C]0.267388522126787[/C][/ROW]
[ROW][C]0.4[/C][C]32.1399136980172[/C][C]0.299942086197432[/C][/ROW]
[ROW][C]0.5[/C][C]32.620511145652[/C][C]0.244752986512383[/C][/ROW]
[ROW][C]0.6[/C][C]33.014986279138[/C][C]0.209890930343862[/C][/ROW]
[ROW][C]0.7[/C][C]33.4261343069986[/C][C]0.173280911337372[/C][/ROW]
[ROW][C]0.8[/C][C]33.6877593918561[/C][C]0.142498865531727[/C][/ROW]
[ROW][C]0.9[/C][C]34.0841799135105[/C][C]0.0900008330924437[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=39109&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39109&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.130.54359401133860.0944961980327763
0.231.0946926065330.243398809890857
0.331.51903130850980.267388522126787
0.432.13991369801720.299942086197432
0.532.6205111456520.244752986512383
0.633.0149862791380.209890930343862
0.733.42613430699860.173280911337372
0.833.68775939185610.142498865531727
0.934.08417991351050.0900008330924437



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