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, 11 May 2011 20:06:40 +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/2011/May/11/t1305144274vtkk27jcppyrejj.htm/, Retrieved Sun, 12 May 2024 01:17:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=121493, Retrieved Sun, 12 May 2024 01:17:37 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W42
Estimated Impact174
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Harrell-Davis Quantiles] [iko opgave 4 oefe...] [2011-05-11 20:06:40] [93d78dde8d64c5a73537ad1fcc88d508] [Current]
Feedback Forum

Post a new message
Dataseries X:
5939520,00
89948768,00
80953652,00
85942882,00
8944937,00
82975432,00
24940816,00
21973899,00
37950221,00
45949881,00
85950373,00
48960313,00
81954506,00
24960419,00
65973338,00
22950513,00
54963528,00
90995659,00
91967517,00
28999053,00
96990529,00
38979852,00
81496957,00
74982424,00
70976192,00
90990000,00
12998850,00
92986156,00
67994976,00
91022206,00
87992489,00
421022698,00
11018942,00
79100042,00
65996442,00
51000620,00
12996871,00
44994249,00
99996135,00
91977037,00
63974211,00
15998036,00
65974265,00
33984410,00
45939098,00
67935827,00
66921032,00
89911836,00
71890975,00
72880342,00
28871286,00
41844334,00
82847667,00
24871401,00
3867451,00
99896846,00
41890361,00
45884264,00
69884586,00
95896400,00
39904491,00
81900399,00
27909863,00
88900470,00
89917101,00
2945005,00
4934411,00
61957264,00
31946515,00
3938309,00
52933321,00
21947613,00




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=121493&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=121493&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=121493&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'RServer@AstonUniversity' @ vre.aston.ac.uk







Harrell-Davis Quantiles
quantilesvaluestandard error
0.112139941.61767034728752.35198392
0.225009337.33933364335056.86997722
0.336216350.82508226044967.87555316
0.447779143.8643036576236.23916166
0.561281438.5868176966972.03378753
0.671395039.05652645009640.86435427
0.780876683.3713874249930.47832724
0.888058700.14108952599301.2077419
0.992624812.13338441789034.18276873

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.1 & 12139941.6176703 & 4728752.35198392 \tabularnewline
0.2 & 25009337.3393336 & 4335056.86997722 \tabularnewline
0.3 & 36216350.8250822 & 6044967.87555316 \tabularnewline
0.4 & 47779143.864303 & 6576236.23916166 \tabularnewline
0.5 & 61281438.586817 & 6966972.03378753 \tabularnewline
0.6 & 71395039.0565264 & 5009640.86435427 \tabularnewline
0.7 & 80876683.371387 & 4249930.47832724 \tabularnewline
0.8 & 88058700.1410895 & 2599301.2077419 \tabularnewline
0.9 & 92624812.1333844 & 1789034.18276873 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=121493&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]12139941.6176703[/C][C]4728752.35198392[/C][/ROW]
[ROW][C]0.2[/C][C]25009337.3393336[/C][C]4335056.86997722[/C][/ROW]
[ROW][C]0.3[/C][C]36216350.8250822[/C][C]6044967.87555316[/C][/ROW]
[ROW][C]0.4[/C][C]47779143.864303[/C][C]6576236.23916166[/C][/ROW]
[ROW][C]0.5[/C][C]61281438.586817[/C][C]6966972.03378753[/C][/ROW]
[ROW][C]0.6[/C][C]71395039.0565264[/C][C]5009640.86435427[/C][/ROW]
[ROW][C]0.7[/C][C]80876683.371387[/C][C]4249930.47832724[/C][/ROW]
[ROW][C]0.8[/C][C]88058700.1410895[/C][C]2599301.2077419[/C][/ROW]
[ROW][C]0.9[/C][C]92624812.1333844[/C][C]1789034.18276873[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=121493&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=121493&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.112139941.61767034728752.35198392
0.225009337.33933364335056.86997722
0.336216350.82508226044967.87555316
0.447779143.8643036576236.23916166
0.561281438.5868176966972.03378753
0.671395039.05652645009640.86435427
0.780876683.3713874249930.47832724
0.888058700.14108952599301.2077419
0.992624812.13338441789034.18276873



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