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, 17 Feb 2012 11:03:19 -0500
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/Feb/17/t1329494640rkb0wdwlqb0yn2z.htm/, Retrieved Thu, 25 Apr 2024 04:59:53 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=162770, Retrieved Thu, 25 Apr 2024 04:59:53 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKEYWORD: KDG201142
Estimated Impact142
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [Nieuwe personenwa...] [2012-02-17 15:47:58] [cb8210d8f054d565da1456a9f4ea534d]
-   PD    [Harrell-Davis Quantiles] [Pakketreizen, Cit...] [2012-02-17 16:03:19] [a05a60a2f3f20a69630af127f5d09cc4] [Current]
- R  D      [Harrell-Davis Quantiles] [Harrel-Davis Perc...] [2012-12-27 19:13:58] [41982c7b3984978a38ca838fef047984]
- RMPD      [Univariate Data Series] [Inschrijving nieu...] [2012-12-27 19:29:42] [41982c7b3984978a38ca838fef047984]
Feedback Forum

Post a new message
Dataseries X:
98.01
99.2
100.7
106.41
107.51
107.1
99.75
98.96
107.26
107.11
107.2
107.65
104.78
105.56
107.95
107.11
107.47
107.06
99.71
99.6
107.19
107.26
113.24
113.52
110.48
111.41
115.5
118.32
118.42
117.5
110.23
109.19
118.41
118.3
116.1
114.11
113.41
114.33
116.61
123.64
123.77
123.39
116.03
114.95
123.4
123.53
114.45
114.26
114.35
112.77
115.31
114.93
116.38
115.07
105
103.43
114.52
115.04
117.16
115




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=162770&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.1101.2645508493242.01902297733085
0.2105.9998121900351.18036796245142
0.3107.3723824257010.507273680703393
0.4109.2959467417471.87227684398105
0.5112.5853226223671.67225445371182
0.6114.3635216231830.59671125037237
0.7115.260040863070.527998070208397
0.8116.7210065908610.910777296319773
0.9120.0977277650952.09681425552754

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 101.264550849324 & 2.01902297733085 \tabularnewline
0.2 & 105.999812190035 & 1.18036796245142 \tabularnewline
0.3 & 107.372382425701 & 0.507273680703393 \tabularnewline
0.4 & 109.295946741747 & 1.87227684398105 \tabularnewline
0.5 & 112.585322622367 & 1.67225445371182 \tabularnewline
0.6 & 114.363521623183 & 0.59671125037237 \tabularnewline
0.7 & 115.26004086307 & 0.527998070208397 \tabularnewline
0.8 & 116.721006590861 & 0.910777296319773 \tabularnewline
0.9 & 120.097727765095 & 2.09681425552754 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=162770&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]101.264550849324[/C][C]2.01902297733085[/C][/ROW]
[ROW][C]0.2[/C][C]105.999812190035[/C][C]1.18036796245142[/C][/ROW]
[ROW][C]0.3[/C][C]107.372382425701[/C][C]0.507273680703393[/C][/ROW]
[ROW][C]0.4[/C][C]109.295946741747[/C][C]1.87227684398105[/C][/ROW]
[ROW][C]0.5[/C][C]112.585322622367[/C][C]1.67225445371182[/C][/ROW]
[ROW][C]0.6[/C][C]114.363521623183[/C][C]0.59671125037237[/C][/ROW]
[ROW][C]0.7[/C][C]115.26004086307[/C][C]0.527998070208397[/C][/ROW]
[ROW][C]0.8[/C][C]116.721006590861[/C][C]0.910777296319773[/C][/ROW]
[ROW][C]0.9[/C][C]120.097727765095[/C][C]2.09681425552754[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=162770&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=162770&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.1101.2645508493242.01902297733085
0.2105.9998121900351.18036796245142
0.3107.3723824257010.507273680703393
0.4109.2959467417471.87227684398105
0.5112.5853226223671.67225445371182
0.6114.3635216231830.59671125037237
0.7115.260040863070.527998070208397
0.8116.7210065908610.910777296319773
0.9120.0977277650952.09681425552754



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