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 computationThu, 18 Dec 2014 19:16:25 +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/18/t141893042092x0yrs9v10l713.htm/, Retrieved Fri, 17 May 2024 10:17:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271221, Retrieved Fri, 17 May 2024 10:17:50 +0000
QR Codes:

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

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] [] [2014-12-18 19:16:25] [f11ff77f11120bba23ccca75f7c5b5e0] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
76
119
119
91
138
97
117
125
95
168
109
115
135
130
131
143
134
109
126
117
155
132
129
131
123
125
112
131
129
99
114
128
130
112
122
115
124
120
119
123
91
107
118
111
95
135
108
130
143
110
131
113
103
140
125
127
116
120
108
111
125
126
116
104
113
106
139
119
112
101
110
115
122
111
115
112
109
97
132
102
124
115
128
121
130
99
122
126
141
124
127
114
99
137
97
108
138
123
125
106
138
127
142
133
119
114
114
126
118
132

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

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






Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.701810862096706
Exact Logistic (lambda=0)0.995207964914573
Approx. Normal (lambda=0.14)0.99230572969836
U-shaped (lambda=0.5)0.975629648562837
Exactly Uniform (lambda=1)0.95961000911211

\begin{tabular}{lllllllll}
\hline
Tukey Lambda - Key Values \tabularnewline
Distribution (lambda) & Correlation \tabularnewline
Approx. Cauchy (lambda=-1) & 0.701810862096706 \tabularnewline
Exact Logistic (lambda=0) & 0.995207964914573 \tabularnewline
Approx. Normal (lambda=0.14) & 0.99230572969836 \tabularnewline
U-shaped (lambda=0.5) & 0.975629648562837 \tabularnewline
Exactly Uniform (lambda=1) & 0.95961000911211 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271221&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.701810862096706[/C][/ROW]
[ROW][C]Exact Logistic (lambda=0)[/C][C]0.995207964914573[/C][/ROW]
[ROW][C]Approx. Normal (lambda=0.14)[/C][C]0.99230572969836[/C][/ROW]
[ROW][C]U-shaped (lambda=0.5)[/C][C]0.975629648562837[/C][/ROW]
[ROW][C]Exactly Uniform (lambda=1)[/C][C]0.95961000911211[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271221&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271221&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.701810862096706
Exact Logistic (lambda=0)0.995207964914573
Approx. Normal (lambda=0.14)0.99230572969836
U-shaped (lambda=0.5)0.975629648562837
Exactly Uniform (lambda=1)0.95961000911211


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