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_Pregnancy and cognition.wasp
Title produced by softwareCorrelation
Date of computationFri, 01 Jun 2012 05:58:40 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Jun/01/t1338544732jnw6k3wmkruy23j.htm/, Retrieved Thu, 02 May 2024 07:40:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168497, Retrieved Thu, 02 May 2024 07:40:04 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Simple Linear Regression] [Triglyceridge Reg...] [2011-07-07 15:11:49] [74be16979710d4c4e7c6647856088456]
- R     [Simple Linear Regression] [Triglyceride] [2012-05-04 19:33:41] [98fd0e87c3eb04e0cc2efde01dbafab6]
- RMPD      [Correlation] [b meales] [2012-06-01 09:58:40] [2c6fbeb8b035aff78a2ee3c8ba680127] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
73
64
67
82
82
81
76
65
85
96
88
92
102
97
88
87
90
82
69
59
84
84
96
88
103
83
77
69
101
78
73
69
69
76
83
67
119
80
65
71
90
79
68
71
75
64
88
85
71
80
66
62
63
78
83
66
81
80
74
70
69
65
79
68
70
89
65
69
79
65
66
74
57
71
55
70
61
75
62
76
76
68
75
69
54
76
66
56
Dataseries Y:
Download CSV
Histogram 
NA
NA
NA
NA
NA
NA
75
67
83
95
93
101
107
98
87
89
91
85
70
61
86
90
94
86
101
83
77
73
100
80
74
70
71
75
80
67
124
80
66
68
91
81
70
71
73
65
86
82
76
76
66
66
63
77
84
68
82
78
71
75
68
66
76
68
70
86
64
69
79
64
70
73
58
71
56
68
61
70
64
76
77
69
76
73
58
75
67
58

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'Herman Ole Andreas Wold' @ wold.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 & 1 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168497&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168497&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168497&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'Herman Ole Andreas Wold' @ wold.wessa.net






Shapiro Test (self_reported_weight)
Statistic WProbabilityLink
0.96130.01Shapiro-Wilk Test

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

[TABLE]
[ROW][C]Shapiro Test (self_reported_weight)[/C][/ROW]
[ROW][C]Statistic W[/C][C]Probability[/C][C]Link[/C][/ROW]
[ROW][C]0.9613[/C][C]0.01[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168497&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168497&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 (self_reported_weight)
Statistic WProbabilityLink
0.96130.01Shapiro-Wilk Test






Shapiro Test (weight)
Statistic WprobabilityLink
0.93615e-04Shapiro-Wilk Test

\begin{tabular}{lllllllll}
\hline
Shapiro Test (weight) \tabularnewline
Statistic W & probability & Link \tabularnewline
0.9361 & 5e-04 & Shapiro-Wilk Test \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168497&T=2

[TABLE]
[ROW][C]Shapiro Test (weight)[/C][/ROW]
[ROW][C]Statistic W[/C][C]probability[/C][C]Link[/C][/ROW]
[ROW][C]0.9361[/C][C]5e-04[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168497&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168497&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 (weight)
Statistic WprobabilityLink
0.93615e-04Shapiro-Wilk Test






Correlation Test X-Y
StatisticValueprobabilityMethodalternative
cor0.97930Pearson's product-moment correlationtwo.sided

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

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