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 computationWed, 08 Oct 2014 15:23:34 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Oct/08/t14127782441xpyencathlbew5.htm/, Retrieved Sat, 11 May 2024 22:18:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=239706, Retrieved Sat, 11 May 2024 22:18:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact117
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [Aankoop nieuwe wa...] [2014-09-22 11:58:33] [2372895ce70cf55c3bda6a5859db5ceb]
- RMPD    [Harrell-Davis Quantiles] [] [2014-10-08 14:23:34] [d49f5b304cc347c7e802f63d6679cbb3] [Current]
- RMP       [Central Tendency] [] [2014-10-13 13:42:27] [859c5b1ac426e9908e42a61e45afb281]
- RMP       [Mean versus Median] [] [2014-10-13 13:49:49] [859c5b1ac426e9908e42a61e45afb281]
- RMP       [Mean Plot] [] [2014-10-13 19:38:12] [859c5b1ac426e9908e42a61e45afb281]
Feedback Forum

Post a new message
Dataseries X:
103.77
103.82
103.86
103.9
103.63
103.65
103.7
103.77
103.94
104.03
104.03
104.29
104.35
104.67
104.73
104.86
104.05
104.15
104.27
104.33
104.41
104.4
104.41
104.6
104.61
104.65
104.55
104.51
104.74
104.89
104.91
104.93
104.95
104.97
105.16
105.29
105.35
105.36
105.45
105.3
105.73
105.86
105.85
105.95
105.97
106.15
105.37
105.39
105.39
105.38
105.23
105.34
104.98
105.16
105.27
105.27
105.33
105.33
105.46
105.54
105.59
105.57
105.62
105.57
105.33
105.34
105.5
105.47
105.59
105.65
105.8
105.87




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=239706&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.1103.8968234786280.103769949161238
0.2104.2479387053230.145843910924002
0.3104.5419166211960.139441532345471
0.4104.8270139541860.154047964582675
0.5105.1143221115990.151419099519849
0.6105.3056511705440.0576874615033237
0.7105.3926914152150.0496276712135845
0.8105.5296247845540.0678146660389986
0.9105.7481927070660.0993428723497842

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 103.896823478628 & 0.103769949161238 \tabularnewline
0.2 & 104.247938705323 & 0.145843910924002 \tabularnewline
0.3 & 104.541916621196 & 0.139441532345471 \tabularnewline
0.4 & 104.827013954186 & 0.154047964582675 \tabularnewline
0.5 & 105.114322111599 & 0.151419099519849 \tabularnewline
0.6 & 105.305651170544 & 0.0576874615033237 \tabularnewline
0.7 & 105.392691415215 & 0.0496276712135845 \tabularnewline
0.8 & 105.529624784554 & 0.0678146660389986 \tabularnewline
0.9 & 105.748192707066 & 0.0993428723497842 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=239706&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]103.896823478628[/C][C]0.103769949161238[/C][/ROW]
[ROW][C]0.2[/C][C]104.247938705323[/C][C]0.145843910924002[/C][/ROW]
[ROW][C]0.3[/C][C]104.541916621196[/C][C]0.139441532345471[/C][/ROW]
[ROW][C]0.4[/C][C]104.827013954186[/C][C]0.154047964582675[/C][/ROW]
[ROW][C]0.5[/C][C]105.114322111599[/C][C]0.151419099519849[/C][/ROW]
[ROW][C]0.6[/C][C]105.305651170544[/C][C]0.0576874615033237[/C][/ROW]
[ROW][C]0.7[/C][C]105.392691415215[/C][C]0.0496276712135845[/C][/ROW]
[ROW][C]0.8[/C][C]105.529624784554[/C][C]0.0678146660389986[/C][/ROW]
[ROW][C]0.9[/C][C]105.748192707066[/C][C]0.0993428723497842[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=239706&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=239706&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.1103.8968234786280.103769949161238
0.2104.2479387053230.145843910924002
0.3104.5419166211960.139441532345471
0.4104.8270139541860.154047964582675
0.5105.1143221115990.151419099519849
0.6105.3056511705440.0576874615033237
0.7105.3926914152150.0496276712135845
0.8105.5296247845540.0678146660389986
0.9105.7481927070660.0993428723497842



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = 0.1 ; par2 = 0.9 ; par3 = 0.1 ;
R code (references can be found in the software module):
par3 <- '0.1'
par2 <- '0.9'
par1 <- '0.1'
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')