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, 12 Oct 2010 18:24:58 +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/2010/Oct/12/t1286907937ak3oghvn93ubeq5.htm/, Retrieved Tue, 30 Apr 2024 19:52:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=83031, Retrieved Tue, 30 Apr 2024 19:52:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42 - Evi Van Dingenen
Estimated Impact96
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [opdracht 4] [2010-10-12 18:24:58] [89ec97ab3733ab465a33f3d446b0a375] [Current]
Feedback Forum

Post a new message
Dataseries X:
43,09
43,33
43,31
43,44
43,6
43,6
43,6
43,52
43,51
43,49
43,39
43,4
43,4
43,4
43,46
43,65
43,7
43,74
43,74
43,74
43,84
43,99
44,12
44,13
44,13
44,13
44,17
44,14
44,15
44,14
44,14
44,14
44,19
44,29
44,29
44,29
44,29
44,27
44,26
44,33
44,32
44,34
44,34
44,34
44,37
44,47
44,51
44,51
44,51
44,52
44,7
44,84
44,9
44,95
44,94
44,94
44,91
45,28
45,36
45,34
45,34
45,34
45,44
45,62
45,75
45,77
45,77
45,77
46,09
46,25
46,35
46,34
46,34
46,28
46,59
46,42
46,29
46,29
46,29
46,3
46,52
46,66
46,67
46,72
46,72
46,72
46,76
46,89
47,04
47,02
47,02
47,18
47,22
47,8
47,88
47,91




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 2 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=83031&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=83031&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=83031&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 time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







Harrell-Davis Quantiles
quantilesvaluestandard error
0.143.49357232147690.0707549729978557
0.243.8270694823270.173964290851843
0.344.15203466506130.0709296020604032
0.444.30793871312120.07665891243822
0.544.59381606245560.221512507202845
0.645.17845686091150.311052379607752
0.745.89477613380930.322069761939485
0.846.40267925557790.144788790404847
0.946.83755540091770.145491559431971

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 43.4935723214769 & 0.0707549729978557 \tabularnewline
0.2 & 43.827069482327 & 0.173964290851843 \tabularnewline
0.3 & 44.1520346650613 & 0.0709296020604032 \tabularnewline
0.4 & 44.3079387131212 & 0.07665891243822 \tabularnewline
0.5 & 44.5938160624556 & 0.221512507202845 \tabularnewline
0.6 & 45.1784568609115 & 0.311052379607752 \tabularnewline
0.7 & 45.8947761338093 & 0.322069761939485 \tabularnewline
0.8 & 46.4026792555779 & 0.144788790404847 \tabularnewline
0.9 & 46.8375554009177 & 0.145491559431971 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=83031&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]43.4935723214769[/C][C]0.0707549729978557[/C][/ROW]
[ROW][C]0.2[/C][C]43.827069482327[/C][C]0.173964290851843[/C][/ROW]
[ROW][C]0.3[/C][C]44.1520346650613[/C][C]0.0709296020604032[/C][/ROW]
[ROW][C]0.4[/C][C]44.3079387131212[/C][C]0.07665891243822[/C][/ROW]
[ROW][C]0.5[/C][C]44.5938160624556[/C][C]0.221512507202845[/C][/ROW]
[ROW][C]0.6[/C][C]45.1784568609115[/C][C]0.311052379607752[/C][/ROW]
[ROW][C]0.7[/C][C]45.8947761338093[/C][C]0.322069761939485[/C][/ROW]
[ROW][C]0.8[/C][C]46.4026792555779[/C][C]0.144788790404847[/C][/ROW]
[ROW][C]0.9[/C][C]46.8375554009177[/C][C]0.145491559431971[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=83031&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=83031&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.143.49357232147690.0707549729978557
0.243.8270694823270.173964290851843
0.344.15203466506130.0709296020604032
0.444.30793871312120.07665891243822
0.544.59381606245560.221512507202845
0.645.17845686091150.311052379607752
0.745.89477613380930.322069761939485
0.846.40267925557790.144788790404847
0.946.83755540091770.145491559431971



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