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, 09 Oct 2015 14:49:26 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2015/Oct/09/t1444398633uiwy7z5i4y5pfb7.htm/, Retrieved Tue, 14 May 2024 02:14:00 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=281903, Retrieved Tue, 14 May 2024 02:14:00 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact62
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2015-10-09 13:49:26] [bfd47bf74fe11b18de27163a0fd6b465] [Current]
Feedback Forum

Post a new message
Dataseries X:
83,36
83,61
83,41
83,64
84,06
83,93
84,1
84,37
84,18
84,11
84,56
84,2
84,45
84,28
84,28
84,7
85,04
85,31
85,18
85,02
86,31
86,56
86,4
86,84
87,42
87,28
87,27
87,73
87,32
87,15
87,5
87,43
88,81
89,38
88,83
88,91
89,34
89,56
89,32
89,31
89,45
88,92
89,35
88,89
90,1
90,49
89,96
89,93
90,32
90,24
90,61
91,06
90,81
91,09
91,17
90,87
91,92
92,67
92,03
92,09
92,61
92,19
92,68
92,66
92,77
92,21
92,58
91,9
93,81
94,05
94,51
94,49
94,36
94,72
95,57
95,87
95,93
96,09
95,82
96,06
97,09
97,67
98,53
98,12
98,84
98,98
100,04
99,47
99,84
99,52
99,81
99,55
100,21
101,44
101
101,32
101,84
101,81
101,83
102,18
101,97
101,8
101,69
101,91
102,27
102,73
102,61
102,89




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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.184.32842552640430.233657912166159
0.286.19948721533330.895892279190724
0.388.24547858263640.780090548135774
0.489.71455972062450.561972393072286
0.591.19092095041860.750160580606917
0.692.91612586996260.903688917989196
0.795.61791350569271.3132425289614
0.899.03178535804831.06619280626799
0.9101.5231127963530.46826204943805

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 84.3284255264043 & 0.233657912166159 \tabularnewline
0.2 & 86.1994872153333 & 0.895892279190724 \tabularnewline
0.3 & 88.2454785826364 & 0.780090548135774 \tabularnewline
0.4 & 89.7145597206245 & 0.561972393072286 \tabularnewline
0.5 & 91.1909209504186 & 0.750160580606917 \tabularnewline
0.6 & 92.9161258699626 & 0.903688917989196 \tabularnewline
0.7 & 95.6179135056927 & 1.3132425289614 \tabularnewline
0.8 & 99.0317853580483 & 1.06619280626799 \tabularnewline
0.9 & 101.523112796353 & 0.46826204943805 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=281903&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]84.3284255264043[/C][C]0.233657912166159[/C][/ROW]
[ROW][C]0.2[/C][C]86.1994872153333[/C][C]0.895892279190724[/C][/ROW]
[ROW][C]0.3[/C][C]88.2454785826364[/C][C]0.780090548135774[/C][/ROW]
[ROW][C]0.4[/C][C]89.7145597206245[/C][C]0.561972393072286[/C][/ROW]
[ROW][C]0.5[/C][C]91.1909209504186[/C][C]0.750160580606917[/C][/ROW]
[ROW][C]0.6[/C][C]92.9161258699626[/C][C]0.903688917989196[/C][/ROW]
[ROW][C]0.7[/C][C]95.6179135056927[/C][C]1.3132425289614[/C][/ROW]
[ROW][C]0.8[/C][C]99.0317853580483[/C][C]1.06619280626799[/C][/ROW]
[ROW][C]0.9[/C][C]101.523112796353[/C][C]0.46826204943805[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=281903&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=281903&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.184.32842552640430.233657912166159
0.286.19948721533330.895892279190724
0.388.24547858263640.780090548135774
0.489.71455972062450.561972393072286
0.591.19092095041860.750160580606917
0.692.91612586996260.903688917989196
0.795.61791350569271.3132425289614
0.899.03178535804831.06619280626799
0.9101.5231127963530.46826204943805



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