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, 11 Oct 2010 14:59:50 +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/2010/Oct/11/t1286809188oljtuocmm0z5ega.htm/, Retrieved Wed, 28 Sep 2022 09:21:28 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=82534, Retrieved Wed, 28 Sep 2022 09:21:28 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact84
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram] [] [2010-02-22 20:36:32] [2fbaf5ccc70c33c9f381ff70d4cbb0a5]
- RMP   [Notched Boxplots] [] [2010-03-01 18:13:27] [2fbaf5ccc70c33c9f381ff70d4cbb0a5]
- RMPD      [Harrell-Davis Quantiles] [Opgave 4; Oefenin...] [2010-10-11 14:59:50] [516d1a4ad1f0b8513272cbee80fe4619] [Current]
Feedback Forum

Post a new message
Dataseries X:
13.81
13.9
13.91
13.94
13.96
14.01
14.01
14.06
14.09
14.13
14.12
14.13
14.14
14.16
14.21
14.26
14.29
14.32
14.33
14.39
14.48
14.44
14.46
14.48
14.53
14.58
14.62
14.62
14.61
14.65
14.68
14.7
14.78
14.84
14.89
14.89
15.13
15.25
15.33
15.36
15.4
15.4
15.41
15.47
15.54
15.55
15.59
15.65
15.75
15.86
15.89
15.94
15.93
15.95
15.99
15.99
16.06
16.08
16.07
16.11
16.15
16.18
16.3
16.42
16.49
16.5
16.58
16.64
16.66
16.81
16.91
16.92
16.95
17.11
17.16
17.16
17.27
17.34
17.39
17.43
17.45
17.5
17.56
17.65




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=82534&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=82534&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=82534&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Harrell-Davis Quantiles
quantilesvaluestandard error
0.114.07293497198170.0604684812338474
0.214.29443334808940.109605941324352
0.314.55395715765360.11665917290905
0.414.9049757695370.251856553671218
0.515.410332265390.223794331238280
0.615.81846767814620.184170140005809
0.716.14289439804020.166553098555423
0.816.63224980084970.22912037173999
0.917.20041859210410.161232171644663

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 14.0729349719817 & 0.0604684812338474 \tabularnewline
0.2 & 14.2944333480894 & 0.109605941324352 \tabularnewline
0.3 & 14.5539571576536 & 0.11665917290905 \tabularnewline
0.4 & 14.904975769537 & 0.251856553671218 \tabularnewline
0.5 & 15.41033226539 & 0.223794331238280 \tabularnewline
0.6 & 15.8184676781462 & 0.184170140005809 \tabularnewline
0.7 & 16.1428943980402 & 0.166553098555423 \tabularnewline
0.8 & 16.6322498008497 & 0.22912037173999 \tabularnewline
0.9 & 17.2004185921041 & 0.161232171644663 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=82534&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]14.0729349719817[/C][C]0.0604684812338474[/C][/ROW]
[ROW][C]0.2[/C][C]14.2944333480894[/C][C]0.109605941324352[/C][/ROW]
[ROW][C]0.3[/C][C]14.5539571576536[/C][C]0.11665917290905[/C][/ROW]
[ROW][C]0.4[/C][C]14.904975769537[/C][C]0.251856553671218[/C][/ROW]
[ROW][C]0.5[/C][C]15.41033226539[/C][C]0.223794331238280[/C][/ROW]
[ROW][C]0.6[/C][C]15.8184676781462[/C][C]0.184170140005809[/C][/ROW]
[ROW][C]0.7[/C][C]16.1428943980402[/C][C]0.166553098555423[/C][/ROW]
[ROW][C]0.8[/C][C]16.6322498008497[/C][C]0.22912037173999[/C][/ROW]
[ROW][C]0.9[/C][C]17.2004185921041[/C][C]0.161232171644663[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=82534&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=82534&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.114.07293497198170.0604684812338474
0.214.29443334808940.109605941324352
0.314.55395715765360.11665917290905
0.414.9049757695370.251856553671218
0.515.410332265390.223794331238280
0.615.81846767814620.184170140005809
0.716.14289439804020.166553098555423
0.816.63224980084970.22912037173999
0.917.20041859210410.161232171644663



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