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 computationWed, 30 Mar 2011 09:55:55 +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/Mar/30/t1301479069ffgp960gkzbzq9m.htm/, Retrieved Fri, 10 May 2024 05:25:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=119804, Retrieved Fri, 10 May 2024 05:25:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W41
Estimated Impact259
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [marina cabraja op...] [2011-03-30 09:55:55] [cf9fb0209173b95c2c219e792a280e54] [Current]
Feedback Forum

Post a new message
Dataseries X:
106,42
106,22
106,32
105,81
105,92
107,54
107,34
107,24
107,74
105,71
105,41
106,22
106,32
106,12
106,22
105,92
105,71
105,71
105,92
105,71
105,41
104,49
101,35
99,72
99,01
97,89
95,86
94,95
95,35
95,15
95,46
95,56
95,05
94,64
93,63
93,12
93,53
97,18
96,27
95,15
97,08
101,95
103,07
103,68
102,87
102,56
103,38
103,27
102,89
102,69
101,54
102,9
101,53
101,96
101,99
101,11
101,75
101,71
104,11
103,57
103,32
103,64
103,68
103,79
103,01
101,54
101,9
103,68
104,62
104,11
105,04
104,83
105,05
104,68
107,32
109,9
109,77
110,69
110,54
110,89
110,95
109,73
110,85
110,39
110,58
110,4
111,07
110,86
111,38
111,44
110,36
110,06
108,34
107,94
107,39
107,1
107,61
107,74
106,9
106,71
106,6
108,21
110,54
110,91
109,51
110,27
111,39
112,13
111,64




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119804&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.196.12547009542411.08145283350385
0.2101.1063459386491.01868107178267
0.3102.7878166498350.518159624773256
0.4103.9344109792870.558124588663848
0.5105.310555505370.549796791494779
0.6106.2326304581630.377143830430049
0.7107.3449671235490.551456527929436
0.8109.4244780183130.876092262730113
0.9110.7372135529550.193874212850467

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 96.1254700954241 & 1.08145283350385 \tabularnewline
0.2 & 101.106345938649 & 1.01868107178267 \tabularnewline
0.3 & 102.787816649835 & 0.518159624773256 \tabularnewline
0.4 & 103.934410979287 & 0.558124588663848 \tabularnewline
0.5 & 105.31055550537 & 0.549796791494779 \tabularnewline
0.6 & 106.232630458163 & 0.377143830430049 \tabularnewline
0.7 & 107.344967123549 & 0.551456527929436 \tabularnewline
0.8 & 109.424478018313 & 0.876092262730113 \tabularnewline
0.9 & 110.737213552955 & 0.193874212850467 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=119804&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]96.1254700954241[/C][C]1.08145283350385[/C][/ROW]
[ROW][C]0.2[/C][C]101.106345938649[/C][C]1.01868107178267[/C][/ROW]
[ROW][C]0.3[/C][C]102.787816649835[/C][C]0.518159624773256[/C][/ROW]
[ROW][C]0.4[/C][C]103.934410979287[/C][C]0.558124588663848[/C][/ROW]
[ROW][C]0.5[/C][C]105.31055550537[/C][C]0.549796791494779[/C][/ROW]
[ROW][C]0.6[/C][C]106.232630458163[/C][C]0.377143830430049[/C][/ROW]
[ROW][C]0.7[/C][C]107.344967123549[/C][C]0.551456527929436[/C][/ROW]
[ROW][C]0.8[/C][C]109.424478018313[/C][C]0.876092262730113[/C][/ROW]
[ROW][C]0.9[/C][C]110.737213552955[/C][C]0.193874212850467[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=119804&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119804&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.196.12547009542411.08145283350385
0.2101.1063459386491.01868107178267
0.3102.7878166498350.518159624773256
0.4103.9344109792870.558124588663848
0.5105.310555505370.549796791494779
0.6106.2326304581630.377143830430049
0.7107.3449671235490.551456527929436
0.8109.4244780183130.876092262730113
0.9110.7372135529550.193874212850467



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