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 computationSun, 26 Oct 2008 10:12:43 -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/26/t1225037617pkjauy2g3v0sha8.htm/, Retrieved Fri, 17 May 2024 02:08:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=18967, Retrieved Fri, 17 May 2024 02:08:10 +0000
QR Codes:

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

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] [tukey lambda] [2008-10-26 16:12:43] [0d500ce70fb61d771562626855e78bdd] [Current]
Feedback Forum
2008-11-01 17:38:34 [Kevin Neelen] [reply] 
Er is gebruik gemaakt van de juiste methode om deze vraag te kunnen oplossen. Als we de tabel bestuderen, kunnen we inderdaad stellen dat de maximumcorrelatie gelegen is rond een Lambda-waarde van 0,5 en een waarde van 0.989754719536048 vertoont (U-shaped).
2008-11-03 17:18:25 [Jeroen Michel] [reply] 
De student heeft hier de correcte output bekomen evenals een correcte conclusie gemaakt.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
572.775
574.205
579.799
590.072
593.408
597.141
595.404
612.117
628.232
628.884
620.735
569.028
567.456
573.100
584.428
589.379
590.865
595.454
594.167
611.324
612.613
610.763
593.530
542.722
536.662
543.599
555.332
560.854
562.325
554.788
547.344
565.464
577.992
579.714
569.323
506.971
500.857
509.127
509.933
517.009
519.164
512.238
509.239
518.585
522.975
525.192
516.847
455.626
454.724
461.251
470.439
474.605
476.049
471.067
470.984
502.831
512.927
509.673
484.015
431.328
436.087

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 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 & 4 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=18967&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]4 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=18967&T=0

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






Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.627964450478456
Exact Logistic (lambda=0)0.970269689653587
Approx. Normal (lambda=0.14)0.981447127118905
U-shaped (lambda=0.5)0.989754719536048
Exactly Uniform (lambda=1)0.987887790382577

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=18967&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.627964450478456
Exact Logistic (lambda=0)0.970269689653587
Approx. Normal (lambda=0.14)0.981447127118905
U-shaped (lambda=0.5)0.989754719536048
Exactly Uniform (lambda=1)0.987887790382577


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