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 computationWed, 11 Nov 2009 09:25:25 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/11/t1257956778ylp1a0s6bwouqyi.htm/, Retrieved Thu, 25 Apr 2024 05:41:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55750, Retrieved Thu, 25 Apr 2024 05:41:09 +0000
QR Codes:

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

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] [3/11/2009] [2009-11-02 22:14:51] [b98453cac15ba1066b407e146608df68]
- R  D    [Tukey lambda PPCC Plot] [] [2009-11-11 16:25:25] [4407d6264e55b051ec65750e6dca2820] [Current]
- R  D      [Tukey lambda PPCC Plot] [WS612] [2009-11-15 21:38:16] [74be16979710d4c4e7c6647856088456]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
100
87,14054095
112,0054296
112,312101
109,474134
104,9746116
100,4926851
104,2154743
120,1768388
112,1028355
108,1481575
116,802197
102,1699512
95,15358705
120,6707808
111,5234277
119,9669448
113,3697401
110,0717661
111,5567342
132,424212
107,900558
122,1626615
124,3992258
110,4450505
101,5874013
122,3203962
125,2582826
125,4411543
108,9902468
118,9243879
116,7242723
134,1724901
116,8530994
124,5732995
130,9914031
123,4239103
111,4536725
124,5135991
139,2589613
129,8596099
112,3460359
131,381655
133,0004776
134,3220552
144,2379719
134,1278719
150,1891559
140,722563
114,8389975
143,1973003
140,2738676
112,1248303
102,8951536
100,5090242
103,3513901
111,4134533
104,5887587
101,7840983
114,7007441
108,7426474

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 Ronald Aylmer Fisher' @ 193.190.124.24

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55750&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 Ronald Aylmer Fisher' @ 193.190.124.24






Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.694934472288418
Exact Logistic (lambda=0)0.982772843774107
Approx. Normal (lambda=0.14)0.987521624412545
U-shaped (lambda=0.5)0.98460810506931
Exactly Uniform (lambda=1)0.97597473293643

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55750&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.694934472288418
Exact Logistic (lambda=0)0.982772843774107
Approx. Normal (lambda=0.14)0.987521624412545
U-shaped (lambda=0.5)0.98460810506931
Exactly Uniform (lambda=1)0.97597473293643


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