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, 17 Aug 2009 12:06:24 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Aug/17/t1250532520hnmk3stkprc39e8.htm/, Retrieved Tue, 30 Apr 2024 08:41:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=42710, Retrieved Tue, 30 Apr 2024 08:41:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact165
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Decielen - Gem. p...] [2009-08-17 18:06:24] [b3f4824a747975de0748bc1b396f9742] [Current]
Feedback Forum

Post a new message
Dataseries X:
15.22
15.27
15.31
15.33
15.42
15.49
15.65
15.67
15.69
15.83
15.92
15.99
15.94
15.96
16.03
16.09
16.04
16.23
16.2
16.2
16.26
16.28
16.27
16.29
16.3
16.37
16.39
16.42
16.43
16.37
16.37
16.39
16.48
16.51
16.5
16.54
16.52
16.56
16.61
16.75
16.75
16.79
16.82
16.84
17.14
17.25
17.28
17.3
17.34
17.44
17.48
17.55
17.59
17.66
17.67
17.64
17.68
17.72
17.78
17.83
17.88
18.11
18.16
18.27
18.29
18.35
18.35
18.38
18.41
18.41
18.42
18.43
18.48
18.54
18.65
18.66
18.69
18.72
18.72
18.73
18.84
18.83
18.91
18.91
18.94
18.97
19
19.08
19.18
19.24
19.23
19.25
19.3
19.33
19.35
19.35
19.31
19.47
19.7
19.76
19.9
19.97
20.1
20.26
20.44
20.43
20.57
20.6
20.69
20.93
20.98
21.11
21.14
21.16
21.32
21.32
21.48
21.58
21.74
21.75
21.81
21.89
22.21
22.37
22.47
22.51
22.55
22.61
22.58
22.85
22.93
22.98




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 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 & 3 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42710&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]3 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=42710&T=0

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.115.97558636535980.131066352366884
0.216.35413407081270.082961665554334
0.316.76485045497590.271912372549869
0.417.56032969582040.283438000862074
0.518.25995073140740.254007305615107
0.618.76733646605580.196109799681655
0.719.31592331933990.254128919237925
0.820.44578885717730.451547355121987
0.921.72600314670470.333669812913686

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 15.9755863653598 & 0.131066352366884 \tabularnewline
0.2 & 16.3541340708127 & 0.082961665554334 \tabularnewline
0.3 & 16.7648504549759 & 0.271912372549869 \tabularnewline
0.4 & 17.5603296958204 & 0.283438000862074 \tabularnewline
0.5 & 18.2599507314074 & 0.254007305615107 \tabularnewline
0.6 & 18.7673364660558 & 0.196109799681655 \tabularnewline
0.7 & 19.3159233193399 & 0.254128919237925 \tabularnewline
0.8 & 20.4457888571773 & 0.451547355121987 \tabularnewline
0.9 & 21.7260031467047 & 0.333669812913686 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42710&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]15.9755863653598[/C][C]0.131066352366884[/C][/ROW]
[ROW][C]0.2[/C][C]16.3541340708127[/C][C]0.082961665554334[/C][/ROW]
[ROW][C]0.3[/C][C]16.7648504549759[/C][C]0.271912372549869[/C][/ROW]
[ROW][C]0.4[/C][C]17.5603296958204[/C][C]0.283438000862074[/C][/ROW]
[ROW][C]0.5[/C][C]18.2599507314074[/C][C]0.254007305615107[/C][/ROW]
[ROW][C]0.6[/C][C]18.7673364660558[/C][C]0.196109799681655[/C][/ROW]
[ROW][C]0.7[/C][C]19.3159233193399[/C][C]0.254128919237925[/C][/ROW]
[ROW][C]0.8[/C][C]20.4457888571773[/C][C]0.451547355121987[/C][/ROW]
[ROW][C]0.9[/C][C]21.7260031467047[/C][C]0.333669812913686[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42710&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42710&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.115.97558636535980.131066352366884
0.216.35413407081270.082961665554334
0.316.76485045497590.271912372549869
0.417.56032969582040.283438000862074
0.518.25995073140740.254007305615107
0.618.76733646605580.196109799681655
0.719.31592331933990.254128919237925
0.820.44578885717730.451547355121987
0.921.72600314670470.333669812913686



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