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 computationThu, 16 Aug 2012 20:39:18 -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/Aug/16/t1345164000kgzlbb63fnje6zj.htm/, Retrieved Fri, 03 May 2024 04:45:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=169431, Retrieved Fri, 03 May 2024 04:45:42 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsOcak Akif
Estimated Impact91

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 - Sta...] [2012-08-17 00:39:18] [5dd0276686e5afc16e406ecacd66adb3] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1943
1932
1922
1901
2108
2098
1943
1839
1850
1850
1860
1881
1839
1819
1757
1664
1922
1839
1633
1674
1633
1736
1591
1684
1602
1581
1416
1354
1664
1602
1405
1529
1426
1509
1426
1571
1447
1426
1230
1168
1612
1509
1333
1498
1374
1333
1312
1416
1240
1240
1095
1044
1560
1426
1302
1405
1261
1199
1250
1405
1199
1281
1178
1137
1591
1498
1250
1374
1312
1354
1426
1622
1488
1540
1457
1395
1860
1746
1467
1426
1343
1374
1354
1529
1343
1405
1364
1323
1829
1726
1447
1343
1188
1199
1178
1323
1064
1054
1013
899
1467
1405
1095
1002
847
816
713
858
486
444
403
331
940
889
568
506
351
362
300
403

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'Gertrude Mary Cox' @ cox.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 & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=169431&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=169431&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=169431&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'Gertrude Mary Cox' @ cox.wessa.net






Harrell-Davis Quantiles
quantilesvaluestandard error
0.1755.538590153943153.512278219999
0.21111.93552815270.1083713051923
0.31255.3996152826144.2762716432977
0.41343.9274506551526.4820586520772
0.51402.4379828199222.0505468427314
0.61459.8596106241933.6320598946837
0.71559.7450927291342.932129009413
0.81684.0980519679157.5195013918234
0.91851.5569011904627.4945888006137

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 755.538590153943 & 153.512278219999 \tabularnewline
0.2 & 1111.935528152 & 70.1083713051923 \tabularnewline
0.3 & 1255.39961528261 & 44.2762716432977 \tabularnewline
0.4 & 1343.92745065515 & 26.4820586520772 \tabularnewline
0.5 & 1402.43798281992 & 22.0505468427314 \tabularnewline
0.6 & 1459.85961062419 & 33.6320598946837 \tabularnewline
0.7 & 1559.74509272913 & 42.932129009413 \tabularnewline
0.8 & 1684.09805196791 & 57.5195013918234 \tabularnewline
0.9 & 1851.55690119046 & 27.4945888006137 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=169431&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]755.538590153943[/C][C]153.512278219999[/C][/ROW]
[ROW][C]0.2[/C][C]1111.935528152[/C][C]70.1083713051923[/C][/ROW]
[ROW][C]0.3[/C][C]1255.39961528261[/C][C]44.2762716432977[/C][/ROW]
[ROW][C]0.4[/C][C]1343.92745065515[/C][C]26.4820586520772[/C][/ROW]
[ROW][C]0.5[/C][C]1402.43798281992[/C][C]22.0505468427314[/C][/ROW]
[ROW][C]0.6[/C][C]1459.85961062419[/C][C]33.6320598946837[/C][/ROW]
[ROW][C]0.7[/C][C]1559.74509272913[/C][C]42.932129009413[/C][/ROW]
[ROW][C]0.8[/C][C]1684.09805196791[/C][C]57.5195013918234[/C][/ROW]
[ROW][C]0.9[/C][C]1851.55690119046[/C][C]27.4945888006137[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=169431&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=169431&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.1755.538590153943153.512278219999
0.21111.93552815270.1083713051923
0.31255.3996152826144.2762716432977
0.41343.9274506551526.4820586520772
0.51402.4379828199222.0505468427314
0.61459.8596106241933.6320598946837
0.71559.7450927291342.932129009413
0.81684.0980519679157.5195013918234
0.91851.5569011904627.4945888006137


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