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 computationTue, 21 Apr 2009 10:53:47 -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/Apr/21/t124033306142x8fdflqlr59tn.htm/, Retrieved Sun, 12 May 2024 11:53:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=39251, Retrieved Sun, 12 May 2024 11:53:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact250
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [Silke van den Ber...] [2009-04-21 16:53:47] [900fe54243512ff0c75e5ed1f9ef5c37] [Current]
Feedback Forum

Post a new message
Dataseries X:
493395,00
487190,00
519493,00
519453,00
538588,00
438224,00
542034,00
512027,00
619880,00
533737,00
573789,00
589213,00
532168,00
551102,00
593789,00
527106,00
547327,00
601305,00
610872,00
601325,00
642143,00
614216,00
657979,00
673098,00
602297,00
615381,00
703671,00
733852,00
716596,00
745798,00
742027,10
679181,20
739022,70
645410,60
729382,10
671052,70
744954,80
677639,30
778207,20
763316,20
658531,60
831700,10
664156,30
621402,10
683588,70
600023,80
643273,80
653615,90
620177,50
574128,80
599828,00
599369,40
596617,70
616114,60
510226,90
493960,10
634503,30
588556,20
603239,00
617458,20
646543,50
680125,60
731595,80
759600,30
785031,70
849573,30
762342,00
815346,60
929603,20
784057,50
944667,70
1007258,30
664292,70
873207,40
1146510,00
1417266,80
1089387,90
1373379,70
1009397,60
818175,10
1003458,10
961142,70
1121906,60
1141713,30
1042352,60
992223,60
920525,30
1076093,40
967880,40
1236416,10




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39251&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 Ronald Aylmer Fisher' @ 193.190.124.24







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1528588.77429495412348.3085889872
0.2579943.89929826517902.0860211726
0.3606708.5296222278590.05704822936
0.4631759.77707118215552.9837103551
0.5665829.5682149118065.8543420779
0.6714224.86900791427685.9532672442
0.7772416.46836372131816.2880740501
0.8892689.50381089663011.7351177587
0.91043013.2185266147939.4258295528

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 528588.774294954 & 12348.3085889872 \tabularnewline
0.2 & 579943.899298265 & 17902.0860211726 \tabularnewline
0.3 & 606708.529622227 & 8590.05704822936 \tabularnewline
0.4 & 631759.777071182 & 15552.9837103551 \tabularnewline
0.5 & 665829.56821491 & 18065.8543420779 \tabularnewline
0.6 & 714224.869007914 & 27685.9532672442 \tabularnewline
0.7 & 772416.468363721 & 31816.2880740501 \tabularnewline
0.8 & 892689.503810896 & 63011.7351177587 \tabularnewline
0.9 & 1043013.21852661 & 47939.4258295528 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=39251&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]528588.774294954[/C][C]12348.3085889872[/C][/ROW]
[ROW][C]0.2[/C][C]579943.899298265[/C][C]17902.0860211726[/C][/ROW]
[ROW][C]0.3[/C][C]606708.529622227[/C][C]8590.05704822936[/C][/ROW]
[ROW][C]0.4[/C][C]631759.777071182[/C][C]15552.9837103551[/C][/ROW]
[ROW][C]0.5[/C][C]665829.56821491[/C][C]18065.8543420779[/C][/ROW]
[ROW][C]0.6[/C][C]714224.869007914[/C][C]27685.9532672442[/C][/ROW]
[ROW][C]0.7[/C][C]772416.468363721[/C][C]31816.2880740501[/C][/ROW]
[ROW][C]0.8[/C][C]892689.503810896[/C][C]63011.7351177587[/C][/ROW]
[ROW][C]0.9[/C][C]1043013.21852661[/C][C]47939.4258295528[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=39251&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39251&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.1528588.77429495412348.3085889872
0.2579943.89929826517902.0860211726
0.3606708.5296222278590.05704822936
0.4631759.77707118215552.9837103551
0.5665829.5682149118065.8543420779
0.6714224.86900791427685.9532672442
0.7772416.46836372131816.2880740501
0.8892689.50381089663011.7351177587
0.91043013.2185266147939.4258295528



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