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, 15 Oct 2012 17:42:34 -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/2012/Oct/15/t1350337458o90uvfcgcakhyjd.htm/, Retrieved Tue, 07 May 2024 07:58:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=178044, Retrieved Tue, 07 May 2024 07:58:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact84
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [] [2012-10-15 21:42:34] [9de610bc675449a09d9ad0dc935d1f26] [Current]
- RMPD    [Mean Plot] [] [2013-01-03 22:12:08] [e910091525aada1b7868787e40fec5af]
Feedback Forum

Post a new message
Dataseries X:
246,24
247,57
247,84
248,27
248,3
248,31
248,31
248,38
248,37
248,41
248,68
248,75
248,75
247,95
248,13
247,86
246,23
245,98
245,98
246,27
246,31
246,3
246,67
246,78
246,78
247,91
247,99
248,6
248,68
248,75
248,75
249,03
249,05
249,57
249,35
249,46
249,46
250,82
254,19
255,18
256,68
256,73
256,73
257,39
257,78
258,67
258,71
258,91
258,91
261,38
262,42
262,77
263,24
262,83
262,83
263,09
263,6
265,68
266,08
266,28
266,28
269,14
270,96
272,97
273,13
274,73
274,73
274,59
275,15
275,16
275,38
275,4




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=178044&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'Sir Maurice George Kendall' @ kendall.wessa.net







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1246.6420906154610.426177434945884
0.2247.8921882966830.322355325265056
0.3248.3964309932930.193427030202857
0.4248.9255350291280.495414944547082
0.5251.5079167003522.69206198278617
0.6256.8955369606462.61279215360656
0.7261.2732109792122.05858045435279
0.8265.5482877106072.34874820343064
0.9272.9697203142722.25587291818029

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 246.642090615461 & 0.426177434945884 \tabularnewline
0.2 & 247.892188296683 & 0.322355325265056 \tabularnewline
0.3 & 248.396430993293 & 0.193427030202857 \tabularnewline
0.4 & 248.925535029128 & 0.495414944547082 \tabularnewline
0.5 & 251.507916700352 & 2.69206198278617 \tabularnewline
0.6 & 256.895536960646 & 2.61279215360656 \tabularnewline
0.7 & 261.273210979212 & 2.05858045435279 \tabularnewline
0.8 & 265.548287710607 & 2.34874820343064 \tabularnewline
0.9 & 272.969720314272 & 2.25587291818029 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=178044&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]246.642090615461[/C][C]0.426177434945884[/C][/ROW]
[ROW][C]0.2[/C][C]247.892188296683[/C][C]0.322355325265056[/C][/ROW]
[ROW][C]0.3[/C][C]248.396430993293[/C][C]0.193427030202857[/C][/ROW]
[ROW][C]0.4[/C][C]248.925535029128[/C][C]0.495414944547082[/C][/ROW]
[ROW][C]0.5[/C][C]251.507916700352[/C][C]2.69206198278617[/C][/ROW]
[ROW][C]0.6[/C][C]256.895536960646[/C][C]2.61279215360656[/C][/ROW]
[ROW][C]0.7[/C][C]261.273210979212[/C][C]2.05858045435279[/C][/ROW]
[ROW][C]0.8[/C][C]265.548287710607[/C][C]2.34874820343064[/C][/ROW]
[ROW][C]0.9[/C][C]272.969720314272[/C][C]2.25587291818029[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=178044&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=178044&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.1246.6420906154610.426177434945884
0.2247.8921882966830.322355325265056
0.3248.3964309932930.193427030202857
0.4248.9255350291280.495414944547082
0.5251.5079167003522.69206198278617
0.6256.8955369606462.61279215360656
0.7261.2732109792122.05858045435279
0.8265.5482877106072.34874820343064
0.9272.9697203142722.25587291818029



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