Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

Ian.Hollidayrwasp_Pregnancy and cognition.wasp

Title produced by software

Correlation

Date of computation

Wed, 28 Apr 2010 08:03:45 +0000

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/2010/Apr/28/t1272441884pm5zn8idx9zoelt.htm/, Retrieved Sat, 20 Apr 2024 12:26:34 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74951, Retrieved Sat, 20 Apr 2024 12:26:34 +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

triglyceride, correlation. weight loss

Estimated Impact

266

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

-     [Simple Linear Regression] [PY2224 Mock Exam ...] [2010-04-28 07:33:16] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RMPD  [Correlation] [PY2224 Mock Exam ...] [2010-04-28 07:52:28] [98fd0e87c3eb04e0cc2efde01dbafab6]
-           [Correlation] [PY2224 Mock Exam ...] [2010-04-28 08:03:45] [a9208f4f8d3b118336aae915785f2bd9] [Current]
-  M D        [Correlation] [PY2224 May Mock E...] [2010-04-28 12:25:43] [98fd0e87c3eb04e0cc2efde01dbafab6] 
-    D          [Correlation] [PY2224 May Mock E...] [2010-04-30 11:35:53] [98fd0e87c3eb04e0cc2efde01dbafab6] 
-    D            [Correlation] [] [2010-05-04 13:10:21] [82439cd473f0ddf8a88eb1802dda9b6c] 
-    D            [Correlation] [] [2010-05-04 13:07:45] [e8bb49267f0b4e611f4778412d0811f2] 
-    D            [Correlation] [Mockexam1] [2010-05-04 13:09:19] [226e457c23f16abdaf22fe48e6e411fd] 
-    D            [Correlation] [Correlation of tr...] [2010-05-04 13:12:24] [f0a7b9ce333a507984a56d87311bd9a6] 
-    D            [Correlation] [Mock] [2010-05-04 13:15:09] [d85e8cd4dd2ccdf2c3dfa3761837f774] 
-    D            [Correlation] [Correlation of Tr...] [2010-05-04 13:14:23] [7756e15f439c0db38d660c862abbb747] 
-    D            [Correlation] [Correlation graph...] [2010-05-04 13:15:47] [991f3c16ff1ec6689e9f3866d072593e] 
-    D            [Correlation] [correlation] [2010-05-04 13:15:13] [c7d0e78e2fa8da0e0b2bee0011c20ac0] 
-    D            [Correlation] [mockexam] [2010-05-04 13:16:50] [66f61a2d5ef80b1eafe31e5651ad0889] 
-    D            [Correlation] [triglyceride vs w...] [2010-05-04 13:15:36] [a58114c03403c4a3c11c78968b4ee919] 
-    D            [Correlation] [triglyceride leve...] [2010-05-04 13:17:15] [2185b0545466c0a8649e1b1b76e104e0] 
-    D            [Correlation] [question 2 1] [2010-05-04 13:14:55] [256a42577f5eb7e9c8a1b74c73a90fa8] 
-    D            [Correlation] [] [2010-05-04 13:15:11] [5cae40017fc37cfe76436682b5003098] 
-                 [Correlation] [mock correlation] [2010-05-04 13:18:20] [153000c0b3bd367036e4d581452d08df] 
-                 [Correlation] [mock correlation] [2010-05-04 13:18:20] [153000c0b3bd367036e4d581452d08df] 
-    D            [Correlation] [] [2010-05-04 13:18:55] [609c1e5ad6fe9b179b6d83d13356f854] 
-    D            [Correlation] [Stats mock] [2010-05-04 13:20:06] [012a64ac316c94a67eaef3285dac2cf7] 
-    D            [Correlation] [mock exam comp1] [2010-05-04 13:17:06] [0dff2a868db4b5bcbf64703b84410784] 
-    D            [Correlation] [mock exam 1] [2010-05-04 13:20:20] [74be16979710d4c4e7c6647856088456] 
-    D            [Correlation] [] [2010-05-04 13:14:09] [bc03f19b1cbb14de25d671293ac6c773] 
-    D            [Correlation] [Mock ii] [2010-05-04 13:21:20] [856c65906cd78e3f7881668c6dfea87f] 
-    D            [Correlation] [ii] [2010-05-04 13:13:13] [885328d98a95a442af53d0763bccf325] 
-    D            [Correlation] [Basline correlation] [2010-05-04 13:21:45] [74be16979710d4c4e7c6647856088456] 
-    D            [Correlation] [Graph 1] [2010-05-04 13:23:28] [c519646407a489a26f129bdc22b2e203] 
-   P               [Correlation] [graph 2] [2010-05-04 14:33:27] [c519646407a489a26f129bdc22b2e203] 
-    D            [Correlation] [] [2010-05-04 13:23:40] [74be16979710d4c4e7c6647856088456] 
-    D            [Correlation] [Correlation betwe...] [2010-05-04 13:23:56] [991f3c16ff1ec6689e9f3866d072593e] 
-   PD            [Correlation] [obeisty study] [2010-05-04 13:23:18] [74be16979710d4c4e7c6647856088456] 
-                 [Correlation] [A graph to show c...] [2010-05-04 13:10:46] [a04c3705631ba28c4a7ea7999bc2469c] 
-   PD            [Correlation] [Weight] [2010-05-04 13:23:12] [31938d087c55cf67127a01ef1e8f38ba] 
-    D            [Correlation] [] [2010-05-04 13:20:43] [7ee8584ae92dbbc2a823887b8397aaa8] 
-    D            [Correlation] [question 2 2 ] [2010-05-04 13:26:22] [256a42577f5eb7e9c8a1b74c73a90fa8] 
-    D            [Correlation] [mock] [2010-05-04 13:15:22] [9071c1a88a977c8c2dd0accff6b1d644] 
-    D            [Correlation] [] [2010-05-04 13:25:33] [226e457c23f16abdaf22fe48e6e411fd] 
-                 [Correlation] [] [2010-05-04 13:17:25] [0848a45f8a904661abc16c2a3570ded4] 
-    D            [Correlation] [correlation of ch...] [2010-05-04 13:21:40] [a2ec18f77143ca7c2255feafca790c81] 
-    D            [Correlation] [] [2010-05-04 13:19:53] [869dc8c90da15910a169a569d8b6a5c9] 
-    D            [Correlation] [correlation of ch...] [2010-05-04 13:21:40] [a2ec18f77143ca7c2255feafca790c81] 
-    D            [Correlation] [Correlation week 8 ] [2010-05-04 13:27:21] [74be16979710d4c4e7c6647856088456] 
-    D            [Correlation] [Mock exam ] [2010-05-04 13:27:05] [efb93495a892eea584966de4a02d2ce4] 
-    D            [Correlation] [Correlation ] [2010-05-04 13:25:09] [da3db4ee336105e3f28c420d1eeb41bc] 
-    D            [Correlation] [correlation] [2010-05-04 13:21:11] [9dc333cea70095e4d9c08ad15f70f6c6] 
-    D            [Correlation] [] [2010-05-04 13:25:51] [a120050d9c71216a504f7d26958aa6f2] 
-    D            [Correlation] [exam - correlatio...] [2010-05-04 13:25:20] [6754037f2a7547483397efade45eb176] 
-    D            [Correlation] [trygliceride at b...] [2010-05-04 13:28:39] [74be16979710d4c4e7c6647856088456] 
-    D            [Correlation] [] [2010-05-04 13:29:19] [d67ed87d94f8374cf5eb71740c29a070] 

[Truncated]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1.6
1.8
5.2
4.1
0.4
2.7
2.4
2.6
2.4
7.2
3.7
8.4
1.5
8.0
0.0
7.1
2.8
8.2
2.3
5.0
5.9
6.2
3.6
1.6
3.2
2.6
1.6
5.8
2.8
1.2
-1.5
7.8
2.5
9.6
7.4

Dataseries Y:

Download CSV

Histogram

-41.0
55.0
30.0
0.0
17.0
-61.0
27.0
1.0
-67.0
80.0
-70.0
41.0
-37.0
0.0
7.0
-50.0
74.0
79.0
56.0
18.0
4.0
15.0
69.0
-6.0
32.0
57.0
59.0
68.0
-39.0
8.0
-349.0
169.0
51.0
43.0
58.0

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 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=74951&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=74951&T=0

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

Shapiro Test (Change in Weight - Kg)
Statistic W	Probability	Link
0.948	0.0984	Shapiro-Wilk Test

\begin{tabular}{lllllllll}
\hline
Shapiro Test (Change in Weight - Kg) \tabularnewline
Statistic W & Probability & Link \tabularnewline
0.948 & 0.0984 & Shapiro-Wilk Test \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74951&T=1

[TABLE]
[ROW][C]Shapiro Test (Change in Weight - Kg)[/C][/ROW]
[ROW][C]Statistic W[/C][C]Probability[/C][C]Link[/C][/ROW]
[ROW][C]0.948[/C][C]0.0984[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74951&T=1

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

As an alternative you can also use a QR Code:

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

Shapiro Test (Change in Weight - Kg)
Statistic W	Probability	Link
0.948	0.0984	Shapiro-Wilk Test

Shapiro Test (Change in TriGly - mg/dl)
Statistic W	probability	Link
0.7641	0	Shapiro-Wilk Test

\begin{tabular}{lllllllll}
\hline
Shapiro Test (Change in TriGly - mg/dl) \tabularnewline
Statistic W & probability & Link \tabularnewline
0.7641 & 0 & Shapiro-Wilk Test \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74951&T=2

[TABLE]
[ROW][C]Shapiro Test (Change in TriGly - mg/dl)[/C][/ROW]
[ROW][C]Statistic W[/C][C]probability[/C][C]Link[/C][/ROW]
[ROW][C]0.7641[/C][C]0[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74951&T=2

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

As an alternative you can also use a QR Code:

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

Shapiro Test (Change in TriGly - mg/dl)
Statistic W	probability	Link
0.7641	0	Shapiro-Wilk Test

Correlation Test X-Y
Statistic	Value	probability	Method	alternative
cor	0.4643	0.005	Pearson's product-moment correlation	two.sided

\begin{tabular}{lllllllll}
\hline
Correlation Test X-Y \tabularnewline
Statistic & Value & probability & Method & alternative \tabularnewline
cor & 0.4643 & 0.005 & Pearson's product-moment correlation & two.sided \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74951&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.4643[/C][C]0.005[/C][C]Pearson's product-moment correlation[/C][C]two.sided[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74951&T=3

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

As an alternative you can also use a QR Code:

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

Correlation Test X-Y
Statistic	Value	probability	Method	alternative
cor	0.4643	0.005	Pearson's product-moment correlation	two.sided

Figure 1

PNG link

Postscript link

PDF link

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

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code