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:41:21 -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/t1338543692243hcji0kf3st3d.htm/, Retrieved Thu, 02 May 2024 07:07:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=168372, Retrieved Thu, 02 May 2024 07:07:32 +0000
QR Codes:

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

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] [] [2012-06-01 09:41:21] [3f848c3f3d457fb34169a3f0514ada06] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
182
161
161
177
157
170
167
186
178
171
175
57
161
168
163
166
187
168
197
175
180
170
175
173
171
166
169
166
157
183
166
178
173
164
169
176
166
174
178
187
164
178
163
183
179
160
180
161
174
162
182
165
169
185
177
176
170
183
172
173
165
177
180
173
189
162
165
164
158
178
175
173
165
163
166
171
160
160
182
183
165
168
169
167
170
182
178
165
163
162
173
161
184
180
189
165
185
169
159
155
164
178
163
163
175
164
152
167
166
166
183
179
174
179
167
168
184
184
169
178
178
167
178
165
179
169
153
157
171
157
166
185
160
148
177
162
172
167
188
191
175
163
165
176
171
160
165
157
173
184
168
162
150
162
163
169
172
170
169
167
163
161
162
172
163
159
170
166
191
158
169
163
170
176
168
178
174
170
178
174
176
154
181
165
173
162
172
169
183
158
185
173
164
156
164
175
180
175
181
177
Dataseries Y:
Download CSV
Histogram 
180
159
158
175
155
165
165
180
175
170
174
163
158
165
160
165
185
165
200
171
178
170
173
170
168
165
168
160
153
180
165
175
173
161
170
175
165
171
175
188
160
178
159
180
175
158
NA
NA
173
158
183
163
170
185
NA
172
NA
180
169
170
165
170
175
169
185
160
163
161
155
175
171
175
163
159
161
NA
150
158
180
183
163
170
175
163
170
183
175
165
160
160
170
161
183
180
185
160
182
165
153
154
163
175
160
160
173
160
150
164
165
163
183
171
171
179
165
163
181
183
165
178
175
165
175
163
NA
NA
154
153
169
155
163
185
158
148
175
160
168
NA
185
188
175
160
163
176
171
155
165
158
170
183
165
160
152
NA
160
165
174
NA
NA
165
160
160
158
171
161
155
168
165
188
155
165
NA
170
NA
168
178
NA
165
175
173
175
NA
NA
160
173
160
168
166
180
155
188
173
165
158
161
175
180
NA
178
178

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

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

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

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

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






Shapiro Test (repht)
Statistic WprobabilityLink
0.97850.0064Shapiro-Wilk Test

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

[TABLE]
[ROW][C]Shapiro Test (repht)[/C][/ROW]
[ROW][C]Statistic W[/C][C]probability[/C][C]Link[/C][/ROW]
[ROW][C]0.9785[/C][C]0.0064[/C][C]Shapiro-Wilk Test[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=168372&T=2

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






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

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

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