FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

12 17 14 11 13 16 16 13 13 14 15 13 12 20 7 13 13 22 22 10 18...

Author*Unverified author*
R Software Modulerwasp_percentiles.wasp
Title produced by softwarePercentiles
Date of computationMon, 15 Sep 2014 04:23:37 +0100
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/Sep/15/t14107514350p9237dhz1sr2k7.htm/, Retrieved Sun, 12 May 2024 07:48:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235798, Retrieved Sun, 12 May 2024 07:48:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact177

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Percentiles] [12 17 14 11 13...] [2014-09-15 03:23:37] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
12		17		14
11		13		16
16		13		13
14		15		13
12		20		7
13		13		22
22		10		18
21		13		12
9		19		22
15		16		12
19		14		13
16		18		17
14		21		15
13		11		12
12		16		16
15		16		13
15		19		10
17		20		16
17		13		12
13		13		12
14		17		13
17		13		13
12		14		17
15		8		20
16		18		19
18		7		19
8		9		19
10		13		17
14		15		12
11		13		12
13		18		19
13		19		11
18		18		16
13		15		16
14		20		15
10		8		17
15		15		10
16		19		13
13		17		13
14		14		12
18		14		9
16		19		18
17		20		21
15		14		13
16		11		14
15		11		12
9		19		14
13		14		12
21		16		13
17		11		18
16		15		13
12		8		11
13		18		14
19		11		14
16		13		13
11		20		5
15		19		14
14		8		13
17		14		9
14		16		16
20		12		16
7		16		14
16		14		16
14		18		22
22		15		19
22		18		16
17		15		9
9		11		20
11		6		11
19		15		14
14		18		14
16		13		15
15		16		13
13		9		19
15		12		21
9		16		19
10		16		21
13		17		12
10		15		12
15		10		13
10		12		15
17		16		10
14		19		10
13		15		15
13		8		21
10		12		19
22		14		16
17		15		14
14		13		19
17		15		14
10		19		15
13		9		21
19		13		15
17		9		10
15		17		17
20		19		13
19		13		18
17		11		17
15		16		16
9		12		11
19		21		17
12		18		11
13		11		13
15		18		12
20		9		13
15		19		20
22		11		16
16		14		14
18		10		13
7		12		9
7		17		15
12		16		12
17		21		15
14		16		13
7		13		13
11		15		15
16		14		21
9		11		15
8		21		9
13		19		13
17		18		6
12		13		17
10		16		12
12		17		16
14		14		14
13		18		17
15		17		19
13		12		14
12		15		14
13		12		9
16		20		19
18		10		14
14		12		18
19		19		18
9		10		11
16		12		6
13		13		18
12		5		8
11		13		13
21		17		14
10		10		12
19		10		15
13		15		13
15		15		8
11		19		12
10		8		14
12		10		12
11		17		14
17		14		23
11		12		15
14		14		16
16		17		15
8		22		12
9		10		14
13		12		19
17		17		11
11		10		6
21		11		17
16		9		14
17		14		17
11		9		13
16		19		14
8		13		11
17		19		13
18		17		10
15		17		16
18		15		16
14		14		20
18		13		7
19		14		16
11		14		17
14		19		18
14		17		20
15		12		13
8		15		14
7		16		14
16		16		17
13		17		15
19		11		21
12		23		22
20		12		13
15		15		8
10		16		18
13		15		9
9		17		16
14		11		12
16		16		12
12		15		8
16		10		15
15		12		14
12		15		11
15		16		15
15		11		18
16		19		22
15		15		11
15		13		14
12		13		18
20		10		17
12		21		17
17		11		13
16		14		14
16		18		15
11		9		18
17		17		17
12		19		15
17		21		10
6		9		20
21		20		18
20		7		18
18		14		17
14		17		12
18		15		14
13		21		15
16		11		17
17		14		19
10		14		12
20		13		13
11		20		21
13		13		9
21		16		15
9		17		20
12		24		12
7		13		15
17		13		14
14		18		6
12		13		20
11		17		12
16		14		20
16		12		17
12		18		6
18		6		13
14		17		14
9		21		12
8		23		16
13		9		20
20		18		17
17		19		19
15		18		9
14		15		12
17		15		17
12				
12				
16				
13				
13				
12				
15				
15				
12				
12				
13				
23				
16				
13				
20				
9				
17				
14				
13				
15				
13				
14				
16				
15				
16				
18				
22

Tables (Output of Computation)





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

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

As an alternative you can also use a QR Code:  
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 time0 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net


Figures (Output of Computation)

Input Parameters & R Code

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