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 computationTue, 28 Oct 2008 00:15:17 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Oct/28/t1225174638nev0ud91wqk2zdi.htm/, Retrieved Sun, 19 May 2024 18:45:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=19732, Retrieved Sun, 19 May 2024 18:45:57 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Tukey lambda PPCC Plot] [Investigating dis...] [2007-10-22 19:59:15] [b9964c45117f7aac638ab9056d451faa]
F    D    [Tukey lambda PPCC Plot] [q8] [2008-10-28 06:15:17] [ba53780e6ef414874481f097d8d35fc7] [Current]
Feedback Forum
2008-11-03 11:23:46 [Dries Van Gheluwe] [reply] 
Geen uitleg gegeven in het worddocument. Ik kan hier moeilijk feedback geven op een oplossing die er niet is.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
554
447
453
455
463
466
448
452
433
449
479
529
462
416
456
448
478
677
493
457
469
492
484
476
507
482
405
519
493
535
523
468
466
476
523
513
484
472
505
514
537
516
512
503
516
535
524
527
531
462
511
499
527
525
573
535
487
492
511
501
572
421
532
495
498
501
518
506
486
541
499
500
593
503
427
570
533
286
772
414
656
543
517
498
587
445
488
541
518
566
476
460

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

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






Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.847866692265409
Exact Logistic (lambda=0)0.956197500151545
Approx. Normal (lambda=0.14)0.936852090047302
U-shaped (lambda=0.5)0.894407403052066
Exactly Uniform (lambda=1)0.865116815632724

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=19732&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.847866692265409
Exact Logistic (lambda=0)0.956197500151545
Approx. Normal (lambda=0.14)0.936852090047302
U-shaped (lambda=0.5)0.894407403052066
Exactly Uniform (lambda=1)0.865116815632724


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