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, 12 Aug 2009 05:26:50 -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/Aug/12/t12500769549arg3ozgbeu0awk.htm/, Retrieved Sat, 27 Apr 2024 17:30:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=42578, Retrieved Sat, 27 Apr 2024 17:30:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact213
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Harrel-Davis deci...] [2009-08-12 11:26:50] [768ad88abce8b6ce0be22cfe8ac9beaf] [Current]
Feedback Forum

Post a new message
Dataseries X:
613.20
614.70
618.40
628.20
629.00
629.70
630.40
630.40
639.30
639.40
640.90
640.80
642.10
645.30
647.60
648.40
648.80
648.90
648.90
648.90
650.30
650.30
650.00
650.00
650.50
658.40
666.00
675.50
680.70
690.60
690.60
691.10
692.90
693.80
692.80
697.50
699.00
702.10
704.80
715.50
721.80
726.40
727.70
727.40
731.30
734.40
733.40
733.40
738.10
742.60
747.20
751.10
752.60
758.90
759.10
764.30
765.60
767.60
767.60
765.60
768.20
770.90
775.10
777.60
778.60
778.90
779.40
779.90
781.70
789.10
788.70
788.80
790.80
794.10
795.10
797.30
803.80
805.60
804.60
804.50
805.80
806.80
805.20
814.90
816.60
819.50
823.00
824.00
831.40
831.70
831.10
832.10
833.30
838.80
838.00
837.30
994.20
994.20
994.20
994.20
994.20
1092.60
1100.00
1100.00
1092.60
1000.70
1000.70
1000.50
1000.50
1000.50
1000.50
1000.50
1000.50
1087.70
1113.20
1116.00
1085.20
1031.30
1028.70
1027.50
1027.50
1027.50
1027.50
1027.50
1027.50
1152.20
1155.30
1154.00
1119.90
1079.30
1074.30
1069.80




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42578&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42578&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42578&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'Gwilym Jenkins' @ 72.249.127.135







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1643.7574913613954.1447221227313
0.2668.30861427955116.5178403231628
0.3713.69063041531316.3382081852237
0.4752.65005763271613.8902916536438
0.5779.9928096015949.82874960313692
0.6805.57926091690811.2987947987581
0.7871.36561131999655.9307831495377
0.81002.2807671433818.0595011809478
0.91067.7381299097523.123892753405

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 643.757491361395 & 4.1447221227313 \tabularnewline
0.2 & 668.308614279551 & 16.5178403231628 \tabularnewline
0.3 & 713.690630415313 & 16.3382081852237 \tabularnewline
0.4 & 752.650057632716 & 13.8902916536438 \tabularnewline
0.5 & 779.992809601594 & 9.82874960313692 \tabularnewline
0.6 & 805.579260916908 & 11.2987947987581 \tabularnewline
0.7 & 871.365611319996 & 55.9307831495377 \tabularnewline
0.8 & 1002.28076714338 & 18.0595011809478 \tabularnewline
0.9 & 1067.73812990975 & 23.123892753405 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=42578&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]643.757491361395[/C][C]4.1447221227313[/C][/ROW]
[ROW][C]0.2[/C][C]668.308614279551[/C][C]16.5178403231628[/C][/ROW]
[ROW][C]0.3[/C][C]713.690630415313[/C][C]16.3382081852237[/C][/ROW]
[ROW][C]0.4[/C][C]752.650057632716[/C][C]13.8902916536438[/C][/ROW]
[ROW][C]0.5[/C][C]779.992809601594[/C][C]9.82874960313692[/C][/ROW]
[ROW][C]0.6[/C][C]805.579260916908[/C][C]11.2987947987581[/C][/ROW]
[ROW][C]0.7[/C][C]871.365611319996[/C][C]55.9307831495377[/C][/ROW]
[ROW][C]0.8[/C][C]1002.28076714338[/C][C]18.0595011809478[/C][/ROW]
[ROW][C]0.9[/C][C]1067.73812990975[/C][C]23.123892753405[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=42578&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=42578&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.1643.7574913613954.1447221227313
0.2668.30861427955116.5178403231628
0.3713.69063041531316.3382081852237
0.4752.65005763271613.8902916536438
0.5779.9928096015949.82874960313692
0.6805.57926091690811.2987947987581
0.7871.36561131999655.9307831495377
0.81002.2807671433818.0595011809478
0.91067.7381299097523.123892753405



Parameters (Session):
par1 = 0.10 ; par2 = 0.90 ; par3 = 0.10 ;
Parameters (R input):
par1 = 0.10 ; par2 = 0.90 ; par3 = 0.10 ;
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')