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, 24 Mar 2021 04:01:26 +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/2021/Mar/24/t1616555712h1kbxnjc45svzlp.htm/, Retrieved Tue, 18 Jan 2022 12:55:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319388, Retrieved Tue, 18 Jan 2022 12:55:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact29
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [box] [2021-03-24 03:01:26] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
45.0.45.0.44.0.44.0.46.0.23.0.23.0.24.0.24.0.23.0.23.0.42.0.28.0.27.0.27.0.19.0.23.0.23.0.22.0.22.0.46.0.41.0.41.0.63.0.34.0.34.0.33.0.33.0.30.0.30.0.29.0.29.0.28.0.27.0.27.0.26.0.26.0.29.0.29.0.28.0.19.0.19.0.40.0.72.0.22.0.22.0.21.0.21.0.30.0.30.0.29.0.29.0.28.0.32.0.32.0.31.0.31.0.84.0.19.0.25.0.22.0.20.0.34.0.34.0.33.0.33.0.30.0.30.0.29.0.29.0.26.0.34.0.34.0.19.0.31.0.31.0.30.0.30.0.40.0.40.0.45.0.45.0.44.0.44.0.35.0.35.0.42.0.42.0.41.0.41.0.32.0.46.0.46.0.45.0.45.0.24.0.24.0.23.0.23.0.1826.0.26.0.17.0.22.0.22.0.21.0.21.0.59.0.34.0.34.0.30.0.30.0.29.0.29.0.36.0.23.0.23.0.22.0.22.0.18.0.18.0.27.0.27.0.25.0.25.0.25.0.25.0.45.0.144.0.22.0.22.0.20.0.27.0.27.0.20.0.36.0.36.0.35.0.35.0.34.0.34.0.33.0.33.0.30.0.23.0.30.0.37.0.37.0.36.0.36.0.46.0.46.0.45.0.33.0.33.0.31.0.31.0.30.0.30.0.23.0.23.0.25.0.25.0.24.0.24.0.32.0.25.0.25.0.24.0.24.0.18.0.67.0.67.0.24.0.27.0.27.0.26.0.26.0.66.0.66.0.70.0.70.0.69.0.69.0.47.0.47.0.46.0.46.0.30.0.67.0.40.0.22.0.25.0.53.0.20.0.20.0.19.0.19.0.29.0.29.0.23.0.23.0.22.0.26.0.26.0.25.0.25.0.40.0.39.0.39.0.23.0.23.0.22.0.22.0.27.0.35.0.35.0.34.0.34.0.20.0.517.0.55.0.55.0.54.0.54.0.22.0.44.0.18.0.18.0.17.0.17.0.65.0.23.0.23.0.22.0.22.0.25.0.25.0.24.0.24.0.46.0.20.0.23.0.23.0.22.0.22.0.1207.0.37.0.37.0.36.0.36.0.21.0.38.0.38.0.37.0.37.0.61.0.22.0.22.0.21.0.21.0.44.0.44.0.43.0.43.0.59.0.45.0.34.0.34.0.33.0.33.0.48.0.57.0.57.0.20.0.20.0.20.0.18.0.18.0.127.0.34.0.34.0.33.0.33.0.95.0.40.0.40.0.39.0.37.0.37.0.36.0.36.0.36.0.36.0.35.0.35.0.23.0.39.0.2888.0.26.0.29.0.42.0.42.0.41.0.41.0.1029.0.23.0.23.0.22.0.22.0.23.0.18.0.39.0.39.0.38.0.38.0.26.0.25.0.25.0.41.0.29.0.29.0.28.0.32.0.32.0.31.0.31.0.21.0.21.0.20.0.20.0.17.0.26.0.25.0.25.0.25.0.35.0.35.0.34.0.34.0.30.0.30.0.29.0.29.0.35.0.25.0.35.0.35.0.34.0.34.0.33.0.38.0.38.0.37.0.37.0.18.0.23.0.23.0.22.0.22.0.31.0.31.0.30.0.30.0.28.0.26.0.19.0.26.0.26.0.22.0.22.0.21.0.21.0.31.0.31.0.30.0.30.0.40.0.40.0.39.0.39.0.55.0.55.0.54.0.54.0.19.0.24.0.24.0.23.0.23.0.28.0.34.0.34.0.33.0.33.0.20.0.42.0.42.0.41.0.41.0.30.0.30.0.33.0.24.0.64.0.64.0.63.0.63.0.30.0.24.0.24.0.23.0.23.0.32.0.32.0.31.0.31.0.15.0.18.0.18.0.17.0.17.0.25.0.25.0.24.0.24.0.39.0.1767.0.32.0.32.0.31.0.23.0.23.0.22.0.22.0.44.0.44.0.43.0.43.0.91.0.41.0.31.0.31.0.21.0.32.0.32.0.31.0.31.0.41.0.40.0.40.0.18.0.23.0.23.0.22.0.47.0.32.0.32.0.31.0.31.0.32.0.32.0.31.0.32.0.28.0.45.0.45.0.45.0.44.0.44.0.38.0.52.0.52.0.51.0.51.0.33.0.34.0.34.0.33.0.33.0.34.0.34.0.34.0.33.0.33.0.38.0.34.0.34.0.33.0.33.0.42.0.39.0.20.0.23.0.23.0.22.0.22.0.36.0.24.0.24.0.23.0.23.0.54.0.54.0.53.0.53.0.32.0.53.0.53.0.33.0.18.0.34.0.34.0.33.0.33.0.25.0.25.0.24.0.24.0.63.0.47.0.25.0.25.0.24.0.24.0.23.0.23.0.32.0.46.0.72.0.72.0.71.0.71.0.42.0.24.0.24.0.39.0.39.0.38.0.38.0.37.0.38.0.38.0.37.0.37.0.26.0.26.0.25.0.25.0.19.0.23.0.23.0.22.0.22.0.49.0.40.0.40.0.39.0.39.0.33.0.33.0.32.0.32.0.36.0.36.0.35.0.35.0.62.0.37.0.36.0.86.0.39.0.24.0.36.0.35.0.35.0.39.0.39.0.38.0.38.0.26.0.26.0.25.0.25.0.21.0.32.0.32.0.31.0.31.0.25.0.63.0.34.0.32.0.32.0.31.0.31.0.39.0.18.0.40.0.40.0.18.0.21.0.42.0.56.0.54.0.40.0.40.0.39.0.39.0.39.0.29.0.18.0.22.0.22.0.21.0.21.0.55.0.26.0.26.0.25.0.25.0.31.0.26.0.32.0.19.0.60.0.19.0.25.0.82.0.35.0.24.0.34.0.28.0.28.0.27.0.27.0.22.0.22.0.24.0.24.0.23.0.23.0.27.0.28.0.27.0.52.0.35.0.35.0.34.0.34.0.23.0.20.0.35.0.22.0.21.0.18.0.46.0.36.0.28.0.73.0.84.0.18.0.25.0.23.0.20.0.23.0.65.0.27.0.27.0.26.0.26.0.39.0.26.0.36.0.19.0.59.0.18.0.35.0.35.0.34.0.34.0.22.0.22.0.21.0.21.0.105.0.31.0.31.0.30.0.30.0.29.0.39.0.39.0.38.0.38.0.31.0.32.0.37.0.19.0.19.0.37.0.21.0.42.0.122.0.47.0.23.0.27.0.25.0.48.0.48.0.47.0.47.0.24.0.34.0.21.0.34.0.92.0.52.0.52.0.51.0.51.0.29.0.20.0.35.0.30.0.57.0.19.0.23.0.66.0.38.0.38.0.37.0.37.0.34.0.18.0.62.0.50.0.50.0.49.0.49.0.44.0.43.0.43.0.45.0.22.0.23.0.23.0.22.0.22.0.28.0.26.0.44.0.27.0.27.0.26.0.26.0.40.0.50.0.88.0.49.0.27.0.27.0.26.0.26.0.45.0.49.0.20.0.20.0.19.0.19.0.20.0.44.0.45.0.44.0.44.0.25.0.18.0.119.0.119.0.118.0.118.0.46.0.34.0.28.0.27.0.24.0.38.0.37.0.30.0.70.0.21.0.21.0.20.0.20.0.26.0.22.0.19.0.22.0.46.0.41.0.41.0.40.0.40.0.27.0.37.0.37.0.38.0.38.0.20.0.40.0.25.0.25.0.29.0.23.0.23.0.22.0.22.0.23.0.33.0.53.0.53.0.52.0.52.0.30.0.75.0.19.0.18.0.27.0.29.0.31.0.54.0.23.0.23.0.22.0.22.0.14.0.25.0.64.0.38.0.38.0.37.0.37.0.28.0.28.0.27.0.42.0.15.0.15.0.14.0.40.0.27.0.20.0.17.0.43.0.22.0.31.0.35.0.52.0.26.0.27.0.52.0.24.0.24.0.23.0.23.0.30.0.48.0.19.0.35.0.45.0.21.0.27.0.19.0.29.0.51.0.21.0.57.0.42.0.36.0.24.0.30.0.18.0.21.0.33.0.21.0.21.0.43.0.36.0.30.0.28.0.50.0.3240.0.32.0.32.0.31.0.31.0.26.0.31.0.25.0.19.0.20.0.26.0.86.0.17.0.25.0.20.0.32.0.22.0.24.0.24.0.23.0.23.0.28.0.33.0.33.0.32.0.38.0.19.0.20.0.28.0.25.0.29.0.45.0.30.0.18.0.74.0.19.0.18.0.30.0.36.0.36.0.35.0.35.0.41.0.26.0.26.0.25.0.25.0.19.0.32.0.2298.0.33.0.33.0.32.0.34.0.33.0.33.0.32.0.32.0.34.0.34.0.33.0.33.0.29.0.25.0.25.0.24.0.24.0




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319388&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319388&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319388&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 Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center



Parameters (Session):
par1 = 0.95 ; par2 = 0.999 ; par3 = 0.01 ;
Parameters (R input):
par1 = 0.95 ; par2 = 0.999 ; par3 = 0.01 ;
R code (references can be found in the software module):
par3 <- '0.01'
par2 <- '0.999'
par1 <- '0.95'
par1 <- as(par1,'numeric')
par2 <- as(par2,'numeric')
par3 <- as(par3,'numeric')
library(Hmisc)
myseq <- seq(par1, par2, par3)
x <- as.numeric(na.omit(x))
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,signif(as.matrix(hd[i])[1,1],6))
a<-table.element(a,signif(as.matrix(attr(hd,'se')[i])[1,1],6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')