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 computationTue, 11 Oct 2011 10:12:54 -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/2011/Oct/11/t1318342437tygt8gkc02tg5mq.htm/, Retrieved Sat, 11 May 2024 05:36:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=128052, Retrieved Sat, 11 May 2024 05:36:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDG201142
Estimated Impact62
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Gemiddelde consum...] [2011-10-11 14:12:54] [53570eb7f05113140c3a155d32e971f0] [Current]
Feedback Forum

Post a new message
Dataseries X:
9,26
9,27
9,29
9,27
9,29
9,31
9,33
9,35
9,34
9,35
9,38
9,43
9,47
9,5
9,55
9,58
9,61
9,57
9,61
9,65
9,62
9,63
9,62
9,63
9,65
9,72
9,75
9,77
9,78
9,82
9,84
9,9
9,94
9,96
10,03
10,03
10,12
10,12
10,05
10,14
10,17
10,2
10,2
10,35
10,43
10,52
10,57
10,57
10,57
10,65
10,57
10,61
10,63
10,71
10,72
10,77
10,79
10,82
10,9
10,83
10,92
10,91
10,88
10,87
11
10,99
11,03
11,04
10,99
10,9
11
10,99
10,92
10,98
11,15
11,19
11,33
11,38
11,4
11,45
11,56
11,61
11,82
11,77
11,85
11,82
11,92
11,86
11,87
11,94
11,86
11,92
11,83
11,91
11,93
11,99
11,96
12,12
11,85
12,01
12,1
12,21
12,31
12,31
12,39
12,35
12,41
12,51
12,27
12,51
12,44
12,47
12,51
12,58
12,5
12,52
12,59
12,51
12,67
12,64
12,54
12,6
12,67
12,62
12,72
12,85
12,85
12,82
12,79
12,94
12,71
12,56




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=128052&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=128052&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=128052&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.19.481097272032080.0871587368752538
0.29.749709110766690.114409950610592
0.310.18549723476850.195726809779487
0.410.67068905233810.149476340280517
0.510.96042513267010.110371945238584
0.611.46293501339220.281876592873813
0.711.92027024107640.105105913302601
0.812.33253934777550.141702637776253
0.912.58235264658130.0480262154454605

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 9.48109727203208 & 0.0871587368752538 \tabularnewline
0.2 & 9.74970911076669 & 0.114409950610592 \tabularnewline
0.3 & 10.1854972347685 & 0.195726809779487 \tabularnewline
0.4 & 10.6706890523381 & 0.149476340280517 \tabularnewline
0.5 & 10.9604251326701 & 0.110371945238584 \tabularnewline
0.6 & 11.4629350133922 & 0.281876592873813 \tabularnewline
0.7 & 11.9202702410764 & 0.105105913302601 \tabularnewline
0.8 & 12.3325393477755 & 0.141702637776253 \tabularnewline
0.9 & 12.5823526465813 & 0.0480262154454605 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=128052&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]9.48109727203208[/C][C]0.0871587368752538[/C][/ROW]
[ROW][C]0.2[/C][C]9.74970911076669[/C][C]0.114409950610592[/C][/ROW]
[ROW][C]0.3[/C][C]10.1854972347685[/C][C]0.195726809779487[/C][/ROW]
[ROW][C]0.4[/C][C]10.6706890523381[/C][C]0.149476340280517[/C][/ROW]
[ROW][C]0.5[/C][C]10.9604251326701[/C][C]0.110371945238584[/C][/ROW]
[ROW][C]0.6[/C][C]11.4629350133922[/C][C]0.281876592873813[/C][/ROW]
[ROW][C]0.7[/C][C]11.9202702410764[/C][C]0.105105913302601[/C][/ROW]
[ROW][C]0.8[/C][C]12.3325393477755[/C][C]0.141702637776253[/C][/ROW]
[ROW][C]0.9[/C][C]12.5823526465813[/C][C]0.0480262154454605[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=128052&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=128052&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.19.481097272032080.0871587368752538
0.29.749709110766690.114409950610592
0.310.18549723476850.195726809779487
0.410.67068905233810.149476340280517
0.510.96042513267010.110371945238584
0.611.46293501339220.281876592873813
0.711.92027024107640.105105913302601
0.812.33253934777550.141702637776253
0.912.58235264658130.0480262154454605



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