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 computationMon, 24 Nov 2008 12:41:30 -0700
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/Nov/24/t1227556211b45tbpibx9gmj38.htm/, Retrieved Tue, 14 May 2024 06:42:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=25504, Retrieved Tue, 14 May 2024 06:42:10 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsTukey lambda PPCC Plot
Estimated Impact193

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Q1 The Seatbeltlaw] [2007-11-14 19:27:43] [8cd6641b921d30ebe00b648d1481bba0]
F RMPD    [Tukey lambda PPCC Plot] [Tukey lambda PPCC...] [2008-11-24 19:41:30] [f4b2017b314c03698059f43b95818e67] [Current]
-           [Tukey lambda PPCC Plot] [Herberekening Rom...] [2008-11-29 09:49:18] [33f4701c7363e8b81858dafbf0350eed]
-           [Tukey lambda PPCC Plot] [ppcc plot residua...] [2008-12-01 20:00:12] [7173087adebe3e3a714c80ea2417b3eb]
Feedback Forum
2008-11-30 15:22:39 [Michael Van Spaandonck] [reply] 
Deze module werd door de student gebruikt bij het oplossen van vraag 2.
Hoewel dit geen foute methode is, is het wel overbodig werk aangezien de gegevens van het bekomen model uit Q1 hiervoor ook hadden kunnen volstaan.

Deze gegevens en een bespreking van de assumpties zijn hier te vinden:
http://www.freestatistics.org/blog/index.php?v=date/2008/Nov/24/t1227522812hxnuyjc7qs1inca.htm/

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-183.9235445
-177.0726091
-228.6351091
-237.4476091
-127.7601091
-193.0101091
-220.6351091
-164.5101091
-268.3226091
-333.6976091
-34.26010911
-154.8851091
-97.74528053
101.1056549
2.543154874
-43.26934513
-163.5818451
-162.8318451
46.54315487
26.66815487
-107.1443451
42.48065487
76.91815487
196.2931549
201.4329835
12.28391886
-0.278581137
42.90891886
87.59641886
84.34641886
57.72141886
173.8464189
-185.9660811
47.65891886
89.09641886
-68.52858114
272.6112475
146.4621829
162.8996829
10.08718285
279.7746829
212.5246829
248.8996829
-41.97531715
-5.787817149
52.83718285
274.2746829
414.6496829
310.7895114
362.6404468
26.07794684
403.2654468
327.9529468
193.7029468
317.0779468
202.2029468
321.3904468
178.0154468
16.45294684
-68.17205316
-157.0322246
-76.18128917
-81.74378917
-134.5562892
77.13121083
199.8812108
105.2562108
198.3812108
262.5687108
196.1937108
11.63121083
-145.9937892
-166.8539606
-202.0030252
43.43447482
-113.3780252
-113.6905252
-155.9405252
-210.5655252
-124.4405252
-64.25302518
-298.6280252
-154.1905252
23.18447482
-249.6756966
118.1752388
-180.3872612
-79.19976119
-81.51226119
-246.7622612
-105.3872612
-319.2622612
-72.07476119
-90.44976119
-80.01226119
119.3627388
-53.49743261
-114.6464972
-155.2089972
-50.02149721
-196.3339972
-14.58399721
-82.20899721
17.91600279
-162.8964972
-132.2714972
-16.83399721
81.54100279
275.6808314
-32.46823322
17.96926678
27.15676678
-123.1557332
108.5942668
67.96926678
34.09426678
-13.71823322
-113.0932332
54.34426678
149.7192668
153.8590954
-28.28996923
238.1475308
50.33503077
8.022530771
-61.22746923
-140.8524692
-28.72746923
9.460030771
-121.9149692
41.52253077
115.8975308
27.03735936
-91.11170524
3.325794759
-29.48670524
-73.79920524
50.95079476
-86.67420524
-9.54920524
-66.36170524
73.26329476
-216.2992052
-128.9242052
-142.7843767
27.06655875
60.50405875
35.69155875
16.37905875
-64.87094125
115.5040587
-30.37094125
87.81655875
205.4415587
-64.12094125
-322.7459413
-139.6061127
35.24482274
-4.317677263
17.86982274
2.557322737
129.3073227
-16.31767726
164.8073227
21.99482274
138.6198227
87.05732274
51.43232274
-80.42784867
-105.1918797
5.245620328
68.43312033
-0.879379672
-105.1293797
-82.75437967
-132.6293797
102.5581203
23.18312033
-180.3793797
-267.0043797
30.13544892
23.98638432
90.42388432
31.61138432
81.29888432
25.04888432
-13.57611568
33.54888432
140.7363843
132.3613843
94.79888432
4.173884316

Tables (Output of Computation)





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

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






Tukey Lambda - Key Values
Distribution (lambda)Correlation
Approx. Cauchy (lambda=-1)0.539534144470049
Exact Logistic (lambda=0)0.991800025504574
Approx. Normal (lambda=0.14)0.995242118228892
U-shaped (lambda=0.5)0.985957776594614
Exactly Uniform (lambda=1)0.972422776945532

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=25504&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.539534144470049
Exact Logistic (lambda=0)0.991800025504574
Approx. Normal (lambda=0.14)0.995242118228892
U-shaped (lambda=0.5)0.985957776594614
Exactly Uniform (lambda=1)0.972422776945532


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