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 computationSun, 16 Feb 2014 16:41:05 -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/2014/Feb/16/t1392586878c9cnx3n5ptf7w60.htm/, Retrieved Wed, 15 May 2024 03:49:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=233863, Retrieved Wed, 15 May 2024 03:49:33 +0000
QR Codes:

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

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] [] [2014-02-16 21:41:05] [e610340e7a3184c9e0a1f377a12e8a83] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
3477
2685
2438
1692
4054
3946
3623
2455
2362
2791
2369
3438
3682
2801
2563
3108
2890
3940
4036
1514
3461
2980
2728
3891
3715
2843
1416
2657
1856
2441
3172
2813
3335
2608
5784
4726
3817
2755
2541
3154
2684
3732
4286
2394
1698
3945
2549
3943
3899
2783
2660
1848
4482
4157
4404
2686
2593
3254
2664
4203
3985
2861
2758
1968
4666
4226
4748
2767
2723
3297
2758
4338

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=233863&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=233863&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=233863&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net






Harrell-Davis Quantiles
quantilesvaluestandard error
0.12124.45759793174241.237250155787
0.22529.8609163932482.7738812021409
0.32675.0487532447151.1374370143818
0.42770.9656630421656.2250829108309
0.52961.21505784852169.077645987272
0.63339.58900588186220.909470516524
0.73732.76368432553174.435346762487
0.83992.812015285698.0745667783576
0.94325.20374362761139.981823226144

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 2124.45759793174 & 241.237250155787 \tabularnewline
0.2 & 2529.86091639324 & 82.7738812021409 \tabularnewline
0.3 & 2675.04875324471 & 51.1374370143818 \tabularnewline
0.4 & 2770.96566304216 & 56.2250829108309 \tabularnewline
0.5 & 2961.21505784852 & 169.077645987272 \tabularnewline
0.6 & 3339.58900588186 & 220.909470516524 \tabularnewline
0.7 & 3732.76368432553 & 174.435346762487 \tabularnewline
0.8 & 3992.8120152856 & 98.0745667783576 \tabularnewline
0.9 & 4325.20374362761 & 139.981823226144 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=233863&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]2124.45759793174[/C][C]241.237250155787[/C][/ROW]
[ROW][C]0.2[/C][C]2529.86091639324[/C][C]82.7738812021409[/C][/ROW]
[ROW][C]0.3[/C][C]2675.04875324471[/C][C]51.1374370143818[/C][/ROW]
[ROW][C]0.4[/C][C]2770.96566304216[/C][C]56.2250829108309[/C][/ROW]
[ROW][C]0.5[/C][C]2961.21505784852[/C][C]169.077645987272[/C][/ROW]
[ROW][C]0.6[/C][C]3339.58900588186[/C][C]220.909470516524[/C][/ROW]
[ROW][C]0.7[/C][C]3732.76368432553[/C][C]174.435346762487[/C][/ROW]
[ROW][C]0.8[/C][C]3992.8120152856[/C][C]98.0745667783576[/C][/ROW]
[ROW][C]0.9[/C][C]4325.20374362761[/C][C]139.981823226144[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=233863&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=233863&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.12124.45759793174241.237250155787
0.22529.8609163932482.7738812021409
0.32675.0487532447151.1374370143818
0.42770.9656630421656.2250829108309
0.52961.21505784852169.077645987272
0.63339.58900588186220.909470516524
0.73732.76368432553174.435346762487
0.83992.812015285698.0745667783576
0.94325.20374362761139.981823226144


Figures (Output of Computation)

Input Parameters & R Code

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