FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_harrell_davis.wasp
Title produced by softwareHarrell-Davis Quantiles
Date of computationWed, 26 Dec 2012 13:07:12 -0500
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/Dec/26/t1356545273veuk2d2nis2cq78.htm/, Retrieved Fri, 19 Apr 2024 13:12:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=204742, Retrieved Fri, 19 Apr 2024 13:12:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact142

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2012-12-26 18:07:12] [712f2f4436a9b7aba1a90edc9e618eb7] [Current]
- RMPD    [Central Tendency] [] [2012-12-26 23:01:24] [529459d2862caba1018e23a9e1de2fb7]
- RMPD    [Mean versus Median] [] [2012-12-26 23:56:54] [529459d2862caba1018e23a9e1de2fb7]
- RMP     [Central Tendency] [] [2012-12-27 00:12:00] [529459d2862caba1018e23a9e1de2fb7]
- RMPD    [Mean versus Median] [] [2012-12-27 00:24:55] [529459d2862caba1018e23a9e1de2fb7]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
8,7
8,7
8,6
8,5
8,3
8
8,2
8,1
8,1
8
7,9
7,9
8
8
7,9
8
7,7
7,2
7,5
7,3
7
7
7
7,2
7,3
7,1
6,8
6,4
6,1
6,5
7,7
7,9
7,5
6,9
6,6
6,9
7,7
8
8
7,7
7,3
7,4
8,1
8,3
8,1
7,9
7,9
8,3
8,6
8,7
8,5
8,3
8
8
8,8
8,7
8,5
8,1
7,8
7,7
7,5
7,2
6,9
6,6
6,5
6,6
7,7
8
7,7
7,2
7
7
7,3
7,3
7,1
6,9
6,7
6,8
7,5

Tables (Output of Computation)





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=204742&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=204742&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=204742&T=0

As an alternative you can also use a QR Code:  
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.16.722069301154730.116372150840699
0.26.990109117078090.082881411255189
0.37.209347037209660.107326531460566
0.47.456489800042710.146569285959781
0.57.716576737361690.117066616841561
0.67.909662066410050.0787564597170408
0.78.012867340433340.0398947850801282
0.88.170764152781960.104120250301953
0.98.509132875170350.117808152704791

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 6.72206930115473 & 0.116372150840699 \tabularnewline
0.2 & 6.99010911707809 & 0.082881411255189 \tabularnewline
0.3 & 7.20934703720966 & 0.107326531460566 \tabularnewline
0.4 & 7.45648980004271 & 0.146569285959781 \tabularnewline
0.5 & 7.71657673736169 & 0.117066616841561 \tabularnewline
0.6 & 7.90966206641005 & 0.0787564597170408 \tabularnewline
0.7 & 8.01286734043334 & 0.0398947850801282 \tabularnewline
0.8 & 8.17076415278196 & 0.104120250301953 \tabularnewline
0.9 & 8.50913287517035 & 0.117808152704791 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=204742&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.72206930115473[/C][C]0.116372150840699[/C][/ROW]
[ROW][C]0.2[/C][C]6.99010911707809[/C][C]0.082881411255189[/C][/ROW]
[ROW][C]0.3[/C][C]7.20934703720966[/C][C]0.107326531460566[/C][/ROW]
[ROW][C]0.4[/C][C]7.45648980004271[/C][C]0.146569285959781[/C][/ROW]
[ROW][C]0.5[/C][C]7.71657673736169[/C][C]0.117066616841561[/C][/ROW]
[ROW][C]0.6[/C][C]7.90966206641005[/C][C]0.0787564597170408[/C][/ROW]
[ROW][C]0.7[/C][C]8.01286734043334[/C][C]0.0398947850801282[/C][/ROW]
[ROW][C]0.8[/C][C]8.17076415278196[/C][C]0.104120250301953[/C][/ROW]
[ROW][C]0.9[/C][C]8.50913287517035[/C][C]0.117808152704791[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=204742&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=204742&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Harrell-Davis Quantiles
quantilesvaluestandard error
0.16.722069301154730.116372150840699
0.26.990109117078090.082881411255189
0.37.209347037209660.107326531460566
0.47.456489800042710.146569285959781
0.57.716576737361690.117066616841561
0.67.909662066410050.0787564597170408
0.78.012867340433340.0398947850801282
0.88.170764152781960.104120250301953
0.98.509132875170350.117808152704791


Figures (Output of Computation)

Input Parameters & R Code

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