of Irreproducible Research!
Description of Statistical Computation  

Author's title  
Author  *The author of this computation has been verified*  
R Software Module  rwasp_chi_squared_tests.wasp  
Title produced by software  ChiSquared Test, McNemar Test, and Fisher Exact Test  
Date of computation  Sat, 10 Nov 2012 06:34:47 0500  
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/2012/Nov/10/t13525473688mm4zyvo4j7ewy3.htm/, Retrieved Sat, 10 Dec 2022 04:55:55 +0000  
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=187299, Retrieved Sat, 10 Dec 2022 04:55:55 +0000  
QR Codes:  


Original text written by user:  
IsPrivate?  No (this computation is public)  
Userdefined keywords  
Estimated Impact  82  
Tree of Dependent Computations  
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)  
 [ChiSquared Test, McNemar Test, and Fisher Exact Test] [] [20121110 11:34:47] [65d96969290bbe21bcec2c9fb9795198] [Current]  
Feedback Forum  
Post a new message  
Dataset  
Dataseries X:  
'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Low' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Low' 'Data' 'Male' 'High' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Low' 'Data' 'Female' 'Average' 'Data' 'Male' 'Low' 'Data' 'Male' 'Low' 'Data' 'Female' 'Low' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Low' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Low' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Low' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Female' 'Low' 'Data' 'Male' 'Low' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'High' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Low' 'Data' 'Female' 'Low' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Average' 'Data' 'Female' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Data' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Low' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'High' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'High' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'High' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'High' 'Blog' 'Female' 'Average' 'Blog' 'Female' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male' 'Average' 'Blog' 'Male'  
Tables (Output of Computation)  
\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 & 2 seconds \tabularnewline R Server & 'George Udny Yule' @ yule.wessa.net \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=187299&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]2 seconds[/C][/ROW] [ROW][C]R Server[/C][C]'George Udny Yule' @ yule.wessa.net[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=187299&T=0
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187299&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 Tabulation of Results \tabularnewline Score x Treatment \tabularnewline & Blog & Data \tabularnewline Average & 46 & 50 \tabularnewline High & 4 & 2 \tabularnewline Low & 1 & 13 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=187299&T=1 [TABLE] [ROW][C]Tabulation of Results[/C][/ROW] [ROW][C]Score x Treatment[/C][/ROW] [ROW][C] [/C][C]Blog[/C][C]Data[/C][/ROW] [C]Average[/C][C]46[/C][C]50[/C][/ROW] [C]High[/C][C]4[/C][C]2[/C][/ROW] [C]Low[/C][C]1[/C][C]13[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=187299&T=1
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187299&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 Tabulation of Expected Results \tabularnewline Score x Treatment \tabularnewline & Blog & Data \tabularnewline Average & 42.21 & 53.79 \tabularnewline High & 2.64 & 3.36 \tabularnewline Low & 6.16 & 7.84 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=187299&T=2 [TABLE] [ROW][C]Tabulation of Expected Results[/C][/ROW] [ROW][C]Score x Treatment[/C][/ROW] [ROW][C] [/C][C]Blog[/C][C]Data[/C][/ROW] [C]Average[/C][C]42.21[/C][C]53.79[/C][/ROW] [C]High[/C][C]2.64[/C][C]3.36[/C][/ROW] [C]Low[/C][C]6.16[/C][C]7.84[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=187299&T=2
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187299&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 Statistical Results \tabularnewline Pearson's Chisquared test \tabularnewline Pearson Chi Square Statistic & 9.57 \tabularnewline Degrees of Freedom & 2 \tabularnewline P value & 0.01 \tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=187299&T=3 [TABLE] [ROW][C]Statistical Results[/C][/ROW] [ROW][C]Pearson's Chisquared test[/C][/ROW] [ROW][C]Pearson Chi Square Statistic[/C][C]9.57[/C][/ROW] [ROW][C]Degrees of Freedom[/C][C]2[/C][/ROW] [ROW][C]P value[/C][C]0.01[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=187299&T=3
Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=187299&T=3
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):  
par1 = 1 ; par2 = 2 ; par3 = Pearson ChiSquared ;  
Parameters (R input):  
par1 = 1 ; par2 = 2 ; par3 = Pearson ChiSquared ;  
R code (references can be found in the software module):  
library(vcd) 