Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_harrell_davis.wasp
Title produced by softwareHarrell-Davis Quantiles
Date of computationFri, 08 Jan 2016 11:42:11 +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/2016/Jan/08/t1452253356jdswx1f4hsvousv.htm/, Retrieved Sat, 27 Apr 2024 20:49:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=287407, Retrieved Sat, 27 Apr 2024 20:49:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact140
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Aantal niet-werke...] [2016-01-08 11:42:11] [f442d180d44854b5d66611a6a05f7502] [Current]
Feedback Forum

Post a new message
Dataseries X:
64076
63136
60198
59057
57388
56708
70019
72263
74152
67057
61941
58331
59252
56568
53031
51840
48290
45817
59421
61621
60976
57497
53037
53088
53119
51644
47866
47691
42401
43069
55797
57170
58335
55439
54399
56316
58381
58468
59025
58298
54255
55670
67816
70485
71361
66953
64505
66770
66418
65277
62008
59096
55106
54954
67943
69411
69951
63966
60410
59440
59445
57614
55396
53030
50090
48764
61658
63943
64878
60634
57905
57224
60953
60621
57258
54903
53278
53042
63753
69210
71446
68408
65427
64630
66086
65058
62689
60841
57346
56222
68202
70745
73690
68992
65925
65546
67221
65315
62038
58774
55320
53900
65544
67906
70911
66544
63657
61720




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

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

As an alternative you can also use a 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' @ jenkins.wessa.net







Harrell-Davis Quantiles
quantilesvaluestandard error
0.152073.14182823161207.1294940971
0.254807.0113522877815.383416768024
0.356825.8565879681747.865685644165
0.458432.8527878544678.313892085424
0.560163.2458927877911.082826794211
0.662382.94541172821114.96206357651
0.764764.5706317462832.242290299523
0.866748.2020089095788.240184598839
0.969421.3771974144854.858415830991

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 52073.1418282316 & 1207.1294940971 \tabularnewline
0.2 & 54807.0113522877 & 815.383416768024 \tabularnewline
0.3 & 56825.8565879681 & 747.865685644165 \tabularnewline
0.4 & 58432.8527878544 & 678.313892085424 \tabularnewline
0.5 & 60163.2458927877 & 911.082826794211 \tabularnewline
0.6 & 62382.9454117282 & 1114.96206357651 \tabularnewline
0.7 & 64764.5706317462 & 832.242290299523 \tabularnewline
0.8 & 66748.2020089095 & 788.240184598839 \tabularnewline
0.9 & 69421.3771974144 & 854.858415830991 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=287407&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]52073.1418282316[/C][C]1207.1294940971[/C][/ROW]
[ROW][C]0.2[/C][C]54807.0113522877[/C][C]815.383416768024[/C][/ROW]
[ROW][C]0.3[/C][C]56825.8565879681[/C][C]747.865685644165[/C][/ROW]
[ROW][C]0.4[/C][C]58432.8527878544[/C][C]678.313892085424[/C][/ROW]
[ROW][C]0.5[/C][C]60163.2458927877[/C][C]911.082826794211[/C][/ROW]
[ROW][C]0.6[/C][C]62382.9454117282[/C][C]1114.96206357651[/C][/ROW]
[ROW][C]0.7[/C][C]64764.5706317462[/C][C]832.242290299523[/C][/ROW]
[ROW][C]0.8[/C][C]66748.2020089095[/C][C]788.240184598839[/C][/ROW]
[ROW][C]0.9[/C][C]69421.3771974144[/C][C]854.858415830991[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=287407&T=1

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

As an alternative you can also use a QR Code:  

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

Harrell-Davis Quantiles
quantilesvaluestandard error
0.152073.14182823161207.1294940971
0.254807.0113522877815.383416768024
0.356825.8565879681747.865685644165
0.458432.8527878544678.313892085424
0.560163.2458927877911.082826794211
0.662382.94541172821114.96206357651
0.764764.5706317462832.242290299523
0.866748.2020089095788.240184598839
0.969421.3771974144854.858415830991



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