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 computationThu, 07 Dec 2017 17:36:31 +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/07/t1512664626wkonja529aqv31o.htm/, Retrieved Wed, 15 May 2024 03:38:31 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=308740, Retrieved Wed, 15 May 2024 03:38:31 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact96
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Tukey lambda PPCC Plot] [PPCC] [2017-12-07 16:36:31] [c5fee8264c7526f17d5d55b94ea27fcf] [Current]
Feedback Forum

Post a new message
Dataseries X:
24
0
10
4
45
2
4
9
3
10
7
40
5
4
8
6
1
2
0
3
44
5
0
14
37
3
4
0
8
11
6
4
26
0
37
5
0
4
39
8
0
3
5
5
45
2
0
15
5
4
7
0
7
0
19
1
3
4
57
4
47
8
42
0
52
5
5
29
5
10
10
7
79
38
5
0
43
3
60
7
79
0
8
3
4
9
4
9
2
0
2
26
40
35
79
0
5
0
10
10
2
4
0
44
41
43
0
6
5
55
11
3
0
5
76
0
0
2
20
0
15
5
18
20
6
23
0
0
14
12
3
0
6
17
47
32
0
0
0
3
0
4
2
0
6
1
8
0
5
5
3
9
45
8
5
4
47
10
32
46
5
5
9
34
0
3
38
0
2
30
3
70
0
5
4
22
54
0
3
3
50
0
50
0
15
9
5
40
5
7
5
0
6
24
0
3
45
45
6
5
44
4
50
30
30
0
10
3
7
50
0
7
7
0
79
0
55
45
2
14
17
3
0
7
30
10
11
7
5
5
4
0
0
15
0
4
6
7
3
3
6
4
3
0
19
7
6
28
4
5
10
3
8
9
6
13
10
9
60
0
30
12
3
4
0
30
7
2
9
0
0
15
65
20
8
22
4
6
24
10
3
9
9
0
4
10
0
8
3
0
8
48
11
9
0
27
10
9
30
2
3
6
9
0
25
0
1
6
5
70
0
5
36
6
79
0
5
4
0
8
26
5
2
37
5
7
4
21
4
3
0
0
4
44
5
4
0
7
3
80
0
5
4
7
26
0
3
1
0
4
48
8
20
25
24
7
17
0
5
0
3
6
2
22
10
0
5
0
2
9
10
20
49
10
4
10
51
9
7
14
3
3
2
2
2
23
2
2
20
0
15
5
7
6
0
2
0
12
28
20
9
2
5
4
4
9
0
7
5
5
2
4
0
8
3
6
5
0
1
14
8
23
7
0
18
108
5
3
2
2
15
4
55
4
0
5
7
2
46
12
0
25
4
3
3
35
50
121
55
0
50
48
4
3
8
10
10
9
0
4
7
10
8
0
45
58
0
8
4
0
7
68
0
3
8
9
5
5
5
6
3
14
3
25
0
10
4
7
17
0
49
43
6
6
8
0
10
3
3
7
6
10
12
15
8
38
4
8
17
5
43
59
0
4
0
7
6
2
4
4
40
0
0
8
0
3
3
13
4
0
0
5
4
8
45
1
5
7
42
6
6
0
24
4
41
4
45
5
10
10
4
3
4
4
0
3
3
60
5
3
0
3
42
47
50
2
7
6
28
0
4
7
4
12
0
43
4
40
12
0
25
4
0
4
0
4
0
8
42
6
7
5
7
25
5
8
2
8
19
7
51
22
9
3
5
8
30
0
8
8
2
2
7
40
58
2
5
3
7
8
3
8
4
6
10
0
2
0
10
40
55
2
6
148
0
4
4
12
8
0
10
6
0
28
9
5
10
0
13
12
8
24
24
15
6
48
7
7
0
0
2
2
22
30
10
10
5
9
6
2
0
0
18
3
0
4
59
0
23
5
4
16
4
14
5
120
0
9
5
9
31
5
7
120
51
23
12
12
12
12
6
15
24
28
0
6
4
0
10
0
6
4
6
4
0
7
5
0
0
4
0
1
22
4
4
4
49
0
10
3
8
5
8
30
8
28
3
6
5
20
59
10
40
8
5
34
3
3
24
0
9
0
7
6
5
4
4
21
5
0
0
0
10
6
60
0
5
3
47
7
4
1
60
19
4
8
7
0
4
0
5
9
1
9
2
45
9
5
7
0
41
10
5
0
8
7
8
20
2
8
5
22
65
10
8
0
5
7
5
4
9
24
0
4
4
0
4
2
2
10
0
3
6
6
15
8
6
5
5
7
44
10
15
8
8
3
35
3
0
32
0
25
5
4
3
10
8
6
6
0
3
4
3
5
0
7
15
75
0
56
30
7
43
4
25
1
4
35
39
18
0
12
0
7
4
0
46
3
5
80
0
8
31
5
0
32
7
8
6
1
6
2
47
0
20
3
4
7
3
3
0
7
3
4
35
24
34
30
5
0
23
4
6
49
0
9
6
8
5
9
1
5
9
7
3
0
2
8
3
108
7
10
2
8
30
9
20
23
9
3
40
9
0
8
1
60
2
1
4
24
4
13
5
100
5
2
46
5
37
5
3
33
25
30
7
4
3
7
35
0
2
3
25
9
0
15
22
17
0
5
59
0
38
7
13
8
7
10
0
3
0
4
5
20
7
0
6
7
1
40
69
0
9
6
7
5
8
20
54
6
3
8
5
0
11
7
4
125
3
16
10
25
7
8
4
8
6
7
2
2
7
10
5
1
28
35
3
10
48
15
6
6
9
9
9
2
4
0
60
0
2
6
1
7
1
25
4
0
8
0
0
4
4
5
55
0
2
10
60
0
10
0
0
8
0
6
5
9
49
10
5
3
8
3
3
0
48
0
8
7
7
0
3
4
5
0
45
5
60
3
3
0
6
5
13
15
7
0
0
5
22
18
3
8
0
7
3
5
9
5
5
8
0
0
10
16
20
29
0
9
6
36
4
0
0
5
5
5
5
0
5
23
5
2
8
4
7
5
10
5
7
0
0
0
5
50
25
47
25
0
52
4
7
9
12
0
40
1
0
0
5
5
5
3
0
7
0
1
9
0
7
24
36
8
5
69
0
70
0
4
47
13
0
9
0
11
19
7
6
0
2
3
5
5
0
37
60
2
0
39
7
10
0
2
5
0
5
13
4
5
35
2
0
4
10
4
0
0
45
45
7
10
9
25
9
8
17
0
14
1
24
6
14
0
5
2
3
10
0
20
8
23
10
10
6
0
50
52
23
4
4
25
10
5
4
1
8
0
70
0
16
5
17
22
62
25
3
4
37
5
1
3
10
6
5
0
5
5
5
42
3
10
6
25
0
5
0
0
5
29
4
0
4
10
47
5
7
6
7
11
10
79
0
6
0
12
7
7
8
6
25
8
3
0
2
4
7
70
0
78
0
8
1
5
10
7
35
5
10
5
10
3
0
42
5
0
5
40
0
9
7
10
6
0
7
0
8
3
10
0
10
7
2
2
6
0
0
8
4
50
32
13
7
15
4
6
0
4
0
8
18
10
10
2
2
33
60
0
79
0
5
45
17
2
0
4
0
5
3
4
0
8
3
7
6
39
7
49
7
60
40
3
4
46
7
9
25
10
0
0
0
56
10
5
42
5
6
0
90
8
0
38
0
3
5
7
0
8
6
0
5
7
0
50
21
25
1
30
5
0
17
5
25
2
4
5
5
110
4
9
17
19
6
29
61
2
55
10
10
4
3
0
3
4
4
10
20
5
5
8
3
20
10
4
50
9
80
42
1
3
2
5
3
0
40
5
18
8
9
9
3
0
0
0
0
0
7
6
0
0
10
0
5
1
1
23
8
8
3
2
4
2
6
0
8
49
6
4
39
6
50
12
12
2
3
8
57
31
0
8
0
7
10
12
5
4
9
4
1
9
33
76
0
4
10
0
4
23
2
4
9
46
13
28
5
0
5
5
5
20
9
5
10
2
3
9
3
39
6
0
0
4
1
2
21
9
15
4
10
10
2
2
10
4
10
6
35
41
15
0
18
19
20
3
5
7
46
0
5
10
3
77
0
7
2
10
0
6
0
10
0
6
7
3
9
10
8
7
4
0
44
37
10
5
4
0
43
78
0
0
12
28
6
0
3
5
7
2
2
5
5
21
4
0
12
0
10
5
8
0
2
8
5
3
7
0
2
0
5
0
24
44
4
7
42
75
0
10
5
7
10
14
0
2
10
0
7
10
47
2
8
6
7
46
9
10
75
0
10
3
14
8
5
3
3
45
7
10
6
3
0
8
75
0
8
7
0
43
0
14
4
4
5
0
3
6
4
4
30
4
4
7
7
5
4
0
3
2
8
3
20
5
8
8
7
0
4
5
45
59
24
0
5
63
0
0
2
0
9
0
6
150
10
2
5
10
8
0
48
50
10
0
10
0
8
0
9
6
0
5
4
5
8
0
0
8
6
2
2
0
35
0
4
6
4
10
5
6
0
7
3
5
12
5
0
10
39
1
9
1
0
4
30
9
30
4
4
50
5
1
6
4
4
4
2
4
12
25
24
4
8
13
10
0
3
0
5
30
2
4
7
28
0
25
0
13
5
10
4
49
48
25
0
50
0
7
12
26
8
66
0
4
3
7
78
6
9
0
7
5
4
8
3
10
9
54
9
7
5
6
0
8
10
10
5
8
8
25
0
5
10
7
7
7
8
8
2
15
9
7
2
4
4
0
4
5
47
8
4
0
0
4
2
0
2
8
3
3
6
38
8
25
7
2
0
2
5
7
0
18
5
2
10
48
7
4
3
5
6
1
4
4
0
0
2
6
7
6
0
5
45
77
0
6
50
3
10
5
6
0
4
5
5
38
5
3
5
7
5
29
10
1
4
8
15
11
4
13
0
20
10
35
66
5
6
0
14
29
2
4
5
27
11
0
10
7
10
7
9
5
0
5
55
4
5
6
9
52
3
8
9
0
6
19
10
17
16
13
40
8
0
4
0
8
3
5
37
56
21
0
0
1
8
42
7
5
0
6
8
1
1
4
23
71
0
6
40
28
5
5
6
0
0
1
4
9
8
4
0
79
0
22
5
4
6
16
5
0
125
7
48
0
3
14
0
8
3
4
4
5
2
110
40
0
5
1
1
28
45
4
31
10
6
2
5
9
0
46
3
0
0
4
2
4
0
57
4
4
35
60
0
2
5
0
40
3
3
7
8
60
25
0
0
4
30
0
5
18
6
0
12
5
4
7
19
67
69
0
2
2
3
50
9
0
4
58
0
2
18
9
5
2
53
5
0
5
4
0
4
0
11
0
49
13
0
10
6
0
32
0
10
2
13
1
9
45
3
6
6
5
2
5
9
0
4
10
5
10
3
1
0
6
0
5
3
6
5
0
7
3
10
40
5
25
8
7
8
8
7
4
5
7
9
0
47
5
20
3
34
5
4
0
48
0
5
5
17
4
0
4
5
3
0
5
7
36
6
0
3
5
5
9
5
0
53
4
12
5
33
10
75
75
75
0
4
4
1
5
3
3
0
4
4
4
0
4
44
2
48
28
14
0
2
10
0
37
5
2
1
2
7
0
0
7
0
5
0
6
0
30
5
10
0
5
5
7
0
3
0
30
0
3
7
0
10
5
4
0
4
5
0
0
16
0
6
7
4
0
3
4
0
3
0
3
6
22
8
5
3
0
6
4
4
7
7
5
41
4
0
8
3
3
10
10
5
1
4
50
0
11
43
20
3
3
4
2
5
23
6
5
43
5
7
48
4
3
75
40
10
8
34
0
7
23
9
5
0
0
14
9
7
5
3
52
9
0
43
7
0
6
41
9
1
135
10
0
45
25
5
4
4
10
0
5
0
5
20
0
60
0
30
0
50
0
42
42
22
12
0
9
7
20
3
9
0
4
5
10
79
30
60
0
19
0
40
8
0
7
7
15
2
10
0
50
1
1
50
2
0
40
4
8
15
0
0
10
75
6
5
2
2
7
9
0
4
3
21
0
35
25
0
60
52
5
5
4
0
125
20
0
4
0
5
45
5
3
0
18
40
32
7
0
66
8
0
24
8
26
27
28
11
5
9
9
5
20
0
7
6
4
10
8
8
0
26
4
4
0
0
7
40
5
0
5
41
54
0
3
3
48
0
34
10
3
0
10
0
8
5
3
0
5
8
17
9
0
8
21
8
9
21
13
0
8
5
0
3
14
0
7
8
40
8
6
10
25
1
44
2
60
2
3
21
7
4
0
20
0
60
4
70
0
6
0
10
48
2
5
14
2
3
8
3
0
7
5
5
0
8
10
10
2
0
2
8
5
9
7
2
10
0
6
4
10
8
4
4
4
18
24
39




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=308740&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=308740&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308740&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.28989307884268
Exact Logistic (lambda=0)0.823087100268072
Approx. Normal (lambda=0.14)0.810609201583631
U-shaped (lambda=0.5)0.777289016940533
Exactly Uniform (lambda=1)0.752047670335569

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=308740&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.28989307884268
Exact Logistic (lambda=0)0.823087100268072
Approx. Normal (lambda=0.14)0.810609201583631
U-shaped (lambda=0.5)0.777289016940533
Exactly Uniform (lambda=1)0.752047670335569



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