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 computationSun, 05 Mar 2017 18:11:27 +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/2017/Mar/05/t1488737558c3kujloabn69ucj.htm/, Retrieved Sun, 19 May 2024 13:18:11 +0200
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=, Retrieved Sun, 19 May 2024 13:18:11 +0200
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact0
Dataseries X:
97,96
98,36
98,36
98,51
98,77
98,78
98,89
98,87
99,05
99,09
99,1
99,12
99,37
99,46
99,6
99,87
99,88
100,01
100,02
100,19
100,2
100,35
100,47
100,57
101,41
101,67
101,82
101,86
101,98
102,06
102,17
102,2
102,35
102,47
102,55
102,62
102,81
102,88
102,94
102,95
102,94
103,05
103,09
103,1
103,14
103,19
103,36
103,43
103,62
103,79
103,9
103,92
103,94
103,98
104,04
104,09
104,16
104,22
104,28
104,32





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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 & 'Gwilym Jenkins' @ jenkins.wessa.net \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=&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]'Gwilym Jenkins' @ jenkins.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.







Harrell-Davis Quantiles
quantilesvaluestandard error
0.198.80037500143630.180264207756782
0.299.3295047799640.311046704304263
0.3100.0438761893260.420517880901753
0.4101.0431983644660.708381971940483
0.5102.0518419372430.44598582414257
0.6102.6625425589210.293349232449749
0.7103.0645189944910.190312608719239
0.8103.5512787306910.288260369434985
0.9104.0178189710740.11635901556867

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 98.8003750014363 & 0.180264207756782 \tabularnewline
0.2 & 99.329504779964 & 0.311046704304263 \tabularnewline
0.3 & 100.043876189326 & 0.420517880901753 \tabularnewline
0.4 & 101.043198364466 & 0.708381971940483 \tabularnewline
0.5 & 102.051841937243 & 0.44598582414257 \tabularnewline
0.6 & 102.662542558921 & 0.293349232449749 \tabularnewline
0.7 & 103.064518994491 & 0.190312608719239 \tabularnewline
0.8 & 103.551278730691 & 0.288260369434985 \tabularnewline
0.9 & 104.017818971074 & 0.11635901556867 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=&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]98.8003750014363[/C][C]0.180264207756782[/C][/ROW]
[ROW][C]0.2[/C][C]99.329504779964[/C][C]0.311046704304263[/C][/ROW]
[ROW][C]0.3[/C][C]100.043876189326[/C][C]0.420517880901753[/C][/ROW]
[ROW][C]0.4[/C][C]101.043198364466[/C][C]0.708381971940483[/C][/ROW]
[ROW][C]0.5[/C][C]102.051841937243[/C][C]0.44598582414257[/C][/ROW]
[ROW][C]0.6[/C][C]102.662542558921[/C][C]0.293349232449749[/C][/ROW]
[ROW][C]0.7[/C][C]103.064518994491[/C][C]0.190312608719239[/C][/ROW]
[ROW][C]0.8[/C][C]103.551278730691[/C][C]0.288260369434985[/C][/ROW]
[ROW][C]0.9[/C][C]104.017818971074[/C][C]0.11635901556867[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=&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.198.80037500143630.180264207756782
0.299.3295047799640.311046704304263
0.3100.0438761893260.420517880901753
0.4101.0431983644660.708381971940483
0.5102.0518419372430.44598582414257
0.6102.6625425589210.293349232449749
0.7103.0645189944910.190312608719239
0.8103.5512787306910.288260369434985
0.9104.0178189710740.11635901556867



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