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 computationThu, 31 May 2012 14:42:27 -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/May/31/t1338489756rsbk4ud4qn2y5es.htm/, Retrieved Mon, 06 May 2024 11:56:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168137, Retrieved Mon, 06 May 2024 11:56:55 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Correlation] [] [2012-05-31 18:42:27] [9046f793922a5e7db2e10c0634e3edbb] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
161
161
157
57
161
168
163
166
168
175
170
171
166
169
166
157
166
164
169
166
164
163
160
161
174
162
165
170
173
162
165
164
158
175
165
163
166
171
160
160
165
169
167
170
165
163
162
161
165
169
159
155
164
163
163
175
164
152
167
166
166
174
167
168
178
165
169
153
157
171
157
166
160
148
162
172
167
163
165
176
171
160
165
157
173
168
162
150
162
163
170
169
167
163
161
162
172
159
170
166
158
163
174
154
165
162
172
169
158
164
156
164
Dataseries Y:
Download CSV
Histogram 
159
158
155
163
158
165
160
165
165
171
170
168
165
168
160
153
165
161
170
165
160
159
158
NA
173
158
163
NA
169
160
163
161
155
171
163
159
161
NA
150
158
163
175
163
170
165
160
160
161
160
165
153
154
163
160
160
173
160
150
164
165
163
171
165
163
175
163
NA
154
153
169
155
163
158
148
160
168
NA
160
163
176
171
155
165
158
170
165
160
152
NA
160
NA
NA
165
160
160
158
171
155
168
165
155
NA
NA
NA
160
160
168
166
155
165
158
161

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'AstonUniversity' @ aston.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 & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168137&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]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168137&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168137&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'AstonUniversity' @ aston.wessa.net






Shapiro Test (Females Measured Height)
Statistic WProbabilityLink
0.48210Shapiro-Wilk Test

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

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

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






Shapiro Test (Females Reported Height)
Statistic WprobabilityLink
0.98160.1713Shapiro-Wilk Test

\begin{tabular}{lllllllll}
\hline
Shapiro Test (Females Reported Height) \tabularnewline
Statistic W & probability & Link \tabularnewline
0.9816 & 0.1713 & Shapiro-Wilk Test \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=168137&T=2

[TABLE]
[ROW][C]Shapiro Test (Females Reported Height)[/C][/ROW]
[ROW][C]Statistic W[/C][C]probability[/C][C]Link[/C][/ROW]
[ROW][C]0.9816[/C][C]0.1713[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168137&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=168137&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 (Females Reported Height)
Statistic WprobabilityLink
0.98160.1713Shapiro-Wilk Test






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

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

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