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 computationTue, 08 Mar 2011 20:44:16 +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/2011/Mar/08/t1299616867212vrvpkxafsipg.htm/, Retrieved Sat, 11 May 2024 08:15:31 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=119750, Retrieved Sat, 11 May 2024 08:15:31 +0000
QR Codes:

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

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] [Decielen werkloos...] [2011-03-08 20:44:16] [99f56e8d3669c8e32d9c5b2d6e7ae714] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
8
8
8.2
8.5
8.7
8.7
8
8
8.3
8.5
8.7
8.6
8.3
7.9
7.9
8.1
8.3
8.1
7.4
7.3
7.7
8
8
7.7
6.9
6.6
6.9
7.5
7.9
7.7
6.5
6.1
6.4
6.8
7.1
7.3
7.2
7
7
7
7.3
7.5
7.2
7.7
8
7.9
8
8
7.9
7.9
8
8.1
8.1
8.2
8
8.3
8.5
8.6
8.7
8.7
8.5
8.4
8.5
8.7
8.7
8.6
7.9
8.1
8.2
8.5
8.6
8.5

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ www.wessa.org

\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 & 'Gwilym Jenkins' @ www.wessa.org \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=119750&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]'Gwilym Jenkins' @ www.wessa.org[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=119750&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119750&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 time1 seconds
R Server'Gwilym Jenkins' @ www.wessa.org






Harrell-Davis Quantiles
quantilesvaluestandard error
0.016.187069181806460.249925620562625
0.116.975550653919670.12408589147675
0.217.350727208365550.175750168034952
0.317.733671955738050.156374124114298
0.417.933498454428260.0609138660671066
0.518.011321088778380.035840738635468
0.618.119528034041140.0835665651512403
0.718.317241943878170.113395737558608
0.818.505509885355270.0586511125465278
0.918.65810087321340.0494668897943739

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.01 & 6.18706918180646 & 0.249925620562625 \tabularnewline
0.11 & 6.97555065391967 & 0.12408589147675 \tabularnewline
0.21 & 7.35072720836555 & 0.175750168034952 \tabularnewline
0.31 & 7.73367195573805 & 0.156374124114298 \tabularnewline
0.41 & 7.93349845442826 & 0.0609138660671066 \tabularnewline
0.51 & 8.01132108877838 & 0.035840738635468 \tabularnewline
0.61 & 8.11952803404114 & 0.0835665651512403 \tabularnewline
0.71 & 8.31724194387817 & 0.113395737558608 \tabularnewline
0.81 & 8.50550988535527 & 0.0586511125465278 \tabularnewline
0.91 & 8.6581008732134 & 0.0494668897943739 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=119750&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]6.18706918180646[/C][C]0.249925620562625[/C][/ROW]
[ROW][C]0.11[/C][C]6.97555065391967[/C][C]0.12408589147675[/C][/ROW]
[ROW][C]0.21[/C][C]7.35072720836555[/C][C]0.175750168034952[/C][/ROW]
[ROW][C]0.31[/C][C]7.73367195573805[/C][C]0.156374124114298[/C][/ROW]
[ROW][C]0.41[/C][C]7.93349845442826[/C][C]0.0609138660671066[/C][/ROW]
[ROW][C]0.51[/C][C]8.01132108877838[/C][C]0.035840738635468[/C][/ROW]
[ROW][C]0.61[/C][C]8.11952803404114[/C][C]0.0835665651512403[/C][/ROW]
[ROW][C]0.71[/C][C]8.31724194387817[/C][C]0.113395737558608[/C][/ROW]
[ROW][C]0.81[/C][C]8.50550988535527[/C][C]0.0586511125465278[/C][/ROW]
[ROW][C]0.91[/C][C]8.6581008732134[/C][C]0.0494668897943739[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=119750&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=119750&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.016.187069181806460.249925620562625
0.116.975550653919670.12408589147675
0.217.350727208365550.175750168034952
0.317.733671955738050.156374124114298
0.417.933498454428260.0609138660671066
0.518.011321088778380.035840738635468
0.618.119528034041140.0835665651512403
0.718.317241943878170.113395737558608
0.818.505509885355270.0586511125465278
0.918.65810087321340.0494668897943739


Figures (Output of Computation)

Input Parameters & R Code

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