Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_tukeylambda.wasp

Title produced by software

Tukey lambda PPCC Plot

Date of computation

Thu, 01 Feb 2018 09:39:08 +0100

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2018/Feb/01/t151747437409srzt0wnq2hovm.htm/, Retrieved Sun, 28 Apr 2024 22:14:10 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=313715, Retrieved Sun, 28 Apr 2024 22:14:10 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Tukey lambda PPCC Plot] [vraag 9] [2018-02-01 08:39:08] [6a3953600cf19f2574c53feb20fccf09] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

0.00172923511431986
0.000122433003162592
0.000523768260056477
-0.000501758919313696
-0.00186385932665817
7.17421627217074e-05
-0.000380578147166437
-0.000298515816427555
0.00194316019437654
-0.00124779775369706
0.00135257140686128
0.00284406562807716
-0.426754798362472
-1.72242464490422
-2.40845079236709
0.526776305816358
0.797071260656129
1.34112485980626
0.204952410141948
-0.950490103888798
-0.107850426770656
0.417103872133906
-1.62385161779411
-2.35405984051608
-2.26184627569547
2.87545865686734
0.764088319739653
-1.04771526256838
0.634495945514389
-0.418796199961766
-1.1902248799151
1.14849135098861
-1.57161847943999
1.95623979219949
-0.55398434263153
-0.688962249098288
-0.726809652410765
0.669335596794023
0.982799352615223
0.34257161423547
2.50998459954628
0.217576622169985
0.888449557962846
0.150692384385114
-1.09007046411236
0.705696643020834
1.16229193735545
-0.416021986541757
1.74693730377451
-1.23196353846715
1.48245333704883
0.721213609721149
-0.646800283694092
-0.161484691516224
-0.949633798528551
0.95650509413685
0.350825786637744
-1.16034883081079
-0.430341336067506
-0.501837854434037
-0.420156354252605
-0.193183065005035
0.700412337278826
0.359765049513089
2.64698657842921
0.858459811264103
2.83285362667213
0.818148971404134
-1.25327126093506
-0.688989862474239
0.81053510286613
-1.65188351539344
-0.325059441933449
-1.74156920883825
-1.02917447601266
-1.21867059892351
-1.50411376964027
-0.114224549399896
-0.137411004159366
0.837355581654398
-0.911997495950576
0.970958117810633
-1.15687516494066
-2.1245225303856
-0.580674349327857
1.15085031229537
-0.856819873215907
-0.101268519247016
-0.38216289561807
-1.2792277924225
-3.29532250503173
0.276543530131056
-1.56371519659818
-0.500447409601064
-0.365398111781451
0.996642682007255
-1.11077417394413
-0.886570515544964
-0.876208342684536
-0.294620765401373
3.10567156966737
-0.24533366975015
0.624645043003861
0.414517204762159
-1.63354987528173
-1.4224362205881
-2.23923917130956
0.322826267548182
0.980828944798294
0.566596736898838
-3.50881767965765
1.65438036478527
1.50219560926857
-1.29709276470254
0.719245481491138
1.00978767768917
-0.675852958541929
-0.0927940854724613
-2.44682252394542
0.876623407379823
-0.989073764717509
-0.317510309291215
1.99685358194388
-0.130736531683781
-0.609885767018947
0.64316491972466
-0.689247020123973
0.56708595846713
1.24204620650376
-0.77518034240142
-0.77159452833421
-0.27469213671127
1.40826458694522
0.00393835205331949
-0.759021967445389
2.35582033836005
0.55248072705723
0.504559544522789
1.36513760270471
-2.40910242448905
1.25917641686089
0.811679269510166
-1.42849190356444
0.348740069244143
-1.05604023495144
0.313965779697424
0.201066360306794
0.184583721082056
-1.03398119166313
1.3494338298127
0.0316090042682793
-0.958186717436352
-0.443323344160126
-1.47536151301699
-0.614118758893232
0.173695159093513
-0.556666189918375
0.646331946244221
0.884430612308278
1.05055158013154
-2.34842467152575
1.91694934674783
-0.0369572169996855
3.39011867299807
0.871987649503829
-1.62914544173097
0.750054274590149
-1.35229419614484
0.997088371334179
0.662803785787941
1.7784339450016
0.16121516344264
-0.965435349983172
-1.45251216552657
0.86901922102742
0.352826654770835
0.77069438441223
-0.477488641475141
-0.259112488512549

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	Big 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 time2 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=313715&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]

2 seconds[/C][/ROW] [ROW]

R Server[/C]

Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=313715&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313715&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 Output	view raw output of R engine
Computing time	2 seconds
R Server	Big Analytics Cloud Computing Center

Tukey Lambda - Key Values
Distribution (lambda)	Correlation
Approx. Cauchy (lambda=-1)	0.587711522201173
Exact Logistic (lambda=0)	0.996466960071872
Approx. Normal (lambda=0.14)	0.996342787641243
U-shaped (lambda=0.5)	0.982065974344026
Exactly Uniform (lambda=1)	0.966496692056641

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=313715&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.587711522201173
Exact Logistic (lambda=0)	0.996466960071872
Approx. Normal (lambda=0.14)	0.996342787641243
U-shaped (lambda=0.5)	0.982065974344026
Exactly Uniform (lambda=1)	0.966496692056641

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code