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 computationThu, 24 Nov 2011 05:08:00 -0500
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/Nov/24/t1322129419g8zr7yj3sciuve2.htm/, Retrieved Sat, 20 Apr 2024 04:45:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=146606, Retrieved Sat, 20 Apr 2024 04:45:25 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDG201142
Estimated Impact133
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [Gemiddelde prijs ...] [2011-10-12 19:17:25] [d700a6813b2ef07b7398fe84f8eae4b7]
- R PD    [Harrell-Davis Quantiles] [Evolutie gemiddel...] [2011-11-24 10:08:00] [5ea1e8d287dde6ce281879d62f3b0f55] [Current]
Feedback Forum

Post a new message
Dataseries X:
10.93
10.92
10.89
10.94
10.98
10.99
11.02
11.04
11.05
11.05
11.02
10.91
11.01
11.02
11.03
11.04
11.06
11.08
11.06
11.06
11.09
11.07
11.06
11.08
11.08
11.08
11.11
11.09
11.08
11.05
11.07
11.06
11.06
11.07
11.02
11.01
11.04
11.02
11.03
11.17
11.19
11.15
11.13
11.06
11.01
11.03
10.99
10.94
11
11.06
11.06
11.05
11.04
11.15
11.2
11.16
11.3
11.23
11.25
11.25
11.12
11.14
11.17
11.25
11.27
11.34
11.39
11.44
11.46
11.49
11.51
11.48
11.49
11.52
11.56
11.58
11.58
11.58
11.6
11.62
11.62
11.64
11.67
11.66
11.72
11.82
11.9
12.04
12.08
12.15
12.19
12.22
12.23
12.25
12.26
12.27
12.34
12.38
12.42
12.43
12.48
12.5
12.5
12.49
12.46
12.45
12.45
12.38
12.42
12.37
12.35
12.35
12.36
12.32
12.32
12.34
12.35
12.34
12.31
12.24




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

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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.111.00829067174190.0118536403162582
0.211.04190998924990.010134518985461
0.311.06470357065820.00892171521473626
0.411.11255400343680.0359914183328701
0.511.24761509643550.088802524638517
0.611.4957285079060.098754846157067
0.711.80961596355150.203564149957972
0.812.25908663697570.0801937960013995
0.912.38149458656090.0286204771908309

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 11.0082906717419 & 0.0118536403162582 \tabularnewline
0.2 & 11.0419099892499 & 0.010134518985461 \tabularnewline
0.3 & 11.0647035706582 & 0.00892171521473626 \tabularnewline
0.4 & 11.1125540034368 & 0.0359914183328701 \tabularnewline
0.5 & 11.2476150964355 & 0.088802524638517 \tabularnewline
0.6 & 11.495728507906 & 0.098754846157067 \tabularnewline
0.7 & 11.8096159635515 & 0.203564149957972 \tabularnewline
0.8 & 12.2590866369757 & 0.0801937960013995 \tabularnewline
0.9 & 12.3814945865609 & 0.0286204771908309 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=146606&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]11.0082906717419[/C][C]0.0118536403162582[/C][/ROW]
[ROW][C]0.2[/C][C]11.0419099892499[/C][C]0.010134518985461[/C][/ROW]
[ROW][C]0.3[/C][C]11.0647035706582[/C][C]0.00892171521473626[/C][/ROW]
[ROW][C]0.4[/C][C]11.1125540034368[/C][C]0.0359914183328701[/C][/ROW]
[ROW][C]0.5[/C][C]11.2476150964355[/C][C]0.088802524638517[/C][/ROW]
[ROW][C]0.6[/C][C]11.495728507906[/C][C]0.098754846157067[/C][/ROW]
[ROW][C]0.7[/C][C]11.8096159635515[/C][C]0.203564149957972[/C][/ROW]
[ROW][C]0.8[/C][C]12.2590866369757[/C][C]0.0801937960013995[/C][/ROW]
[ROW][C]0.9[/C][C]12.3814945865609[/C][C]0.0286204771908309[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=146606&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=146606&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.111.00829067174190.0118536403162582
0.211.04190998924990.010134518985461
0.311.06470357065820.00892171521473626
0.411.11255400343680.0359914183328701
0.511.24761509643550.088802524638517
0.611.4957285079060.098754846157067
0.711.80961596355150.203564149957972
0.812.25908663697570.0801937960013995
0.912.38149458656090.0286204771908309



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