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 computationMon, 09 Mar 2009 10:11:05 -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/2009/Mar/09/t1236617162czpan65o9mua21n.htm/, Retrieved Mon, 29 Apr 2024 04:06:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=38790, Retrieved Mon, 29 Apr 2024 04:06:51 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact155
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [Opgave 4 inschrij...] [2009-03-09 15:51:02] [74be16979710d4c4e7c6647856088456]
-    D    [Harrell-Davis Quantiles] [opgave 4 oef 2 Do...] [2009-03-09 16:11:05] [d41d8cd98f00b204e9800998ecf8427e] [Current]
-   PD      [Harrell-Davis Quantiles] [opgave 4 oef 2 II...] [2009-03-09 16:53:41] [74be16979710d4c4e7c6647856088456]
Feedback Forum

Post a new message
Dataseries X:
158,8
158,8
157,63
157,8
156,77
156,57
157,33
157,26
157,49
157,68
158,23
158,04
158,17
158,18
159,71
158,7
158,5
158,15
157,69
157,69
158,2
159,25
158,71
158,75
158,75
158,03
157,88
157,47
157,06
156,8
156,76
156,75
156,66
155,92
156,1
156,43
157,39
157,39
157,55
157,75
156,79
156,24
156,8
156,8
156,2
155,25
154,81
154,94
154,97
154,93
149,62
148,6
146,27
145,87
144,23
144,23
142,22
138,85
138,54
137,64
137,38
137,38
136,1
133,58
132,72
130,59
129,23
129,22
126,62
125,83
125,54
125,55
125,53




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time27 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 27 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=38790&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]27 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=38790&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=38790&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 time27 seconds
R Server'George Udny Yule' @ 72.249.76.132







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1130.8281001390713.10454519409545
0.2139.6543561169723.71481154073768
0.3149.2558657191974.70925298886557
0.4155.3575702094091.42049888946957
0.5156.6606309909030.305268254899764
0.6157.1758036031380.284967595341614
0.7157.6232092924060.183261777968625
0.8158.0283335228230.189658226587924
0.9158.5800047556190.204381781745016

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 130.828100139071 & 3.10454519409545 \tabularnewline
0.2 & 139.654356116972 & 3.71481154073768 \tabularnewline
0.3 & 149.255865719197 & 4.70925298886557 \tabularnewline
0.4 & 155.357570209409 & 1.42049888946957 \tabularnewline
0.5 & 156.660630990903 & 0.305268254899764 \tabularnewline
0.6 & 157.175803603138 & 0.284967595341614 \tabularnewline
0.7 & 157.623209292406 & 0.183261777968625 \tabularnewline
0.8 & 158.028333522823 & 0.189658226587924 \tabularnewline
0.9 & 158.580004755619 & 0.204381781745016 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=38790&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]130.828100139071[/C][C]3.10454519409545[/C][/ROW]
[ROW][C]0.2[/C][C]139.654356116972[/C][C]3.71481154073768[/C][/ROW]
[ROW][C]0.3[/C][C]149.255865719197[/C][C]4.70925298886557[/C][/ROW]
[ROW][C]0.4[/C][C]155.357570209409[/C][C]1.42049888946957[/C][/ROW]
[ROW][C]0.5[/C][C]156.660630990903[/C][C]0.305268254899764[/C][/ROW]
[ROW][C]0.6[/C][C]157.175803603138[/C][C]0.284967595341614[/C][/ROW]
[ROW][C]0.7[/C][C]157.623209292406[/C][C]0.183261777968625[/C][/ROW]
[ROW][C]0.8[/C][C]158.028333522823[/C][C]0.189658226587924[/C][/ROW]
[ROW][C]0.9[/C][C]158.580004755619[/C][C]0.204381781745016[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=38790&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=38790&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.1130.8281001390713.10454519409545
0.2139.6543561169723.71481154073768
0.3149.2558657191974.70925298886557
0.4155.3575702094091.42049888946957
0.5156.6606309909030.305268254899764
0.6157.1758036031380.284967595341614
0.7157.6232092924060.183261777968625
0.8158.0283335228230.189658226587924
0.9158.5800047556190.204381781745016



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