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 computationSat, 01 May 2010 17:02:35 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/May/01/t1272733465wto43fc8mm5sshj.htm/, Retrieved Sat, 20 Apr 2024 05:20:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=75154, Retrieved Sat, 20 Apr 2024 05:20:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W41
Estimated Impact151
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [Opgave 4 Oefening...] [2010-03-09 18:57:40] [b39c10f74e49ba87352399c34734b08b]
-    D    [Harrell-Davis Quantiles] [Katleen van den A...] [2010-05-01 17:02:35] [8b7f9564fd63910ef0a86e3a376c4af8] [Current]
Feedback Forum

Post a new message
Dataseries X:
285708
905858
225733
405481
845758
805651
395747
695853
175625
405534
965639
575634
576023
566089
336141
26271
586226
376484
176583
287042
997142
207694
418003
838258
848182
658215
208304
398599
438399
578393
988390
958304
318251
78307
408520
748640
258520
518618
388588
238842
328957
499266
109011
168896
798921
878732
897576
518317
228370
758167
658491
518170
398212
498286
78136
647990
357927
698061
407932
637934
397784
217980
47737
467672
67651
167524
687406
367345
157553
887453
227566
817279
697059
997185
847075
547122
996977
346998
967154
547097
586853
46728
236883
36784
277085
446998
586725
496845
86765
146966
197113
657096
337200
17273
457284
507696
547628
157435
67793
267631
518397
918560
918895
429509
289569
9010172
1810617
7111400
1611919
9712714
2913310
1013816
6714518
2414721
9114534
8214993
6215159
515612
9415340
3715267




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=75154&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=75154&T=0

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.1132865.48747984335926.4267656077
0.2232331.72769768129886.3388582586
0.3333540.35927636440612.7377721629
0.4415141.35447402331097.8192489696
0.5503308.79668993837144.9233319245
0.6593343.58367262346368.4291680774
0.7739489.34662252771006.7598129555
0.8904420.01388666952206.6272608756
0.92315603.586358741280266.70391901

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 132865.487479843 & 35926.4267656077 \tabularnewline
0.2 & 232331.727697681 & 29886.3388582586 \tabularnewline
0.3 & 333540.359276364 & 40612.7377721629 \tabularnewline
0.4 & 415141.354474023 & 31097.8192489696 \tabularnewline
0.5 & 503308.796689938 & 37144.9233319245 \tabularnewline
0.6 & 593343.583672623 & 46368.4291680774 \tabularnewline
0.7 & 739489.346622527 & 71006.7598129555 \tabularnewline
0.8 & 904420.013886669 & 52206.6272608756 \tabularnewline
0.9 & 2315603.58635874 & 1280266.70391901 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=75154&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]132865.487479843[/C][C]35926.4267656077[/C][/ROW]
[ROW][C]0.2[/C][C]232331.727697681[/C][C]29886.3388582586[/C][/ROW]
[ROW][C]0.3[/C][C]333540.359276364[/C][C]40612.7377721629[/C][/ROW]
[ROW][C]0.4[/C][C]415141.354474023[/C][C]31097.8192489696[/C][/ROW]
[ROW][C]0.5[/C][C]503308.796689938[/C][C]37144.9233319245[/C][/ROW]
[ROW][C]0.6[/C][C]593343.583672623[/C][C]46368.4291680774[/C][/ROW]
[ROW][C]0.7[/C][C]739489.346622527[/C][C]71006.7598129555[/C][/ROW]
[ROW][C]0.8[/C][C]904420.013886669[/C][C]52206.6272608756[/C][/ROW]
[ROW][C]0.9[/C][C]2315603.58635874[/C][C]1280266.70391901[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=75154&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=75154&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.1132865.48747984335926.4267656077
0.2232331.72769768129886.3388582586
0.3333540.35927636440612.7377721629
0.4415141.35447402331097.8192489696
0.5503308.79668993837144.9233319245
0.6593343.58367262346368.4291680774
0.7739489.34662252771006.7598129555
0.8904420.01388666952206.6272608756
0.92315603.586358741280266.70391901



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