Free Statistics

of Irreproducible Research!

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 computationMon, 18 Dec 2017 20:08:00 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2017/Dec/18/t1513624133hszbeu6cfsatm7i.htm/, Retrieved Tue, 14 May 2024 18:36:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=310224, Retrieved Tue, 14 May 2024 18:36:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact50
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Tukey lambda PPCC Plot] [PPCC - Tukey Lambda] [2017-12-18 19:08:00] [228f385b091a4ec8014a0b8722ae7714] [Current]
Feedback Forum

Post a new message
Dataseries X:
6.65894758
-0.14609758
0.15538785
4.18600654
-2.08270413
2.85390242
2.16479882
-4.12496643
4.74482999
2.81961671
3.81969328
-1.47973327
-2.26483132
-1.14609758
1.35721181
6.74688886
1.93842702
7.91729587
1.02636831
2.71260315
3.97120178
-4.89029114
2.4125521
-0.01700147
2.84082443
5.18474593
7.10945853
-2.93136939
0.14391801
0.32666969
-0.87676242
-0.96540477
7.39598086
2.76776967
-3.0171546
2.35721181
-5.98645935
3.12135248
0.10970886
5.10970886
9.69092408
0.71403753
2.5073625
-1.14609758
1.60471476
-13.5548469
1.34915865
-3.37246937
0.0251077
4.60479133
-0.67214626
-8.66391934
6.37834296
0.95955817
2.42266414
-0.80234985
5.60479133
-0.45699397
-1.32223049
2.85390242
-1.98653592
-2.70618164
-2.7812187
7.92893949
-1.93255344
3.27268721
0.44540343
4.2187813
-1.61824035
-3.84827917
-9.18954392
8.43232544
2.42402195
3.20929376
-0.92108359
-3.42788623
1.6049651
0.91729587
9.32300267
0.18592997
6.07710787
0.33608066
-1.40469621
3.15531128
6.87503357
-0.9748923
3.48766573
-0.38356506
2.3785933
3.54139788
3.27268721
0.70231735
0.25155606
-5.85625576
2.87384953
-8.83520118
9.00397655
-7.96317212
-0.53346542
5.36885542
0.08850115
4.62609625
-2.07098395
1.28217475
0.85390242
2.87503357
4.37834296
0.04623885
1.45345659
2.79856213
-8.52541226
-6.47014853
6.16361478
6.16361478
6.72369884
8.4970767
4.02636831
0.20595364
-12.06157298
-1.36243391
5.43224887
3.28217475
-4.04162587
-3.3105103
-7.3950349
3.29381836
4.70256769
6.99233293
-2.13787065
-1.29904046
-3.53713244
-3.61001343
4.29381836
-6.42780967
2.87359919
3.55080885
-1.12496643
-1.68505049
-1.24719342
0.99233293
-11.55826359
5.9501472
2.61643494
-1.49271406
0.10970886
-4.81517751
-6.20287225
2.47800443
0.2187813
5.3033059
2.72377541
1.2610436
-4.62165704
0.73534245
3.4548144
2.10140537
-1.33969461
0.74457965
-1.24226579
-2.18013295
2.61668528
-2.73903297
-2.00885111
-3.80576654
-4.02854788
-1.51401898
0.2187813
1.176519
0.57067939
2.00405312
3.33608066
3.60614914
1.23991245
2.50854655
2.64866178
1.12135248
3.99233293
-3.12496643
1.2187813
-6.0498528
4.33608066
-3.86915999
-7.39646928
1.89616472
0.55098262
-1.24370017
0.3702898
7.2187813
-1.97481574
2.95007063
3.72209069
1.40090849
-0.85608199
-4.58880571
-4.80353389
-2.5771621
2.70095954
1.29389493
2.50854655
-0.45860212
0.2187813
1.15197116
-8.00741673
2.22819227
-2.58888228
0.89616472
-5.83495084
2.60639948
-8.24226579
1.79856213
1.79856213
-1.37533813
2.97120178
-0.0302326
-6.91023824
5.91729587
0.96179082
5.77760475
-7.460661
-1.823481
-3.72731279
-7.77299177
-1.76008755
1.04631541
-2.08270413
-6.42788623
-1.46863759
1.91729587
-2.62165704
2.02636831
4.15197116
-4.93255344
3.31494951
-1.08270413
0.2187813
0.2187813
0.2187813
-1.12496643
-3.27630116
3.48758917
2.49564232
2.26927053
6.14223329
0.22565041
-0.38213068
5.15078712
-2.01045926
-0.81661189
-2.14609758
-3.02879822
0.45345659
-1.0172518
6.99215917
-1.51718533
-3.66384277
-0.28596247
0.45345659
0.20587708
-4.39639272
0.44173641
-7.4926375
0.45345659
1.2187813
4.31477574
3.4125521
-0.74844394
5.89616472
-7.74844394
-3.70625821
1.2610436
-0.12496643
-13.70618164
3.12253652
0.25147949
5.27268721
-4.50428111
-0.85625576
-1.5125846
-6.72731279
-0.76008755
-7.94427362
-1.06157298
-3.05010313
6.17644243
-5.66391934
-1.43747097
1.64705363
1.20937033
-6.26490789
0.14230986
0.23991245
4.42402195
0.5204405
2.70256769
1.87367576
2.00182047
6.28074037
-6.87738691
6.48758917
1.61643494
1.36893199
5.37834296
3.00182047
2.45345659
-2.72731279
-3.5125846
1.06863061
2.61643494
2.29381836
3.7759966
-11.45860212
-1.67556295
-3.12496643
1.70095954
1.20570331
-4.39520867
0.77743098
-1.23564701
-4.39385086
-0.28452809
0.9924095
-0.68505049
-1.71782525
3.33608066
-2.85743981
2.1095351
-0.74844394
-0.50086442
10.10970886
-0.52548883
2.7759966
0.71260315
-0.09379981
4.01185594
-1.66391934
-6.24377674
1.31494951
-1.99476284
0.35721181
-2.30253372
-2.03389962
2.1522215
4.25037202
-2.15112241
-6.24513455
1.56252903
-0.7812187
-2.24521112
-0.81407003
7.19757358
8.86393789
1.19765015
0.9924095
8.47458774
-1.75067658
6.16479882
-1.99602345
-4.80234985
-7.05128718
8.2610436
1.32443705
-3.14745539
-2.43747097
-10.7389564
-1.95385835
-4.9553693
-5.51233427
-5.24387394
-5.29768265
3.04749946
-1.45860212
0.32443705
2.48910011
-8.33986838
1.91729587
1.99215917
0.83141346
-6.23054561
6.39947411
-2.84461215
2.52849365
1.93706921
-0.76016412
5.4874154
-4.22113464
4.17533496
-0.14745539
2.87359919
-2.66391934
-0.56767456
1.92901605
-7.57590148
-1.10544343
3.02636831
4.83116312
2.52831988
3.07916675
-3.99594688
-4.98814406
-3.54654341
-0.18971769
-2.24513455
0.42043149
-3.83520118
-4.79412292
-1.823481
-8.76152193
1.91729587
4.59332148
-2.3188138
6.29040168
-1.79412292
0.28242509
-3.70600787
-2.18996803
-2.4703223
1.46430194
-0.64278819
-0.25660439
-0.24370017
-11.99944014
-3.31873723
0.59530379
-0.6544318
-2.19346128
-2.4703223
1.46430194
-0.64278819
-0.25660439
-0.24370017
-11.99944014
-3.31873723
0.59530379
-0.6544318
-2.19346128
2.62592248
5.52992803
-2.66384277
2.62592248
7.176519
-9.81407003
-12.00766707
0.0346718
2.54132131
3.34898489
-5.75067658
0.42060526
-0.31873723
0.29381836
-4.88910709
0.10022133
-8.50309707
-1.68505049
-1.85633233
1.2187813
4.33608066




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time1 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=310224&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]1 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=310224&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=310224&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R ServerBig Analytics Cloud Computing Center







Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.442484391878658
Exact Logistic (lambda=0)0.99201525364238
Approx. Normal (lambda=0.14)0.99270298778816
U-shaped (lambda=0.5)0.9774883395296
Exactly Uniform (lambda=1)0.960502776608854

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=310224&T=1

As an alternative you can also use a 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.442484391878658
Exact Logistic (lambda=0)0.99201525364238
Approx. Normal (lambda=0.14)0.99270298778816
U-shaped (lambda=0.5)0.9774883395296
Exactly Uniform (lambda=1)0.960502776608854



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