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 computationTue, 12 Oct 2010 12:09:04 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Oct/12/t1286885289ou6ag19128y1wou.htm/, Retrieved Sun, 28 Apr 2024 17:02:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=82870, Retrieved Sun, 28 Apr 2024 17:02:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact1032
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Tukey lambda PPCC Plot] [Intrinsic Motivat...] [2010-10-12 12:09:04] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
-    D    [Tukey lambda PPCC Plot] [Intrinsic motivat...] [2010-10-15 09:28:04] [2960375a246cc0628590c95c4038a43c]
- R         [Tukey lambda PPCC Plot] [] [2011-10-14 17:07:15] [6d8d5ddb787739e9d7807ef3376f0127]
-    D    [Tukey lambda PPCC Plot] [Intrinsic motivat...] [2010-10-15 09:29:40] [2960375a246cc0628590c95c4038a43c]
-   P       [Tukey lambda PPCC Plot] [] [2010-10-18 18:59:16] [1251ac2db27b84d4a3ba43449388906b]
-    D    [Tukey lambda PPCC Plot] [Extrinsic motivat...] [2010-10-15 09:31:10] [2960375a246cc0628590c95c4038a43c]
-   P       [Tukey lambda PPCC Plot] [] [2010-10-18 19:02:48] [1251ac2db27b84d4a3ba43449388906b]
- R         [Tukey lambda PPCC Plot] [] [2011-10-14 17:13:59] [6d8d5ddb787739e9d7807ef3376f0127]
-    D    [Tukey lambda PPCC Plot] [Extrinsic motivat...] [2010-10-15 09:32:44] [2960375a246cc0628590c95c4038a43c]
-   P       [Tukey lambda PPCC Plot] [] [2010-10-18 19:05:47] [1251ac2db27b84d4a3ba43449388906b]
- R         [Tukey lambda PPCC Plot] [] [2011-10-18 16:10:29] [6d8d5ddb787739e9d7807ef3376f0127]
- R         [Tukey lambda PPCC Plot] [] [2011-10-18 16:10:29] [6d8d5ddb787739e9d7807ef3376f0127]
- R         [Tukey lambda PPCC Plot] [] [2011-10-18 16:10:29] [6d8d5ddb787739e9d7807ef3376f0127]
- R         [Tukey lambda PPCC Plot] [] [2011-10-18 16:10:29] [6d8d5ddb787739e9d7807ef3376f0127]
-    D    [Tukey lambda PPCC Plot] [Extrinsic motivat...] [2010-10-15 09:34:01] [2960375a246cc0628590c95c4038a43c]
-   P       [Tukey lambda PPCC Plot] [] [2010-10-18 19:08:31] [1251ac2db27b84d4a3ba43449388906b]
- R         [Tukey lambda PPCC Plot] [] [2011-10-18 16:07:31] [6d8d5ddb787739e9d7807ef3376f0127]
-    D    [Tukey lambda PPCC Plot] [Amotivation] [2010-10-15 09:36:10] [2960375a246cc0628590c95c4038a43c]
-   P       [Tukey lambda PPCC Plot] [] [2010-10-18 19:12:16] [1251ac2db27b84d4a3ba43449388906b]
- R         [Tukey lambda PPCC Plot] [] [2011-10-18 16:12:37] [6d8d5ddb787739e9d7807ef3376f0127]
-   PD    [Tukey lambda PPCC Plot] [Extrinsic 3 - Lambda] [2010-10-15 09:45:48] [4a7069087cf9e0eda253aeed7d8c30d6]
-    D      [Tukey lambda PPCC Plot] [Extrinsic 2 - Lambda] [2010-10-15 09:48:06] [4a7069087cf9e0eda253aeed7d8c30d6]
-    D        [Tukey lambda PPCC Plot] [Extrinsic 1 - Lambda] [2010-10-15 09:52:04] [4a7069087cf9e0eda253aeed7d8c30d6]
-    D          [Tukey lambda PPCC Plot] [Amotive - Lambda] [2010-10-15 09:53:05] [4a7069087cf9e0eda253aeed7d8c30d6]
-    D    [Tukey lambda PPCC Plot] [Q2 EM Id PPCC] [2010-10-15 09:55:18] [56d90b683fcd93137645f9226b43c62b]
-    D      [Tukey lambda PPCC Plot] [Q2 IM to know - PPCC] [2010-10-19 07:18:32] [56d90b683fcd93137645f9226b43c62b]
-    D      [Tukey lambda PPCC Plot] [Q2 IM tow acc - PPCC] [2010-10-19 07:27:11] [56d90b683fcd93137645f9226b43c62b]
-   PD      [Tukey lambda PPCC Plot] [Q2 IM stim - PPCC] [2010-10-19 07:35:23] [56d90b683fcd93137645f9226b43c62b]
F    D    [Tukey lambda PPCC Plot] [Intrinsic Motivat...] [2010-10-15 10:08:26] [aeb27d5c05332f2e597ad139ee63fbe4]
-    D    [Tukey lambda PPCC Plot] [Q2 EM Int PPCC] [2010-10-15 10:09:19] [56d90b683fcd93137645f9226b43c62b]
F    D    [Tukey lambda PPCC Plot] [Intrinsic Motivat...] [2010-10-15 10:10:43] [aeb27d5c05332f2e597ad139ee63fbe4]
-    D    [Tukey lambda PPCC Plot] [Q2 EM ER PPCC] [2010-10-15 10:15:55] [56d90b683fcd93137645f9226b43c62b]
-   PD      [Tukey lambda PPCC Plot] [Q2 Amot - PPCC] [2010-10-19 07:46:56] [56d90b683fcd93137645f9226b43c62b]
-    D    [Tukey lambda PPCC Plot] [Turkey Lambada] [2010-10-15 12:06:33] [3074aa973ede76ac75d398946b01602f]
-    D      [Tukey lambda PPCC Plot] [Turkey Lambada 2] [2010-10-15 12:12:40] [3074aa973ede76ac75d398946b01602f]
-    D        [Tukey lambda PPCC Plot] [Turkey Lambada 3] [2010-10-15 12:15:06] [3074aa973ede76ac75d398946b01602f]
-               [Tukey lambda PPCC Plot] [Turkey Lambada] [2010-10-19 09:10:14] [616fb52b46273b7e6805de1e68b3a688]
-             [Tukey lambda PPCC Plot] [Turkey Lambada] [2010-10-19 09:09:33] [616fb52b46273b7e6805de1e68b3a688]
-           [Tukey lambda PPCC Plot] [Turkey Lambada] [2010-10-19 09:08:51] [616fb52b46273b7e6805de1e68b3a688]
F    D    [Tukey lambda PPCC Plot] [intrinsic motivat...] [2010-10-15 12:27:08] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
-           [Tukey lambda PPCC Plot] [Task 3.3 PPCC plot] [2010-10-19 14:08:16] [39c51da0be01189e8a44eb69e891b7a1]
F           [Tukey lambda PPCC Plot] [Task 3.3 PPCC plot] [2010-10-19 14:08:16] [39c51da0be01189e8a44eb69e891b7a1]
-    D    [Tukey lambda PPCC Plot] [intrinsic motivat...] [2010-10-15 12:34:08] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
F    D    [Tukey lambda PPCC Plot] [Extrinsic motivat...] [2010-10-15 12:40:39] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
-    D    [Tukey lambda PPCC Plot] [extrinsic motivat...] [2010-10-15 12:45:08] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
F    D    [Tukey lambda PPCC Plot] [Extrinsic motivat...] [2010-10-15 12:50:16] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
F    D    [Tukey lambda PPCC Plot] [Amotivation] [2010-10-15 12:58:47] [97ad38b1c3b35a5feca8b85f7bc7b3ff]
-    D    [Tukey lambda PPCC Plot] [] [2010-10-15 14:39:52] [d39e5c40c631ed6c22677d2e41dbfc7d]
F    D    [Tukey lambda PPCC Plot] [intr. 2] [2010-10-16 11:07:24] [0175b38674e1402e67841c9c82e4a5a3]

[Truncated]
Feedback Forum

Post a new message
Dataseries X:
26
20
19
19
20
25
25
22
26
22
17
22
19
24
26
21
13
26
20
22
14
21
7
23
17
25
25
19
20
23
22
22
21
15
20
22
18
20
28
22
18
23
20
25
26
15
17
23
21
13
18
19
22
16
24
18
20
24
14
22
24
18
21
23
17
22
24
21
22
16
21
23
22
24
24
16
16
21
26
15
25
18
23
20
17
25
24
17
19
20
15
27
22
23
16
19
25
19
19
26
21
20
24
22
20
18
18
24
24
22
23
22
20
18
25
18
16
20
19
15
19
19
16
17
28
23
25
20
17
23
16
23
11
18
24
23
21
16
24
23
18
20
9
24
25
20
21
25
22
21
21
22
27
24
24
21
18
16
22
20
18
20




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=82870&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 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.593230692538358
Exact Logistic (lambda=0)0.982684996786427
Approx. Normal (lambda=0.14)0.984467688929028
U-shaped (lambda=0.5)0.974653238553651
Exactly Uniform (lambda=1)0.962355827424116

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=82870&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.593230692538358
Exact Logistic (lambda=0)0.982684996786427
Approx. Normal (lambda=0.14)0.984467688929028
U-shaped (lambda=0.5)0.974653238553651
Exactly Uniform (lambda=1)0.962355827424116



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