FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_tukeylambda.wasp
Title produced by softwareTukey lambda PPCC Plot
Date of computationMon, 15 Dec 2014 14:10:44 +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/t1418652656p4my6hsojmsvsr6.htm/, Retrieved Thu, 16 May 2024 13:36:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=268452, Retrieved Thu, 16 May 2024 13:36:59 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Tukey lambda PPCC Plot] [Intrinsic Motivat...] [2010-10-12 12:09:04] [b98453cac15ba1066b407e146608df68]
- RM D    [Tukey lambda PPCC Plot] [Q2] [2014-12-15 14:10:44] [6fc1b517ba5ef695988bbc0a377c4b82] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
51
59
60
47
55
57
57
50
58
64
48
58
39
54
58
57
59
63
55
59
61
62
50
55
59
60
62
62
48
53
55
57
62
60
64
66
67
65
72
59
59
58
64
62
63
64
63
65
66
62
66
66
68
63
60
59
50
58
70
66
66
64
69
59
60
66
62
66
68
63
67
63
66
64
65
70
66
69
68
60
72
69
74
70
73
70
57
63
64
61
59
68
63
63
68
59
67
73
66
69
65
68
71
73
72
77
62
67
65
60
61
69
66
67
68
68
65
69
71
64
68
70
65
70
66
73
72
75
73
69
75
66
58
69
68
66
73
73
68
70
71
72
72
75
70
70
69
67
67
73
76
73
76
79
73
78
78
66
68
66
65
69
73
70
71
73
73
72
72
72
73
74
73
75
71
74
75
75
78
75
78
75
75
77
73
75
69
68
72
76
78
71
78
75
79
81
78
79
69
69
74
77
76
78
72
74
80
75
80
68
76
76
77
81
77
84
84

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=268452&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 time1 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net






Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.549876648622029
Exact Logistic (lambda=0)0.987408301952586
Approx. Normal (lambda=0.14)0.989902147363504
U-shaped (lambda=0.5)0.98034354115018
Exactly Uniform (lambda=1)0.967782183284682

\begin{tabular}{lllllllll}
\hline
Tukey Lambda - Key Values \tabularnewline
Distribution (lambda) & Correlation \tabularnewline
Approx. Cauchy (lambda=-1) & 0.549876648622029 \tabularnewline
Exact Logistic (lambda=0) & 0.987408301952586 \tabularnewline
Approx. Normal (lambda=0.14) & 0.989902147363504 \tabularnewline
U-shaped (lambda=0.5) & 0.98034354115018 \tabularnewline
Exactly Uniform (lambda=1) & 0.967782183284682 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=268452&T=1

[TABLE]
[ROW][C]Tukey Lambda - Key Values[/C][/ROW]
[ROW][C]Distribution (lambda)[/C][C]Correlation[/C][/ROW]
[ROW][C]Approx. Cauchy (lambda=-1)[/C][C]0.549876648622029[/C][/ROW]
[ROW][C]Exact Logistic (lambda=0)[/C][C]0.987408301952586[/C][/ROW]
[ROW][C]Approx. Normal (lambda=0.14)[/C][C]0.989902147363504[/C][/ROW]
[ROW][C]U-shaped (lambda=0.5)[/C][C]0.98034354115018[/C][/ROW]
[ROW][C]Exactly Uniform (lambda=1)[/C][C]0.967782183284682[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=268452&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.549876648622029
Exact Logistic (lambda=0)0.987408301952586
Approx. Normal (lambda=0.14)0.989902147363504
U-shaped (lambda=0.5)0.98034354115018
Exactly Uniform (lambda=1)0.967782183284682


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
gp <- function(lambda, p)
{
(p^lambda-(1-p)^lambda)/lambda
}
sortx <- sort(x)
c <- array(NA,dim=c(201))
for (i in 1:201)
{
if (i != 101) c[i] <- cor(gp(ppoints(x), lambda=(i-101)/100),sortx)
}
bitmap(file='test1.png')
plot((-100:100)/100,c[1:201],xlab='lambda',ylab='correlation',main='PPCC Plot - Tukey lambda')
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Tukey Lambda - Key Values',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Distribution (lambda)',1,TRUE)
a<-table.element(a,'Correlation',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Approx. Cauchy (lambda=-1)',header=TRUE)
a<-table.element(a,c[1])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Exact Logistic (lambda=0)',header=TRUE)
a<-table.element(a,(c[100]+c[102])/2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Approx. Normal (lambda=0.14)',header=TRUE)
a<-table.element(a,c[115])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'U-shaped (lambda=0.5)',header=TRUE)
a<-table.element(a,c[151])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Exactly Uniform (lambda=1)',header=TRUE)
a<-table.element(a,c[201])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')