FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_Pregnancy and cognition.wasp
Title produced by softwareCorrelation
Date of computationWed, 18 Jun 2014 13:00:16 +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/2014/Jun/18/t1403092874ig5o5uih8vzqhgh.htm/, Retrieved Tue, 14 May 2024 20:15:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235237, Retrieved Tue, 14 May 2024 20:15:39 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact223

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Correlation] [PY2224 PR - Ex co...] [2014-06-18 12:00:16] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
62
90
75
62
62
44
62
20
82
62
69
62
44
47
47
62
65
54
75
69
62
65
58
80
68
66
74
70
48
78
68
73
78
73
75
45
71
68
73
65
75
75
90
50
62
62
75
69
65
62
69
37
75
75
75
58
54
69
90
69
62
69
75
69
62
54
62
65
75
65
65
62
20
50
62
69
65
90
82
69
65
69
65
58
58
62
62
62
58
75
62
65
65
58
50
62
65
44
69
65
75
40
82
65
65
69
75
82
82
35
69
69
58
69
62
58
65
69
65
65
47
20
69
58
68
85
82
69
58
65
62
54
54
69
35
54
58
50
69
73
60
72
71
68
52
69
90
69
69
69
82
90
72
Dataseries Y:
Download CSV
Histogram 
53
80
63
63
54
56
71
52
69
68
51
57
57
48
53
54
71
76
73
80
71
45
67
71
65
63
55
78
59
41
64
63
55
68
70
62
50
80
27
58
83
65
82
66
56
53
48
55
67
61
67
24
64
61
77
61
52
81
70
90
42
66
21
53
68
36
49
72
70
76
58
60
47
63
68
57
61
53
44
74
53
59
57
56
43
71
66
63
42
71
48
46
76
65
24
50
65
56
32
44
63
18
76
70
17
70
66
63
59
47
60
68
65
68
76
58
70
63
57
89
48
51
49
50
77
68
51
54
65
40
58
53
64
53
56
50
49
62
50
64
59
43
44
61
41
72
56
80
54
50
82
64
71

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R Server'George Udny Yule' @ yule.wessa.net

\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 & 0 seconds \tabularnewline
R Server & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235237&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]0 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235237&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235237&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 time0 seconds
R Server'George Udny Yule' @ yule.wessa.net






Shapiro Test (pr)
Statistic WProbabilityLink
0.93060Shapiro-Wilk Test

\begin{tabular}{lllllllll}
\hline
Shapiro Test (pr) \tabularnewline
Statistic W & Probability & Link \tabularnewline
0.9306 & 0 & Shapiro-Wilk Test \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235237&T=1

[TABLE]
[ROW][C]Shapiro Test (pr)[/C][/ROW]
[ROW][C]Statistic W[/C][C]Probability[/C][C]Link[/C][/ROW]
[ROW][C]0.9306[/C][C]0[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235237&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235237&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:

Shapiro Test (pr)
Statistic WProbabilityLink
0.93060Shapiro-Wilk Test






Shapiro Test (exam)
Statistic WprobabilityLink
0.97090.0025Shapiro-Wilk Test

\begin{tabular}{lllllllll}
\hline
Shapiro Test (exam) \tabularnewline
Statistic W & probability & Link \tabularnewline
0.9709 & 0.0025 & Shapiro-Wilk Test \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235237&T=2

[TABLE]
[ROW][C]Shapiro Test (exam)[/C][/ROW]
[ROW][C]Statistic W[/C][C]probability[/C][C]Link[/C][/ROW]
[ROW][C]0.9709[/C][C]0.0025[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235237&T=2

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

As an alternative you can also use a QR Code:  
QR Code


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

Shapiro Test (exam)
Statistic WprobabilityLink
0.97090.0025Shapiro-Wilk Test






Correlation Test X-Y
StatisticValueprobabilityMethodalternative
cor0.31441e-04Pearson's product-moment correlationtwo.sided

\begin{tabular}{lllllllll}
\hline
Correlation Test X-Y \tabularnewline
Statistic & Value & probability & Method & alternative \tabularnewline
cor & 0.3144 & 1e-04 & Pearson's product-moment correlation & two.sided \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235237&T=3

[TABLE]
[ROW][C]Correlation Test X-Y[/C][/ROW]
[ROW][C]Statistic[/C][C]Value[/C][C]probability[/C][C]Method[/C][C]alternative[/C][/ROW]
[ROW][C]cor[/C][C]0.3144[/C][C]1e-04[/C][C]Pearson's product-moment correlation[/C][C]two.sided[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235237&T=3

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

As an alternative you can also use a QR Code:  
QR Code


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

Correlation Test X-Y
StatisticValueprobabilityMethodalternative
cor0.31441e-04Pearson's product-moment correlationtwo.sided


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = pearson ; par2 = two.sided ;
Parameters (R input):
par1 = pearson ; par2 = two.sided ;
R code (references can be found in the software module):
par2 <- 'two.sided'
par1 <- 'pearson'
bitmap(file='test1.png')
plot(x,y, xlab=xlab, ylab=ylab)
abline(coef=(lm(y ~ x))$coeff, col='red')
ctp<-cor.test(x, y, use='pair', method='pearson')
legend('bottomright', c('cor =', as.character(round(ctp$estimate, digits=4))))
dev.off()
(sw1<-shapiro.test(x))
(sw2<-shapiro.test(y))
(cxy<-cor.test(x, y, method=par1))
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,paste('Shapiro Test (', xlab,')',sep=''),3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Statistic W',header=TRUE)
a<-table.element(a,'Probability',header=TRUE)
a<-table.element(a,'Link',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,round(sw1$statistic, digits=4))
a<-table.element(a,round(sw1$p.value, digits=4))
a<-table.element(a,hyperlink('http://en.wikipedia.org/wiki/Shapiro%E2%80%93Wilk_test','Shapiro-Wilk Test','Shapiro-Wilk Test'))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a, paste('Shapiro Test (', ylab,')',sep=''),3,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Statistic W',header=TRUE)
a<-table.element(a,'probability',header=TRUE)
a<-table.element(a,'Link',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,round(sw2$statistic, digits=4))
a<-table.element(a,round(sw2$p.value, digits=4))
a<-table.element(a,hyperlink('http://en.wikipedia.org/wiki/Shapiro%E2%80%93Wilk_test','Shapiro-Wilk Test','Shapiro-Wilk Test'))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Correlation Test X-Y',5,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Statistic',header=TRUE)
a<-table.element(a,'Value',header=TRUE)
a<-table.element(a,'probability',header=TRUE)
a<-table.element(a,'Method',header=TRUE)
a<-table.element(a,'alternative',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,names(cxy$estimate))
a<-table.element(a,round(cxy$estimate, digits=4))
a<-table.element(a,round(cxy$p.value, digits=4))
a<-table.element(a,cxy$method)
a<-table.element(a,cxy$alternative)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable2.tab')