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 computationFri, 13 Nov 2009 09:22:05 -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/13/t1258129364sq7svcve021figs.htm/, Retrieved Sat, 04 May 2024 10:40:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56868, Retrieved Sat, 04 May 2024 10:40:46 +0000
QR Codes:

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

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]
-    D  [Tukey lambda PPCC Plot] [] [2009-11-09 19:56:34] [023d83ebdf42a2acf423907b4076e8a1]
-   PD      [Tukey lambda PPCC Plot] [W6 PPCC] [2009-11-13 16:22:05] [852eae237d08746109043531619a60c9] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
112,1294759
123,1474443
119,3806175
121,5465429
124,3716631
85,47917603
88,86932018
128,3268312
141,0398718
117,9680574
101,9590434
103,0890915
111,9411345
120,6990069
111,9411345
111,9411345
117,0263507
89,99936823
68,90513797
113,4478653
105,9142116
119,2864468
114,954596
106,7617476
110,2460624
143,0174559
125,5958818
106,7617476
147,2551361
79,16974108
92,63614701
137,6497276
141,0398718
123,4299564
112,5061585
127,5734659
130,5869273
152,1520109
131,3402927
106,1967236
144,6183573
88,02178414
99,60477665
142,8291145
116,8380094
125,0308578
111,2819398
115,0487667
134,2595835
152,3403523
107,8917957
139,3447997
147,7259894
89,24600286
97,43885122
145,6542347
144,9008693
144,4300159
106,7617476
130,7752687
125,0308578
139,250629
115,0487667
121,9232256
150,7394509
104,1249688
96,59131518
136,8021916
144,0533333
133,8829008
118,3447401
127,1967832
127,0084418
128,3268312
136,3313383
124,7483457
137,1788743
104,9725049
92,54197634
136,4255089
134,1654128
97,8155339
86,42088274
77,28632767
86,89173609

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'Gwilym Jenkins' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56868&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'Gwilym Jenkins' @ 72.249.127.135






Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.605742677761968
Exact Logistic (lambda=0)0.980239991146807
Approx. Normal (lambda=0.14)0.989650266783277
U-shaped (lambda=0.5)0.99324157819652
Exactly Uniform (lambda=1)0.987809924901912

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56868&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.605742677761968
Exact Logistic (lambda=0)0.980239991146807
Approx. Normal (lambda=0.14)0.989650266783277
U-shaped (lambda=0.5)0.99324157819652
Exactly Uniform (lambda=1)0.987809924901912


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 50 ; par2 = 50 ; par3 = 0 ; par4 = 0 ; par5 = 0 ; par6 = Y ; par7 = Y ;
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')