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, 15 Aug 2008 04:25:14 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Aug/15/t1218795940myudp5e8suow687.htm/, Retrieved Wed, 15 May 2024 04:39:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14559, Retrieved Wed, 15 May 2024 04:39:16 +0000
QR Codes:

Original text written by user:Decielen
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact225
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Opgave 4 - Superb...] [2008-08-15 10:25:14] [f38aed22bcf737d6f431a6f90e40d4b2] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.91
0.9
0.89
0.89
0.89
0.89
0.89
0.89
0.88
0.88
0.88
0.86
0.85
0.85
0.86
0.9
0.92
0.91
0.93
0.96
0.96
0.97
0.98
1.01
0.99
1.03
1.08
1.06
1.1
1.17
1.16
1.12
1.17
1.13
1.12
1.07
1.04
1.08
1.06
1.12
1.18
1.13
1.08
1.06
1.09
1.02
1.01
1.01
1
1.01
1.03
1.09
1.07
1.05
1.06
1.06
1.08
1.07
1.04
1.04
1.06
1.09
1.09
1.05
1.01
1.02
1.03
1.06
1.08
1.05
1.05
1.05
1.04
1.05
1.07
1.1
1.16
1.16
1.17
1.17
1.18
1.21
1.18
1.13
1.12
1.17
1.19
1.26
1.25
1.28
1.35
1.39
1.45
1.41
1.32
1.31




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time5 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 5 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14559&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]5 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14559&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14559&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 time5 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Harrell-Davis Quantiles
quantilesvaluestandard error
0.10.8899439021597090.00641921988557436
0.20.9451824166247610.0337590838029849
0.31.011592945303210.0169065657278609
0.41.041656000718880.0105459391214210
0.51.059544850102420.00764235170525551
0.61.078519520889500.0105674023618843
0.71.110430190946500.0186923949510842
0.81.158172169834660.0166572738916042
0.91.226633175820260.0408897620261770

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 0.889943902159709 & 0.00641921988557436 \tabularnewline
0.2 & 0.945182416624761 & 0.0337590838029849 \tabularnewline
0.3 & 1.01159294530321 & 0.0169065657278609 \tabularnewline
0.4 & 1.04165600071888 & 0.0105459391214210 \tabularnewline
0.5 & 1.05954485010242 & 0.00764235170525551 \tabularnewline
0.6 & 1.07851952088950 & 0.0105674023618843 \tabularnewline
0.7 & 1.11043019094650 & 0.0186923949510842 \tabularnewline
0.8 & 1.15817216983466 & 0.0166572738916042 \tabularnewline
0.9 & 1.22663317582026 & 0.0408897620261770 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14559&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]0.889943902159709[/C][C]0.00641921988557436[/C][/ROW]
[ROW][C]0.2[/C][C]0.945182416624761[/C][C]0.0337590838029849[/C][/ROW]
[ROW][C]0.3[/C][C]1.01159294530321[/C][C]0.0169065657278609[/C][/ROW]
[ROW][C]0.4[/C][C]1.04165600071888[/C][C]0.0105459391214210[/C][/ROW]
[ROW][C]0.5[/C][C]1.05954485010242[/C][C]0.00764235170525551[/C][/ROW]
[ROW][C]0.6[/C][C]1.07851952088950[/C][C]0.0105674023618843[/C][/ROW]
[ROW][C]0.7[/C][C]1.11043019094650[/C][C]0.0186923949510842[/C][/ROW]
[ROW][C]0.8[/C][C]1.15817216983466[/C][C]0.0166572738916042[/C][/ROW]
[ROW][C]0.9[/C][C]1.22663317582026[/C][C]0.0408897620261770[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14559&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14559&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.10.8899439021597090.00641921988557436
0.20.9451824166247610.0337590838029849
0.31.011592945303210.0169065657278609
0.41.041656000718880.0105459391214210
0.51.059544850102420.00764235170525551
0.61.078519520889500.0105674023618843
0.71.110430190946500.0186923949510842
0.81.158172169834660.0166572738916042
0.91.226633175820260.0408897620261770



Parameters (Session):
par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = 0.1 ; par2 = 0.9 ; par3 = 0.1 ; par4 = ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
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')