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 computationSat, 22 Jul 2017 00:50:48 +0200
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/Jul/22/t1500677529e5t9aplwrrlpc8c.htm/, Retrieved Tue, 14 May 2024 21:13:33 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=306728, Retrieved Tue, 14 May 2024 21:13:33 +0000
QR Codes:

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

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] [Tijdreeks A stap 11] [2017-07-21 22:50:48] [5e513ceaaef205c0c6f269c0b513af8d] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
6195800
6172725
6149325
6100900
6579950
6554600
6195800
5957250
5980325
5980325
6006000
6052150
6123975
6123975
6077825
5957250
6579950
6674850
6531525
6195800
6339450
6123975
6221150
6267625
6316050
6195800
6221150
6052150
6579950
6746675
6603350
6339450
6626425
6316050
6603350
6579950
6651775
6387875
6674850
6651775
7082400
6985225
6603350
6410950
6674850
6316050
6579950
6626425
6723600
6508450
6626425
6698250
6962150
6746675
6459700
6149325
6436625
5646875
6029075
6244225
6459700
6149325
6149325
6149325
6316050
6077825
5765175
5503550
5693350
4952350
5406375
5670275
5718700
5454800
5477875
5406375
5646875
5477875
5144750
4903925
5311150
4426825
5001100
5262725
5262725
4952350
4665375
4642300
4903925
4665375
4211675
3899025
4234750
3445325
4162925
4544800
4665375
4401475
4068025
4306575
4401475
4329650
3611725
3278600
3516825
2799225
3540225
3804125
4019275
3660475
3324750
3516825
3611725
3421925
2704325
2391675
2678650
1889225
2750475
3278600

Tables (Output of Computation)





Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time3 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306728&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]3 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=306728&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=306728&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R ServerBig Analytics Cloud Computing Center






Harrell-Davis Quantiles
quantilesvaluestandard error
0.13502770154491
0.24245850232238
0.34913800276394
0.45532350218168
0.55976040133173
0.6615435047054.5
0.7629760073699.8
0.8651894070840.2
0.9664291027804.4

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 3502770 & 154491 \tabularnewline
0.2 & 4245850 & 232238 \tabularnewline
0.3 & 4913800 & 276394 \tabularnewline
0.4 & 5532350 & 218168 \tabularnewline
0.5 & 5976040 & 133173 \tabularnewline
0.6 & 6154350 & 47054.5 \tabularnewline
0.7 & 6297600 & 73699.8 \tabularnewline
0.8 & 6518940 & 70840.2 \tabularnewline
0.9 & 6642910 & 27804.4 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306728&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]3502770[/C][C]154491[/C][/ROW]
[ROW][C]0.2[/C][C]4245850[/C][C]232238[/C][/ROW]
[ROW][C]0.3[/C][C]4913800[/C][C]276394[/C][/ROW]
[ROW][C]0.4[/C][C]5532350[/C][C]218168[/C][/ROW]
[ROW][C]0.5[/C][C]5976040[/C][C]133173[/C][/ROW]
[ROW][C]0.6[/C][C]6154350[/C][C]47054.5[/C][/ROW]
[ROW][C]0.7[/C][C]6297600[/C][C]73699.8[/C][/ROW]
[ROW][C]0.8[/C][C]6518940[/C][C]70840.2[/C][/ROW]
[ROW][C]0.9[/C][C]6642910[/C][C]27804.4[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=306728&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=306728&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.13502770154491
0.24245850232238
0.34913800276394
0.45532350218168
0.55976040133173
0.6615435047054.5
0.7629760073699.8
0.8651894070840.2
0.9664291027804.4


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
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,signif(as.matrix(hd[i])[1,1],6))
a<-table.element(a,signif(as.matrix(attr(hd,'se')[i])[1,1],6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')