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 computationFri, 07 Oct 2011 10:02:41 -0400
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/Oct/07/t1317996276bn7gxq9epyevsbm.htm/, Retrieved Thu, 31 Oct 2024 23:27:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=127197, Retrieved Thu, 31 Oct 2024 23:27:57 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDG201142
Estimated Impact104
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [H-D decielen koffie] [2011-10-07 14:02:41] [25fc5ac2507862d3d3648773d283d006] [Current]
Feedback Forum

Post a new message
Dataseries X:
7,08
7,08
7,09
7,07
7,06
6,99
6,99
6,99
6,98
6,96
6,95
6,91
6,91
6,87
6,91
6,89
6,88
6,9
6,91
6,85
6,86
6,82
6,8
6,83
6,84
6,89
7,14
7,21
7,25
7,31
7,3
7,48
7,49
7,4
7,44
7,42
7,14
7,24
7,33
7,61
7,66
7,69
7,7
7,68
7,71
7,71
7,72
7,68
7,72
7,74
7,76
7,9
7,97
7,96
7,95
7,97
7,93
7,99
7,96
7,92
7,97
7,98
8
8,04
8,17
8,29
8,26
8,3
8,32
8,28
8,27
8,32
8,31
8,34
8,32
8,36
8,33
8,35
8,34
8,37
8,31
8,33
8,34
8,25
8,27
8,31
8,25
8,3
8,3
8,35
8,78
8,9
8,9
8,9
9
9,05




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'AstonUniversity' @ aston.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 & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=127197&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]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=127197&T=0

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.16.89301749291710.0199223076251453
0.27.002791070841950.0610746194384947
0.37.214028231764730.120336252247576
0.47.52048466522050.144432654360349
0.57.762796627187130.102256469034214
0.67.968859855116010.0880103422674436
0.78.201776461409620.0998284365546155
0.88.309629274426540.0160848004520963
0.98.392190498348880.0766937282810156

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 6.8930174929171 & 0.0199223076251453 \tabularnewline
0.2 & 7.00279107084195 & 0.0610746194384947 \tabularnewline
0.3 & 7.21402823176473 & 0.120336252247576 \tabularnewline
0.4 & 7.5204846652205 & 0.144432654360349 \tabularnewline
0.5 & 7.76279662718713 & 0.102256469034214 \tabularnewline
0.6 & 7.96885985511601 & 0.0880103422674436 \tabularnewline
0.7 & 8.20177646140962 & 0.0998284365546155 \tabularnewline
0.8 & 8.30962927442654 & 0.0160848004520963 \tabularnewline
0.9 & 8.39219049834888 & 0.0766937282810156 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=127197&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]6.8930174929171[/C][C]0.0199223076251453[/C][/ROW]
[ROW][C]0.2[/C][C]7.00279107084195[/C][C]0.0610746194384947[/C][/ROW]
[ROW][C]0.3[/C][C]7.21402823176473[/C][C]0.120336252247576[/C][/ROW]
[ROW][C]0.4[/C][C]7.5204846652205[/C][C]0.144432654360349[/C][/ROW]
[ROW][C]0.5[/C][C]7.76279662718713[/C][C]0.102256469034214[/C][/ROW]
[ROW][C]0.6[/C][C]7.96885985511601[/C][C]0.0880103422674436[/C][/ROW]
[ROW][C]0.7[/C][C]8.20177646140962[/C][C]0.0998284365546155[/C][/ROW]
[ROW][C]0.8[/C][C]8.30962927442654[/C][C]0.0160848004520963[/C][/ROW]
[ROW][C]0.9[/C][C]8.39219049834888[/C][C]0.0766937282810156[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=127197&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=127197&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.16.89301749291710.0199223076251453
0.27.002791070841950.0610746194384947
0.37.214028231764730.120336252247576
0.47.52048466522050.144432654360349
0.57.762796627187130.102256469034214
0.67.968859855116010.0880103422674436
0.78.201776461409620.0998284365546155
0.88.309629274426540.0160848004520963
0.98.392190498348880.0766937282810156



Parameters (Session):
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')