Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_percentiles.wasp
Title produced by softwarePercentiles
Date of computationSun, 16 Dec 2012 04:25:20 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/16/t13556499459k97o2qq5gha26h.htm/, Retrieved Fri, 29 Mar 2024 08:34:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=200182, Retrieved Fri, 29 Mar 2024 08:34:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact95
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Stem-and-leaf Plot] [] [2012-12-16 08:26:06] [5bd5238c609be1efcd3f9af130e08c87]
- RMP     [Percentiles] [] [2012-12-16 09:25:20] [14762276d088da8d9efe369819cbb035] [Current]
Feedback Forum

Post a new message
Dataseries X:
13.5
8.4
10.5
9
9.2
9.7
6.6
10.6
10.1
7.1
8
7.9
6.8
9.5
8.1
13.5
9.9
6.9
7.5
11.1
8.2
8
7.7
7.4
6.5
9.5
8.2
6.9
7.2
8.2
9.6
7.2
8.8
11.3
8.5
9.4
10.5
6.9
6.5
7.5
7.1
13.2
7.7
5.9
5.2
5.6
11.7
6
7.8
6.5




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' @ fisher.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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=200182&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' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=200182&T=0

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







Percentiles - Ungrouped Data
pWeighted Average at XnpWeighted Average at X(n+1)pEmpirical Distribution FunctionEmpirical Distribution Function - AveragingEmpirical Distribution Function - InterpolationClosest ObservationTrue Basic - Statistics Graphics ToolkitMS Excel (old versions)
0.055.755.7655.95.95.9455.95.7355.9
0.16.56.56.56.56.56.56.56.5
0.156.556.5656.66.66.676.66.5356.6
0.26.96.96.96.96.96.96.96.9
0.2577.057.17.17.17.16.957.1
0.37.27.27.27.27.27.27.27.2
0.357.457.4857.57.57.57.57.4157.5
0.47.77.77.77.77.77.77.77.7
0.457.857.8957.97.97.9057.97.8057.9
0.588.0588.058.0588.058.05
0.558.28.28.28.28.28.28.28.2
0.68.48.468.48.458.448.48.448.5
0.658.99.03998.9799.179
0.79.49.479.49.459.439.49.439.5
0.759.559.6259.69.69.5759.69.6759.6
0.89.910.069.9109.949.99.9410.1
0.8510.510.53510.510.510.510.510.56510.5
0.911.111.2811.111.211.1211.111.1211.3
0.9512.4513.33513.213.212.52513.213.36513.2

\begin{tabular}{lllllllll}
\hline
Percentiles - Ungrouped Data \tabularnewline
p & Weighted Average at Xnp & Weighted Average at X(n+1)p & Empirical Distribution Function & Empirical Distribution Function - Averaging & Empirical Distribution Function - Interpolation & Closest Observation & True Basic - Statistics Graphics Toolkit & MS Excel (old versions) \tabularnewline
0.05 & 5.75 & 5.765 & 5.9 & 5.9 & 5.945 & 5.9 & 5.735 & 5.9 \tabularnewline
0.1 & 6.5 & 6.5 & 6.5 & 6.5 & 6.5 & 6.5 & 6.5 & 6.5 \tabularnewline
0.15 & 6.55 & 6.565 & 6.6 & 6.6 & 6.67 & 6.6 & 6.535 & 6.6 \tabularnewline
0.2 & 6.9 & 6.9 & 6.9 & 6.9 & 6.9 & 6.9 & 6.9 & 6.9 \tabularnewline
0.25 & 7 & 7.05 & 7.1 & 7.1 & 7.1 & 7.1 & 6.95 & 7.1 \tabularnewline
0.3 & 7.2 & 7.2 & 7.2 & 7.2 & 7.2 & 7.2 & 7.2 & 7.2 \tabularnewline
0.35 & 7.45 & 7.485 & 7.5 & 7.5 & 7.5 & 7.5 & 7.415 & 7.5 \tabularnewline
0.4 & 7.7 & 7.7 & 7.7 & 7.7 & 7.7 & 7.7 & 7.7 & 7.7 \tabularnewline
0.45 & 7.85 & 7.895 & 7.9 & 7.9 & 7.905 & 7.9 & 7.805 & 7.9 \tabularnewline
0.5 & 8 & 8.05 & 8 & 8.05 & 8.05 & 8 & 8.05 & 8.05 \tabularnewline
0.55 & 8.2 & 8.2 & 8.2 & 8.2 & 8.2 & 8.2 & 8.2 & 8.2 \tabularnewline
0.6 & 8.4 & 8.46 & 8.4 & 8.45 & 8.44 & 8.4 & 8.44 & 8.5 \tabularnewline
0.65 & 8.9 & 9.03 & 9 & 9 & 8.97 & 9 & 9.17 & 9 \tabularnewline
0.7 & 9.4 & 9.47 & 9.4 & 9.45 & 9.43 & 9.4 & 9.43 & 9.5 \tabularnewline
0.75 & 9.55 & 9.625 & 9.6 & 9.6 & 9.575 & 9.6 & 9.675 & 9.6 \tabularnewline
0.8 & 9.9 & 10.06 & 9.9 & 10 & 9.94 & 9.9 & 9.94 & 10.1 \tabularnewline
0.85 & 10.5 & 10.535 & 10.5 & 10.5 & 10.5 & 10.5 & 10.565 & 10.5 \tabularnewline
0.9 & 11.1 & 11.28 & 11.1 & 11.2 & 11.12 & 11.1 & 11.12 & 11.3 \tabularnewline
0.95 & 12.45 & 13.335 & 13.2 & 13.2 & 12.525 & 13.2 & 13.365 & 13.2 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=200182&T=1

[TABLE]
[ROW][C]Percentiles - Ungrouped Data[/C][/ROW]
[ROW][C]p[/C][C]Weighted Average at Xnp[/C][C]Weighted Average at X(n+1)p[/C][C]Empirical Distribution Function[/C][C]Empirical Distribution Function - Averaging[/C][C]Empirical Distribution Function - Interpolation[/C][C]Closest Observation[/C][C]True Basic - Statistics Graphics Toolkit[/C][C]MS Excel (old versions)[/C][/ROW]
[ROW][C]0.05[/C][C]5.75[/C][C]5.765[/C][C]5.9[/C][C]5.9[/C][C]5.945[/C][C]5.9[/C][C]5.735[/C][C]5.9[/C][/ROW]
[ROW][C]0.1[/C][C]6.5[/C][C]6.5[/C][C]6.5[/C][C]6.5[/C][C]6.5[/C][C]6.5[/C][C]6.5[/C][C]6.5[/C][/ROW]
[ROW][C]0.15[/C][C]6.55[/C][C]6.565[/C][C]6.6[/C][C]6.6[/C][C]6.67[/C][C]6.6[/C][C]6.535[/C][C]6.6[/C][/ROW]
[ROW][C]0.2[/C][C]6.9[/C][C]6.9[/C][C]6.9[/C][C]6.9[/C][C]6.9[/C][C]6.9[/C][C]6.9[/C][C]6.9[/C][/ROW]
[ROW][C]0.25[/C][C]7[/C][C]7.05[/C][C]7.1[/C][C]7.1[/C][C]7.1[/C][C]7.1[/C][C]6.95[/C][C]7.1[/C][/ROW]
[ROW][C]0.3[/C][C]7.2[/C][C]7.2[/C][C]7.2[/C][C]7.2[/C][C]7.2[/C][C]7.2[/C][C]7.2[/C][C]7.2[/C][/ROW]
[ROW][C]0.35[/C][C]7.45[/C][C]7.485[/C][C]7.5[/C][C]7.5[/C][C]7.5[/C][C]7.5[/C][C]7.415[/C][C]7.5[/C][/ROW]
[ROW][C]0.4[/C][C]7.7[/C][C]7.7[/C][C]7.7[/C][C]7.7[/C][C]7.7[/C][C]7.7[/C][C]7.7[/C][C]7.7[/C][/ROW]
[ROW][C]0.45[/C][C]7.85[/C][C]7.895[/C][C]7.9[/C][C]7.9[/C][C]7.905[/C][C]7.9[/C][C]7.805[/C][C]7.9[/C][/ROW]
[ROW][C]0.5[/C][C]8[/C][C]8.05[/C][C]8[/C][C]8.05[/C][C]8.05[/C][C]8[/C][C]8.05[/C][C]8.05[/C][/ROW]
[ROW][C]0.55[/C][C]8.2[/C][C]8.2[/C][C]8.2[/C][C]8.2[/C][C]8.2[/C][C]8.2[/C][C]8.2[/C][C]8.2[/C][/ROW]
[ROW][C]0.6[/C][C]8.4[/C][C]8.46[/C][C]8.4[/C][C]8.45[/C][C]8.44[/C][C]8.4[/C][C]8.44[/C][C]8.5[/C][/ROW]
[ROW][C]0.65[/C][C]8.9[/C][C]9.03[/C][C]9[/C][C]9[/C][C]8.97[/C][C]9[/C][C]9.17[/C][C]9[/C][/ROW]
[ROW][C]0.7[/C][C]9.4[/C][C]9.47[/C][C]9.4[/C][C]9.45[/C][C]9.43[/C][C]9.4[/C][C]9.43[/C][C]9.5[/C][/ROW]
[ROW][C]0.75[/C][C]9.55[/C][C]9.625[/C][C]9.6[/C][C]9.6[/C][C]9.575[/C][C]9.6[/C][C]9.675[/C][C]9.6[/C][/ROW]
[ROW][C]0.8[/C][C]9.9[/C][C]10.06[/C][C]9.9[/C][C]10[/C][C]9.94[/C][C]9.9[/C][C]9.94[/C][C]10.1[/C][/ROW]
[ROW][C]0.85[/C][C]10.5[/C][C]10.535[/C][C]10.5[/C][C]10.5[/C][C]10.5[/C][C]10.5[/C][C]10.565[/C][C]10.5[/C][/ROW]
[ROW][C]0.9[/C][C]11.1[/C][C]11.28[/C][C]11.1[/C][C]11.2[/C][C]11.12[/C][C]11.1[/C][C]11.12[/C][C]11.3[/C][/ROW]
[ROW][C]0.95[/C][C]12.45[/C][C]13.335[/C][C]13.2[/C][C]13.2[/C][C]12.525[/C][C]13.2[/C][C]13.365[/C][C]13.2[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=200182&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=200182&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Percentiles - Ungrouped Data
pWeighted Average at XnpWeighted Average at X(n+1)pEmpirical Distribution FunctionEmpirical Distribution Function - AveragingEmpirical Distribution Function - InterpolationClosest ObservationTrue Basic - Statistics Graphics ToolkitMS Excel (old versions)
0.055.755.7655.95.95.9455.95.7355.9
0.16.56.56.56.56.56.56.56.5
0.156.556.5656.66.66.676.66.5356.6
0.26.96.96.96.96.96.96.96.9
0.2577.057.17.17.17.16.957.1
0.37.27.27.27.27.27.27.27.2
0.357.457.4857.57.57.57.57.4157.5
0.47.77.77.77.77.77.77.77.7
0.457.857.8957.97.97.9057.97.8057.9
0.588.0588.058.0588.058.05
0.558.28.28.28.28.28.28.28.2
0.68.48.468.48.458.448.48.448.5
0.658.99.03998.9799.179
0.79.49.479.49.459.439.49.439.5
0.759.559.6259.69.69.5759.69.6759.6
0.89.910.069.9109.949.99.9410.1
0.8510.510.53510.510.510.510.510.56510.5
0.911.111.2811.111.211.1211.111.1211.3
0.9512.4513.33513.213.212.52513.213.36513.2



Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
x <-sort(x[!is.na(x)])
q1 <- function(data,n,p,i,f) {
np <- n*p;
i <<- floor(np)
f <<- np - i
qvalue <- (1-f)*data[i] + f*data[i+1]
}
q2 <- function(data,n,p,i,f) {
np <- (n+1)*p
i <<- floor(np)
f <<- np - i
qvalue <- (1-f)*data[i] + f*data[i+1]
}
q3 <- function(data,n,p,i,f) {
np <- n*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i]
} else {
qvalue <- data[i+1]
}
}
q4 <- function(data,n,p,i,f) {
np <- n*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- (data[i]+data[i+1])/2
} else {
qvalue <- data[i+1]
}
}
q5 <- function(data,n,p,i,f) {
np <- (n-1)*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i+1]
} else {
qvalue <- data[i+1] + f*(data[i+2]-data[i+1])
}
}
q6 <- function(data,n,p,i,f) {
np <- n*p+0.5
i <<- floor(np)
f <<- np - i
qvalue <- data[i]
}
q7 <- function(data,n,p,i,f) {
np <- (n+1)*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i]
} else {
qvalue <- f*data[i] + (1-f)*data[i+1]
}
}
q8 <- function(data,n,p,i,f) {
np <- (n+1)*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i]
} else {
if (f == 0.5) {
qvalue <- (data[i]+data[i+1])/2
} else {
if (f < 0.5) {
qvalue <- data[i]
} else {
qvalue <- data[i+1]
}
}
}
}
lx <- length(x)
qval <- array(NA,dim=c(99,8))
mystep <- 25
mystart <- 25
if (lx>10){
mystep=10
mystart=10
}
if (lx>20){
mystep=5
mystart=5
}
if (lx>50){
mystep=2
mystart=2
}
if (lx>=100){
mystep=1
mystart=1
}
for (perc in seq(mystart,99,mystep)) {
qval[perc,1] <- q1(x,lx,perc/100,i,f)
qval[perc,2] <- q2(x,lx,perc/100,i,f)
qval[perc,3] <- q3(x,lx,perc/100,i,f)
qval[perc,4] <- q4(x,lx,perc/100,i,f)
qval[perc,5] <- q5(x,lx,perc/100,i,f)
qval[perc,6] <- q6(x,lx,perc/100,i,f)
qval[perc,7] <- q7(x,lx,perc/100,i,f)
qval[perc,8] <- q8(x,lx,perc/100,i,f)
}
bitmap(file='test1.png')
myqqnorm <- qqnorm(x,col=2)
qqline(x)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Percentiles - Ungrouped Data',9,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p',1,TRUE)
a<-table.element(a,hyperlink('method_1.htm', 'Weighted Average at Xnp',''),1,TRUE)
a<-table.element(a,hyperlink('method_2.htm','Weighted Average at X(n+1)p',''),1,TRUE)
a<-table.element(a,hyperlink('method_3.htm','Empirical Distribution Function',''),1,TRUE)
a<-table.element(a,hyperlink('method_4.htm','Empirical Distribution Function - Averaging',''),1,TRUE)
a<-table.element(a,hyperlink('method_5.htm','Empirical Distribution Function - Interpolation',''),1,TRUE)
a<-table.element(a,hyperlink('method_6.htm','Closest Observation',''),1,TRUE)
a<-table.element(a,hyperlink('method_7.htm','True Basic - Statistics Graphics Toolkit',''),1,TRUE)
a<-table.element(a,hyperlink('method_8.htm','MS Excel (old versions)',''),1,TRUE)
a<-table.row.end(a)
for (perc in seq(mystart,99,mystep)) {
a<-table.row.start(a)
a<-table.element(a,round(perc/100,2),1,TRUE)
for (j in 1:8) {
a<-table.element(a,round(qval[perc,j],6))
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')