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, 07 Mar 2011 11:31:16 +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/07/t12994973210hmqv15ugbmt5ub.htm/, Retrieved Sun, 12 May 2024 22:02:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=119719, Retrieved Sun, 12 May 2024 22:02:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact209
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Isabelle Regnard,...] [2011-03-07 11:31:16] [ed119c57c1c7f005ddf1bbf80b03ea1e] [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'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=119719&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=119719&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119719&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'RServer@AstonUniversity' @ vre.aston.ac.uk







Harrell-Davis Quantiles
quantilesvaluestandard error
0.196.1254700954241.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.125470095424 & 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=119719&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.125470095424[/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=119719&T=1

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