of Irreproducible Research!
Description of Statistical Computation  

Author's title  
Author  *The author of this computation has been verified*  
R Software Module  rwasp_Two Factor ANOVA.wasp  
Title produced by software  TwoWay ANOVA  
Date of computation  Tue, 28 Jan 2020 10:47:35 +0100  
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/2020/Jan/28/t1580205068o3nvwma6kpag2gu.htm/, Retrieved Wed, 21 Apr 2021 07:36:21 +0000  
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319051, Retrieved Wed, 21 Apr 2021 07:36:21 +0000  
QR Codes:  


Original text written by user:  
IsPrivate?  No (this computation is public)  
Userdefined keywords  
Estimated Impact  38  
Tree of Dependent Computations  
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)  
 [TwoWay ANOVA] [vraag 6] [20200128 09:47:35] [43eb2330ebca6ad52336dea971844457] [Current]  
Feedback Forum  
Post a new message  
Dataset  
Dataseries X:  
21 "'F'" "'S'" 22 "'M'" "'S'" 17 "'M'" "'S'" 21 "'M'" "'S'" 19 "'F'" "'S'" 23 "'M'" "'S'" 21 "'M'" "'S'" 22 "'M'" "'S'" 11 "'F'" "'S'" 20 "'F'" "'S'" 18 "'F'" "'S'" 16 "'F'" "'S'" 18 "'M'" "'S'" 13 "'F'" "'S'" 17 "'M'" "'S'" 20 "'M'" "'S'" 20 "'M'" "'S'" 15 "'M'" "'S'" 18 "'F'" "'S'" 15 "'F'" "'S'" 19 "'M'" "'S'" 19 "'F'" "'S'" 19 "'M'" "'S'" 20 "'M'" "'S'" 20 "'M'" "'S'" 16 "'F'" "'S'" 18 "'F'" "'S'" 17 "'M'" "'S'" 18 "'M'" "'S'" 13 "'F'" "'S'" 20 "'M'" "'B'" 21 "'M'" "'S'" 17 "'F'" "'S'" 19 "'F'" "'S'" 20 "'F'" "'S'" 15 "'F'" "'S'" 15 "'F'" "'S'" 19 "'M'" "'S'" 18 "'M'" "'S'" 22 "'M'" "'S'" 20 "'M'" "'S'" 18 "'F'" "'B'" 14 "'F'" "'S'" 15 "'F'" "'S'" 17 "'M'" "'S'" 16 "'M'" "'S'" 17 "'M'" "'S'" 15 "'M'" "'S'" 17 "'M'" "'S'" 18 "'M'" "'S'" 16 "'F'" "'S'" 18 "'F'" "'S'" 22 "'F'" "'S'" 16 "'F'" "'S'" 16 "'F'" "'S'" 20 "'F'" "'S'" 18 "'M'" "'S'" 16 "'F'" "'B'" 16 "'F'" "'S'" 20 "'M'" "'S'" 21 "'M'" "'B'" 18 "'F'" "'B'" 15 "'F'" "'S'" 18 "'F'" "'S'" 18 "'F'" "'S'" 20 "'F'" "'S'" 18 "'F'" "'S'" 16 "'F'" "'S'" 19 "'M'" "'S'" 20 "'M'" "'S'" 22 "'M'" "'S'" 18 "'F'" "'B'" 8 "'M'" "'B'" 13 "'M'" "'B'" 13 "'M'" "'B'" 18 "'M'" "'B'" 12 "'F'" "'B'" 16 "'F'" "'B'" 21 "'F'" "'S'" 20 "'F'" "'S'" 18 "'F'" "'B'" 22 "'M'" "'S'" 23 "'M'" "'S'" 23 "'M'" "'S'" 21 "'M'" "'S'" 16 "'M'" "'S'" 14 "'F'" "'S'" 18 "'M'" "'S'" 22 "'M'" "'S'" 20 "'F'" "'S'" 18 "'M'" "'S'" 12 "'M'" "'S'" 17 "'M'" "'S'" 15 "'F'" "'S'" 18 "'M'" "'S'" 18 "'F'" "'S'" 15 "'M'" "'S'" 16 "'F'" "'S'" 15 "'F'" "'S'" 16 "'M'" "'S'" 19 "'F'" "'S'" 19 "'M'" "'S'" 23 "'M'" "'S'" 20 "'F'" "'S'" 18 "'F'" "'B'" 21 "'M'" "'S'" 19 "'F'" "'S'" 18 "'M'" "'B'" 19 "'M'" "'B'" 17 "'F'" "'S'" 21 "'M'" "'S'" 19 "'F'" "'S'" 24 "'M'" "'S'" 12 "'F'" "'S'" 15 "'F'" "'S'" 18 "'M'" "'S'" 19 "'M'" "'S'" 22 "'M'" "'S'" 19 "'F'" "'B'" 16 "'F'" "'S'" 19 "'F'" "'S'" 18 "'F'" "'S'" 18 "'F'" "'S'" 19 "'M'" "'S'" 21 "'F'" "'S'" 19 "'M'" "'B'" 22 "'F'" "'S'" 23 "'M'" "'B'" 17 "'F'" "'S'" 18 "'M'" "'B'" 19 "'F'" "'S'" 15 "'M'" "'S'" 14 "'F'" "'B'" 18 "'F'" "'S'" 17 "'F'" "'B'" 19 "'F'" "'B'" 16 "'M'" "'B'" 14 "'M'" "'B'" 20 "'F'" "'S'" 16 "'F'" "'B'" 18 "'M'" "'B'" 16 "'M'" "'B'" 21 "'F'" "'B'" 16 "'F'" "'B'" 14 "'F'" "'B'" 16 "'F'" "'S'" 19 "'M'" "'B'" 19 "'M'" "'B'" 19 "'F'" "'B'" 18 "'M'" "'B'" 16 "'F'" "'S'" 14 "'M'" "'B'" 19 "'F'" "'B'" 11 "'M'" "'B'" 18 "'M'" "'S'" 18 "'M'" "'S'" 16 "'F'" "'S'" 20 "'M'" "'B'" 18 "'M'" "'B'" 20 "'M'" "'S'" 16 "'F'" "'S'" 18 "'M'" "'B'" 19 "'F'" "'S'" 19 "'M'" "'B'" 15 "'F'" "'B'" 17 "'M'" "'S'" 21 "'F'" "'B'" 24 "'M'" "'S'" 16 "'M'" "'S'" 13 "'M'" "'B'" 21 "'M'" "'B'" 16 "'M'" "'S'" 17 "'M'" "'S'" 17 "'F'" "'S'" 18 "'F'" "'B'" 18 "'F'" "'S'" 23 "'M'" "'S'" 20 "'F'" "'B'" 20 "'F'" "'B'"  
Tables (Output of Computation)  
\begin{tabular}{lllllllll} \hline Summary of computational transaction \tabularnewline Raw Input view raw input (R code) \tabularnewline Raw Outputview raw output of R engine \tabularnewline Computing time1 seconds \tabularnewline R ServerBig Analytics Cloud Computing Center \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=319051&T=0 [TABLE] [ROW]
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319051&T=0
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline ANOVA Model \tabularnewline Response ~ Treatment_A * Treatment_B \tabularnewline means & 17.478 & 0.401 & 0.14 & 2.124 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=319051&T=1 [TABLE] [ROW][C]ANOVA Model[/C][/ROW] [ROW][C]Response ~ Treatment_A * Treatment_B[/C][/ROW] [ROW][C]means[/C][C]17.478[/C][C]0.401[/C][C]0.14[/C][C]2.124[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319051&T=1
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319051&T=1
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline ANOVA Statistics \tabularnewline & Df & Sum Sq & Mean Sq & F value & Pr(>F) \tabularnewline & 1 & & & & \tabularnewline Treatment_A & 1 & 56.069 & 56.069 & 8.096 & 0.005 \tabularnewline Treatment_B & 1 & 33.437 & 33.437 & 4.828 & 0.029 \tabularnewline Treatment_A:Treatment_B & 1 & 40.042 & 40.042 & 5.782 & 0.017 \tabularnewline Residuals & 175 & 1211.893 & 6.925 & & \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=319051&T=2 [TABLE] [ROW][C]ANOVA Statistics[/C][/ROW] [ROW][C] [/C][C]Df[/C][C]Sum Sq[/C][C]Mean Sq[/C][C]F value[/C][C]Pr(>F)[/C][/ROW] [ROW][C][/C][C]1[/C][C][/C][C][/C][C][/C][C][/C][/ROW] [ROW][C]Treatment_A[/C][C]1[/C][C]56.069[/C][C]56.069[/C][C]8.096[/C][C]0.005[/C][/ROW] [ROW][C]Treatment_B[/C][C]1[/C][C]33.437[/C][C]33.437[/C][C]4.828[/C][C]0.029[/C][/ROW] [ROW][C]Treatment_A:Treatment_B[/C][C]1[/C][C]40.042[/C][C]40.042[/C][C]5.782[/C][C]0.017[/C][/ROW] [ROW][C]Residuals[/C][C]175[/C][C]1211.893[/C][C]6.925[/C][C] [/C][C] [/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319051&T=2
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319051&T=2
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline Tukey Honest Significant Difference Comparisons \tabularnewline & diff & lwr & upr & p adj \tabularnewline 'M''F' & 1.12 & 0.343 & 1.896 & 0.005 \tabularnewline 'S''B' & 0.969 & 0.098 & 1.84 & 0.029 \tabularnewline 'M':'B''F':'B' & 0.401 & 2.355 & 1.553 & 0.951 \tabularnewline 'F':'S''F':'B' & 0.14 & 1.796 & 1.516 & 0.996 \tabularnewline 'M':'S''F':'B' & 1.583 & 0.073 & 3.239 & 0.067 \tabularnewline 'F':'S''M':'B' & 0.262 & 1.322 & 1.845 & 0.974 \tabularnewline 'M':'S''M':'B' & 1.985 & 0.401 & 3.569 & 0.007 \tabularnewline 'M':'S''F':'S' & 1.723 & 0.526 & 2.92 & 0.001 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=319051&T=3 [TABLE] [ROW][C]Tukey Honest Significant Difference Comparisons[/C][/ROW] [ROW][C] [/C][C]diff[/C][C]lwr[/C][C]upr[/C][C]p adj[/C][/ROW] [ROW][C]'M''F'[/C][C]1.12[/C][C]0.343[/C][C]1.896[/C][C]0.005[/C][/ROW] [ROW][C]'S''B'[/C][C]0.969[/C][C]0.098[/C][C]1.84[/C][C]0.029[/C][/ROW] [ROW][C]'M':'B''F':'B'[/C][C]0.401[/C][C]2.355[/C][C]1.553[/C][C]0.951[/C][/ROW] [ROW][C]'F':'S''F':'B'[/C][C]0.14[/C][C]1.796[/C][C]1.516[/C][C]0.996[/C][/ROW] [ROW][C]'M':'S''F':'B'[/C][C]1.583[/C][C]0.073[/C][C]3.239[/C][C]0.067[/C][/ROW] [ROW][C]'F':'S''M':'B'[/C][C]0.262[/C][C]1.322[/C][C]1.845[/C][C]0.974[/C][/ROW] [ROW][C]'M':'S''M':'B'[/C][C]1.985[/C][C]0.401[/C][C]3.569[/C][C]0.007[/C][/ROW] [ROW][C]'M':'S''F':'S'[/C][C]1.723[/C][C]0.526[/C][C]2.92[/C][C]0.001[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319051&T=3
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319051&T=3
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
\begin{tabular}{lllllllll} \hline Levenes Test for Homogeneity of Variance \tabularnewline & Df & F value & Pr(>F) \tabularnewline Group & 3 & 0.88 & 0.453 \tabularnewline & 175 & & \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=319051&T=4 [TABLE] [ROW][C]Levenes Test for Homogeneity of Variance[/C][/ROW] [ROW][C] [/C][C]Df[/C][C]F value[/C][C]Pr(>F)[/C][/ROW] [ROW][C]Group[/C][C]3[/C][C]0.88[/C][C]0.453[/C][/ROW] [ROW][C] [/C][C]175[/C][C] [/C][C] [/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319051&T=4
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319051&T=4
As an alternative you can also use a QR Code: The GUIDs for individual cells are displayed in the table below:
 
Figures (Output of Computation)  
Input Parameters & R Code  
Parameters (Session):  
par2 = grey ; par3 = FALSE ; par4 = 7point Likert ;  
Parameters (R input):  
par1 = 1 ; par2 = 2 ; par3 = 3 ; par4 = TRUE ;  
R code (references can be found in the software module):  
cat1 < as.numeric(par1) # 