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 computationThu, 18 Oct 2012 08:55:20 -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/2012/Oct/18/t1350565011eq3vr360bmu2et3.htm/, Retrieved Mon, 29 Apr 2024 01:25:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=179577, Retrieved Mon, 29 Apr 2024 01:25:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact61
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Decielen harrell ...] [2012-10-18 12:55:20] [87986ea810528d5717aba44b63d5427b] [Current]
Feedback Forum

Post a new message
Dataseries X:
103,48
103,93
103,89
104,4
104,79
104,77
105,13
105,26
104,96
104,75
105,01
105,1
103,48
103,93
103,89
104,4
104,79
106,12
106,57
106,44
106,54
107,1
108,1
108,4
108,84
109,62
110,42
110,67
111,66
112,28
112,87
112,18
112,36
112,16
111,49
111,25
111,36
111,74
111,1
111,33
111,25
111,04
110,97
111,31
111,02
111,07
111,36
111,54
112,05
112,52
112,94
113,33
113,78
113,77
113,82
113,89
114,25
114,41
114,55
115
115,66
116,33
116,91
117,2
117,59
117,95
118,09
117,99
118,31
118,49
118,96
119,01




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

\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
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=179577&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]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=179577&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=179577&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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.01103.5130292423930.0977809511433642
0.11104.4692523706360.323930414033215
0.21105.4682302168640.720605353260064
0.31107.9215566716791.60697019866568
0.41110.5254079663830.85072513225453
0.51111.3679424068270.27387339312381
0.61112.0476032114970.478813821143691
0.71113.2205210152670.690176146815742
0.81114.9731094870271.02650509859578
0.91117.6695354816930.640136670453313

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.01 & 103.513029242393 & 0.0977809511433642 \tabularnewline
0.11 & 104.469252370636 & 0.323930414033215 \tabularnewline
0.21 & 105.468230216864 & 0.720605353260064 \tabularnewline
0.31 & 107.921556671679 & 1.60697019866568 \tabularnewline
0.41 & 110.525407966383 & 0.85072513225453 \tabularnewline
0.51 & 111.367942406827 & 0.27387339312381 \tabularnewline
0.61 & 112.047603211497 & 0.478813821143691 \tabularnewline
0.71 & 113.220521015267 & 0.690176146815742 \tabularnewline
0.81 & 114.973109487027 & 1.02650509859578 \tabularnewline
0.91 & 117.669535481693 & 0.640136670453313 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=179577&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.01[/C][C]103.513029242393[/C][C]0.0977809511433642[/C][/ROW]
[ROW][C]0.11[/C][C]104.469252370636[/C][C]0.323930414033215[/C][/ROW]
[ROW][C]0.21[/C][C]105.468230216864[/C][C]0.720605353260064[/C][/ROW]
[ROW][C]0.31[/C][C]107.921556671679[/C][C]1.60697019866568[/C][/ROW]
[ROW][C]0.41[/C][C]110.525407966383[/C][C]0.85072513225453[/C][/ROW]
[ROW][C]0.51[/C][C]111.367942406827[/C][C]0.27387339312381[/C][/ROW]
[ROW][C]0.61[/C][C]112.047603211497[/C][C]0.478813821143691[/C][/ROW]
[ROW][C]0.71[/C][C]113.220521015267[/C][C]0.690176146815742[/C][/ROW]
[ROW][C]0.81[/C][C]114.973109487027[/C][C]1.02650509859578[/C][/ROW]
[ROW][C]0.91[/C][C]117.669535481693[/C][C]0.640136670453313[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=179577&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=179577&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.01103.5130292423930.0977809511433642
0.11104.4692523706360.323930414033215
0.21105.4682302168640.720605353260064
0.31107.9215566716791.60697019866568
0.41110.5254079663830.85072513225453
0.51111.3679424068270.27387339312381
0.61112.0476032114970.478813821143691
0.71113.2205210152670.690176146815742
0.81114.9731094870271.02650509859578
0.91117.6695354816930.640136670453313



Parameters (Session):
par1 = 0.01 ; par2 = 0.99 ; par3 = 0.1 ;
Parameters (R input):
par1 = 0.01 ; par2 = 0.99 ; 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')