Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_harrell_davis.wasp
Title produced by softwareHarrell-Davis Quantiles
Date of computationMon, 15 Dec 2014 10:41:06 +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/2014/Dec/15/t1418640567lqfpqg7xhhv3vvd.htm/, Retrieved Thu, 16 May 2024 22:03:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268081, Retrieved Thu, 16 May 2024 22:03:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact48
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Paired and Unpaired Two Samples Tests about the Mean] [] [2010-11-01 13:07:12] [b98453cac15ba1066b407e146608df68]
- RMP   [Paired and Unpaired Two Samples Tests about the Mean] [] [2014-10-21 07:47:40] [32b17a345b130fdf5cc88718ed94a974]
- RMPD    [Survey Scores] [] [2014-12-15 10:25:50] [fda96889f4ef6d31c0c28fd64d281011]
- RM D        [Harrell-Davis Quantiles] [] [2014-12-15 10:41:06] [f11ff77f11120bba23ccca75f7c5b5e0] [Current]
Feedback Forum

Post a new message
Dataseries X:
93
103
102
115
97
99
104
124
88
104
106
77
101
93
98
120
131
96
106
107
111
107
109
117
124
132
91
103
90
70
104
107
92
121
104
90
107
101
109
108
70
96
128
69
105
107
88
94
156
118
92
102
64
109
86
115
111
93
89
102
91
104
133
77
110
75
108
115
86
64
116
107
96
110
84
99
100
111
97
83
78
94
79
105
88
111
95
85
132
89
103
90
117
100
82
90
92
96
86
101
127
113
86
109
91
111
104
106
81
106




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net

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

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







Harrell-Davis Quantiles
quantilesvaluestandard error
0.2590.39534127369631.42380073463465
0.5101.6486793366831.75069593522899
0.75109.2185070654041.38259367007638

\begin{tabular}{lllllllll}
\hline
Harrell-Davis Quantiles \tabularnewline
quantiles & value & standard error \tabularnewline
0.25 & 90.3953412736963 & 1.42380073463465 \tabularnewline
0.5 & 101.648679336683 & 1.75069593522899 \tabularnewline
0.75 & 109.218507065404 & 1.38259367007638 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268081&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.25[/C][C]90.3953412736963[/C][C]1.42380073463465[/C][/ROW]
[ROW][C]0.5[/C][C]101.648679336683[/C][C]1.75069593522899[/C][/ROW]
[ROW][C]0.75[/C][C]109.218507065404[/C][C]1.38259367007638[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268081&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268081&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.2590.39534127369631.42380073463465
0.5101.6486793366831.75069593522899
0.75109.2185070654041.38259367007638



Parameters (Session):
par1 = 1 2 3 4 5 6 7 ;
Parameters (R input):
par1 = 0.25 ; par2 = 0.75 ; par3 = 0.25 ;
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')