Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_ecel2008.wasp

Title produced by software

ECEL 2008

Date of computation

Sat, 14 Jun 2008 15:17:24 -0600

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/2008/Jun/14/t1213478471rqn93e3pbymvbmg.htm/, Retrieved Fri, 09 May 2025 12:45:20 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=13770, Retrieved Fri, 09 May 2025 12:45:20 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

1139

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [ECEL 2008] [ECEL2008 hypothes...] [2008-06-14 21:17:24] [d41d8cd98f00b204e9800998ecf8427e] [Current]
- RMPD    [Chi-Squared and McNemar Tests] [Chi squared 1] [2010-11-05 22:27:37] [97ad38b1c3b35a5feca8b85f7bc7b3ff] 
F R PD      [Chi-Squared and McNemar Tests] [connected versus ...] [2010-11-10 15:46:26] [95e8426e0df851c9330605aa1e892ab5] 
-             [Chi-Squared and McNemar Tests] [WS6 Connected Vs ...] [2010-11-11 16:16:00] [07a238a5afc23eb944f8545182f29d5a] 
-   P           [Chi-Squared and McNemar Tests] [WS6 Connected vs ...] [2010-11-11 16:19:35] [07a238a5afc23eb944f8545182f29d5a] 
-   P             [Chi-Squared and McNemar Tests] [WS6 Connected vs ...] [2010-11-11 16:20:52] [07a238a5afc23eb944f8545182f29d5a] 
-   P               [Chi-Squared and McNemar Tests] [WS6 Separate vs H...] [2010-11-11 16:21:59] [07a238a5afc23eb944f8545182f29d5a] 
-   P                 [Chi-Squared and McNemar Tests] [WS6 Separate vs D...] [2010-11-11 16:23:04] [07a238a5afc23eb944f8545182f29d5a] 
-   P                   [Chi-Squared and McNemar Tests] [WS6 Happiness vs ...] [2010-11-11 16:24:08] [07a238a5afc23eb944f8545182f29d5a] 
- R             [Chi-Squared and McNemar Tests] [workshop 6 Chi Sq...] [2010-11-12 14:51:54] [945bcebba5e7ac34a41d6888338a1ba9] 
- R P           [Chi-Squared and McNemar Tests] [workshop 6 Chi Sq...] [2010-11-12 15:03:02] [945bcebba5e7ac34a41d6888338a1ba9] 
-               [Chi-Squared and McNemar Tests] [] [2010-11-16 17:49:56] [8441f95c4a5787a301bc621ebc7904ca] 
- R  D            [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [ws6- 1] [2011-11-14 14:04:54] [7e261c986c934df955dd3ac53e9d45c6] 
- R  D            [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [ws6 - 2] [2011-11-14 14:08:34] [7e261c986c934df955dd3ac53e9d45c6] 
- R  D            [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [ws6 - 3] [2011-11-14 14:10:33] [7e261c986c934df955dd3ac53e9d45c6] 
-   P           [Chi-Squared and McNemar Tests] [] [2010-11-16 18:05:15] [8441f95c4a5787a301bc621ebc7904ca] 
-   P             [Chi-Squared and McNemar Tests] [] [2010-11-16 18:14:30] [8441f95c4a5787a301bc621ebc7904ca] 
-   P               [Chi-Squared and McNemar Tests] [] [2010-11-16 18:18:05] [8441f95c4a5787a301bc621ebc7904ca] 
-   P                 [Chi-Squared and McNemar Tests] [] [2010-11-16 18:22:25] [8441f95c4a5787a301bc621ebc7904ca] 
-   P                   [Chi-Squared and McNemar Tests] [] [2010-11-16 18:25:45] [8441f95c4a5787a301bc621ebc7904ca] 
F R PD      [Chi-Squared and McNemar Tests] [happiness versus ...] [2010-11-10 15:48:33] [95e8426e0df851c9330605aa1e892ab5] 
F R PD      [Chi-Squared and McNemar Tests] [Separate versus D...] [2010-11-10 15:50:37] [95e8426e0df851c9330605aa1e892ab5] 
F R PD      [Chi-Squared and McNemar Tests] [Connected versus ...] [2010-11-10 15:52:22] [95e8426e0df851c9330605aa1e892ab5] 
-   PD        [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [science paper fout 2] [2010-12-14 08:40:18] [95e8426e0df851c9330605aa1e892ab5] 
F R PD      [Chi-Squared and McNemar Tests] [Connected versus ...] [2010-11-10 15:53:42] [95e8426e0df851c9330605aa1e892ab5] 
F             [Chi-Squared and McNemar Tests] [Happiness versus ...] [2010-11-10 16:00:07] [95e8426e0df851c9330605aa1e892ab5] 
- R P         [Chi-Squared and McNemar Tests] [WS 6 Connected vs...] [2010-11-12 14:58:54] [7b479c2bada71feddb7d988499871dfc] 
- R P         [Chi-Squared and McNemar Tests] [WS 6 Connected vs...] [2010-11-12 15:01:40] [7b479c2bada71feddb7d988499871dfc] 
- R P         [Chi-Squared and McNemar Tests] [WS 6 Separated vs...] [2010-11-12 15:03:56] [7b479c2bada71feddb7d988499871dfc] 
- R P         [Chi-Squared and McNemar Tests] [WS 6 Separated vs...] [2010-11-12 15:05:21] [7b479c2bada71feddb7d988499871dfc] 
-   P       [Chi-Squared and McNemar Tests] [Vraag 1: Happines...] [2010-11-11 08:00:44] [39c51da0be01189e8a44eb69e891b7a1] 
-             [Chi-Squared and McNemar Tests] [WS6 Q1 happiness ...] [2010-11-13 17:26:39] [6ca0fc48dd5333d51a15728999009c83] 
- R PD          [Chi-Squared and McNemar Tests] [Chi-Squared Tests] [2010-11-15 10:16:43] [6ca0fc48dd5333d51a15728999009c83] 
-             [Chi-Squared and McNemar Tests] [test] [2010-11-16 17:28:28] [7d64bf19f34ddcdf2626356c9d5bd60d] 
-   P       [Chi-Squared and McNemar Tests] [W6 V1] [2010-11-16 13:29:45] [6e6854a111a7f2438dd668bfaa6f3aa0] 
F   PD      [Chi-Squared and McNemar Tests] [] [2010-11-16 17:50:47] [d672a41e0af7ff107c03f1d65e47fd32] 
F             [Chi-Squared and McNemar Tests] [Connected-Depression] [2010-11-16 17:53:38] [d672a41e0af7ff107c03f1d65e47fd32] 
F               [Chi-Squared and McNemar Tests] [] [2010-11-16 17:55:23] [d672a41e0af7ff107c03f1d65e47fd32] 
F                 [Chi-Squared and McNemar Tests] [Depression-seperate] [2010-11-16 17:57:09] [d672a41e0af7ff107c03f1d65e47fd32] 
-   PD      [Chi-Squared and McNemar Tests] [Perceived popular...] [2010-11-20 22:09:56] [97ad38b1c3b35a5feca8b85f7bc7b3ff] 
-   PD      [Chi-Squared and McNemar Tests] [Popularity - Know...] [2010-11-20 22:17:09] [97ad38b1c3b35a5feca8b85f7bc7b3ff] 
-   PD      [Chi-Squared and McNemar Tests] [Weighted populari...] [2010-11-20 22:20:01] [97ad38b1c3b35a5feca8b85f7bc7b3ff] 
-    D        [Chi-Squared and McNemar Tests] [Popularity - Weig...] [2010-11-20 22:23:57] [97ad38b1c3b35a5feca8b85f7bc7b3ff] 
-               [Chi-Squared and McNemar Tests] [Popularity - Know...] [2010-11-20 22:27:38] [97ad38b1c3b35a5feca8b85f7bc7b3ff] 
-                 [Chi-Squared and McNemar Tests] [Weighted populari...] [2010-11-20 22:29:53] [97ad38b1c3b35a5feca8b85f7bc7b3ff] 
- R P       [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [WS 6 - 1] [2011-11-15 12:05:11] [74be16979710d4c4e7c6647856088456] 
- R PD      [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [C6 H-D1] [2011-11-15 16:04:52] [d1ce18d003fa52f731d1c3ce8b58d5f9] 
- R P       [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [C6 H-D2] [2011-11-15 16:10:30] [d1ce18d003fa52f731d1c3ce8b58d5f9] 
- R PD      [Chi-Squared Test, McNemar Test, and Fisher Exact Test] [C6 H-C1] [2011-11-15 16:18:24] [d1ce18d003fa52f731d1c3ce8b58d5f9] 

[Truncated]

Feedback Forum

Post a new message

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	6 seconds
R Server	'George Udny Yule' @ 72.249.76.132

\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 & 6 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13770&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]6 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13770&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13770&T=0

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	6 seconds
R Server	'George Udny Yule' @ 72.249.76.132

Reproducible Computations - Descriptive Statistics
Number of Bachelor students	111
Number of Switching students	129
Number of submitted workshops	1907
Number of feedback grades	41960
Number of verbal feedback communications	34438
Average number of grades per workshop	22
Average number of verbal feedback messages per workshop	18.1

\begin{tabular}{lllllllll}
\hline
Reproducible Computations - Descriptive Statistics \tabularnewline
Number of Bachelor students & 111 \tabularnewline
Number of Switching students & 129 \tabularnewline
Number of submitted workshops & 1907 \tabularnewline
Number of feedback grades & 41960 \tabularnewline
Number of verbal feedback communications & 34438 \tabularnewline
Average number of grades per workshop & 22 \tabularnewline
Average number of verbal feedback messages per workshop & 18.1 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13770&T=1

[TABLE]
[ROW][C]Reproducible Computations - Descriptive Statistics[/C][/ROW]
[ROW][C]Number of Bachelor students[/C][C]111[/C][/ROW]
[ROW][C]Number of Switching students[/C][C]129[/C][/ROW]
[ROW][C]Number of submitted workshops[/C][C]1907[/C][/ROW]
[ROW][C]Number of feedback grades[/C][C]41960[/C][/ROW]
[ROW][C]Number of verbal feedback communications[/C][C]34438[/C][/ROW]
[ROW][C]Average number of grades per workshop[/C][C]22[/C][/ROW]
[ROW][C]Average number of verbal feedback messages per workshop[/C][C]18.1[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13770&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13770&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Reproducible Computations - Descriptive Statistics
Number of Bachelor students	111
Number of Switching students	129
Number of submitted workshops	1907
Number of feedback grades	41960
Number of verbal feedback communications	34438
Average number of grades per workshop	22
Average number of verbal feedback messages per workshop	18.1

Reproducible Computations - Two-dimensional Contingency Table - by population
Bachelor	# Submitted Verbal Feedback Messages		# Received Verbal Feedback Messages
Exam Score	(0,100]	(100,450]	(0,100]	(100,450]
(-3,4]	12	6	10	11
(4,7]	10	14	8	16
(7,18]	14	45	16	44
X-squared	11.5830061808875		3.13173156586578
degrees of freedom	2		2
p value	0.00305338920532693		0.208907066681500

Switching	# Submitted Verbal Feedback Messages		# Received Verbal Feedback Messages
Exam Score	(0,150]	(150,450]	(0,170]	(170,450]
(-3,4]	11	8	7	12
(4,7]	12	19	13	20
(7,18]	14	59	14	59
X-squared	12.2117586529468		5.74241978669647
degrees of freedom	2		2
p value	0.00222971985608987		0.056630368408127

\begin{tabular}{lllllllll}
\hline
Reproducible Computations - Two-dimensional Contingency Table - by population \tabularnewline
Bachelor & # Submitted Verbal Feedback Messages &   & # Received Verbal Feedback Messages \tabularnewline
Exam Score & (0,100] & (100,450] &   & (0,100] & (100,450] \tabularnewline
(-3,4] & 12 & 6 &   & 10 & 11 \tabularnewline
(4,7] & 10 & 14 &   & 8 & 16 \tabularnewline
(7,18] & 14 & 45 &   & 16 & 44 \tabularnewline
X-squared & 11.5830061808875 &   & 3.13173156586578 \tabularnewline
degrees of freedom & 2 &   & 2 \tabularnewline
p value & 0.00305338920532693 &   & 0.208907066681500 \tabularnewline
  \tabularnewline
Switching & # Submitted Verbal Feedback Messages &   & # Received Verbal Feedback Messages \tabularnewline
Exam Score & (0,150] & (150,450] &   & (0,170] & (170,450] \tabularnewline
(-3,4] & 11 & 8 &   & 7 & 12 \tabularnewline
(4,7] & 12 & 19 &   & 13 & 20 \tabularnewline
(7,18] & 14 & 59 &   & 14 & 59 \tabularnewline
X-squared & 12.2117586529468 &   & 5.74241978669647 \tabularnewline
degrees of freedom & 2 &   & 2 \tabularnewline
p value & 0.00222971985608987 &   & 0.056630368408127 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=13770&T=2

[TABLE]
[ROW][C]Reproducible Computations - Two-dimensional Contingency Table - by population[/C][/ROW]
[ROW][C]Bachelor[/C][C]# Submitted Verbal Feedback Messages[/C][C] [/C][C]# Received Verbal Feedback Messages[/C][/ROW]
[ROW][C]Exam Score[/C][C](0,100][/C][C](100,450][/C][C] [/C][C](0,100][/C][C](100,450][/C][/ROW]
[ROW][C](-3,4][/C][C]12[/C][C]6[/C][C] [/C][C]10[/C][C]11[/C][/ROW]
[ROW][C](4,7][/C][C]10[/C][C]14[/C][C] [/C][C]8[/C][C]16[/C][/ROW]
[ROW][C](7,18][/C][C]14[/C][C]45[/C][C] [/C][C]16[/C][C]44[/C][/ROW]
[ROW][C]X-squared[/C][C]11.5830061808875[/C][C] [/C][C]3.13173156586578[/C][/ROW]
[ROW][C]degrees of freedom[/C][C]2[/C][C] [/C][C]2[/C][/ROW]
[ROW][C]p value[/C][C]0.00305338920532693[/C][C] [/C][C]0.208907066681500[/C][/ROW]
[ROW][C] [/C][/ROW]
[ROW][C]Switching[/C][C]# Submitted Verbal Feedback Messages[/C][C] [/C][C]# Received Verbal Feedback Messages[/C][/ROW]
[ROW][C]Exam Score[/C][C](0,150][/C][C](150,450][/C][C] [/C][C](0,170][/C][C](170,450][/C][/ROW]
[ROW][C](-3,4][/C][C]11[/C][C]8[/C][C] [/C][C]7[/C][C]12[/C][/ROW]
[ROW][C](4,7][/C][C]12[/C][C]19[/C][C] [/C][C]13[/C][C]20[/C][/ROW]
[ROW][C](7,18][/C][C]14[/C][C]59[/C][C] [/C][C]14[/C][C]59[/C][/ROW]
[ROW][C]X-squared[/C][C]12.2117586529468[/C][C] [/C][C]5.74241978669647[/C][/ROW]
[ROW][C]degrees of freedom[/C][C]2[/C][C] [/C][C]2[/C][/ROW]
[ROW][C]p value[/C][C]0.00222971985608987[/C][C] [/C][C]0.056630368408127[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=13770&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=13770&T=2

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Reproducible Computations - Two-dimensional Contingency Table - by population
Bachelor	# Submitted Verbal Feedback Messages		# Received Verbal Feedback Messages
Exam Score	(0,100]	(100,450]	(0,100]	(100,450]
(-3,4]	12	6	10	11
(4,7]	10	14	8	16
(7,18]	14	45	16	44
X-squared	11.5830061808875		3.13173156586578
degrees of freedom	2		2
p value	0.00305338920532693		0.208907066681500

Switching	# Submitted Verbal Feedback Messages		# Received Verbal Feedback Messages
Exam Score	(0,150]	(150,450]	(0,170]	(170,450]
(-3,4]	11	8	7	12
(4,7]	12	19	13	20
(7,18]	14	59	14	59
X-squared	12.2117586529468		5.74241978669647
degrees of freedom	2		2
p value	0.00222971985608987		0.056630368408127

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

Figure 3

PNG link

Postscript link

PDF link

Figure 4

PNG link

Postscript link

PDF link

Parameters (Session):

Parameters (R input):

R code (references can be found in the software module):

x <- as.data.frame(read.table(file='https://automated.biganalytics.eu/download/statdb.csv',sep=',',header=T))
bitmap(file='pic1.png')
boxplot(x[x$Pop==0,'TX18'] ~ cut(x[x$Pop==0,'nnzfg'], c(0,100,450)), notch=T, main='# Submitted Verbal Feedback Messages', xlab='# Messages', ylab='Exam Scores (Bachelor)')
abline(7,0,col = 'lightgray', lty=3)
dev.off()
bitmap(file='pic2.png')
boxplot(x[x$Pop==0,'TX18'] ~ cut(x[x$Pop==0,'nnzfr'], c(0,100,450)), notch=T, main='# Received Verbal Feedback Messages', xlab='# Messages', ylab='Exam Scores (Bachelor)')
abline(7,0,col = 'lightgray', lty=3)
dev.off()
bitmap(file='pic3.png')
boxplot(x[x$Pop==1,'TX18'] ~ cut(x[x$Pop==1,'nnzfg'], c(0,150,450)), notch=T, main='# Submitted Verbal Feedback Messages', xlab='# Messages', ylab='Exam Scores (Switching)')
abline(7,0,col = 'lightgray', lty=3)
dev.off()
bitmap(file='pic4.png')
boxplot(x[x$Pop==1,'TX18'] ~ cut(x[x$Pop==1,'nnzfr'], c(0,170,450)), notch=T, main='# Received Verbal Feedback Messages', xlab='# Messages', ylab='Exam Scores (Switching)')
abline(7,0,col = 'lightgray', lty=3)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Reproducible Computations - Descriptive Statistics',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of Bachelor students',header=TRUE)
a<-table.element(a,length(x[x$Pop==0,'TX18']))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of Switching students',header=TRUE)
a<-table.element(a,length(x[x$Pop==1,'TX18']))
a<-table.row.end(a)
numws <- length(x[!is.na(x$WS1),'WS1']) + length(x[!is.na(x$WS2),'WS2']) + length(x[!is.na(x$WS3),'WS3']) + length(x[!is.na(x$WS4),'WS4']) + length(x[!is.na(x$WS5),'WS5']) + length(x[!is.na(x$WS6),'WS6']) + length(x[!is.na(x$WS7),'WS7']) + length(x[!is.na(x$WS8),'WS8']) + length(x[!is.na(x$WS9),'WS9']) + length(x[!is.na(x$WS10),'WS10']) + length(x[!is.na(x$WS11),'WS11']) + length(x[!is.na(x$WS12),'WS12'])
a<-table.row.start(a)
a<-table.element(a,'Number of submitted workshops',header=TRUE)
a<-table.element(a,numws)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of feedback grades',header=TRUE)
a<-table.element(a,sum(x[,'nfr']))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of verbal feedback communications',header=TRUE)
a<-table.element(a,sum(x[,'nnzfr']))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Average number of grades per workshop',header=TRUE)
a<-table.element(a,round(sum(x[,'nfr'])/numws,1))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Average number of verbal feedback messages per workshop',header=TRUE)
a<-table.element(a,round(sum(x[,'nnzfr'])/numws,1))
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,'Reproducible Computations - Two-dimensional Contingency Table - by population',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Bachelor',header=TRUE)
a<-table.element(a,'# Submitted Verbal Feedback Messages',2,header=TRUE)
a<-table.element(a,' ',header=TRUE)
a<-table.element(a,'# Received Verbal Feedback Messages',2,header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Exam Score',header=TRUE)
a<-table.element(a,'(0,100]',header=TRUE)
a<-table.element(a,'(100,450]',header=TRUE)
a<-table.element(a,' ',header=TRUE)
a<-table.element(a,'(0,100]',header=TRUE)
a<-table.element(a,'(100,450]',header=TRUE)
a<-table.row.end(a)
(mytg <- table(cut(x[x$Pop==0,'TX18'],c(-3,4,7,18)),cut(x[x$Pop==0,'nnzfg'],c(0,100,450))))
(mychsqtg <- chisq.test(mytg))
(mytr <- table(cut(x[x$Pop==0,'TX18'],c(-3,4,7,18)),cut(x[x$Pop==0,'nnzfr'],c(0,100,450))))
(mychsqtr <- chisq.test(mytr))
a<-table.row.start(a)
a<-table.element(a,'(-3,4]',header=TRUE)
a<-table.element(a,mytg[1,1])
a<-table.element(a,mytg[1,2])
a<-table.element(a,' ')
a<-table.element(a,mytr[1,1])
a<-table.element(a,mytr[1,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(4,7]',header=TRUE)
a<-table.element(a,mytg[2,1])
a<-table.element(a,mytg[2,2])
a<-table.element(a,' ')
a<-table.element(a,mytr[2,1])
a<-table.element(a,mytr[2,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(7,18]',header=TRUE)
a<-table.element(a,mytg[3,1])
a<-table.element(a,mytg[3,2])
a<-table.element(a,' ')
a<-table.element(a,mytr[3,1])
a<-table.element(a,mytr[3,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'X-squared',header=TRUE)
a<-table.element(a,mychsqtg$statistic,2)
a<-table.element(a,' ')
a<-table.element(a,mychsqtr$statistic,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'degrees of freedom',header=TRUE)
a<-table.element(a,mychsqtg$parameter,2)
a<-table.element(a,' ')
a<-table.element(a,mychsqtr$parameter,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p value',header=TRUE)
a<-table.element(a,mychsqtg$p.value,2)
a<-table.element(a,' ')
a<-table.element(a,mychsqtr$p.value,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,' ',6)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Switching',header=TRUE)
a<-table.element(a,'# Submitted Verbal Feedback Messages',2,header=TRUE)
a<-table.element(a,' ',header=TRUE)
a<-table.element(a,'# Received Verbal Feedback Messages',2,header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Exam Score',header=TRUE)
a<-table.element(a,'(0,150]',header=TRUE)
a<-table.element(a,'(150,450]',header=TRUE)
a<-table.element(a,' ',header=TRUE)
a<-table.element(a,'(0,170]',header=TRUE)
a<-table.element(a,'(170,450]',header=TRUE)
a<-table.row.end(a)
(mytg <- table(cut(x[x$Pop==1,'TX18'],c(-3,4,7,18)),cut(x[x$Pop==1,'nnzfg'],c(0,150,450))))
(mychsqtg <- chisq.test(mytg))
(mytr <- table(cut(x[x$Pop==1,'TX18'],c(-3,4,7,18)),cut(x[x$Pop==1,'nnzfr'],c(0,170,450))))
(mychsqtr <- chisq.test(mytr))
a<-table.row.start(a)
a<-table.element(a,'(-3,4]',header=TRUE)
a<-table.element(a,mytg[1,1])
a<-table.element(a,mytg[1,2])
a<-table.element(a,' ')
a<-table.element(a,mytr[1,1])
a<-table.element(a,mytr[1,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(4,7]',header=TRUE)
a<-table.element(a,mytg[2,1])
a<-table.element(a,mytg[2,2])
a<-table.element(a,' ')
a<-table.element(a,mytr[2,1])
a<-table.element(a,mytr[2,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(7,18]',header=TRUE)
a<-table.element(a,mytg[3,1])
a<-table.element(a,mytg[3,2])
a<-table.element(a,' ')
a<-table.element(a,mytr[3,1])
a<-table.element(a,mytr[3,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'X-squared',header=TRUE)
a<-table.element(a,mychsqtg$statistic,2)
a<-table.element(a,' ')
a<-table.element(a,mychsqtr$statistic,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'degrees of freedom',header=TRUE)
a<-table.element(a,mychsqtg$parameter,2)
a<-table.element(a,' ')
a<-table.element(a,mychsqtr$parameter,2)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p value',header=TRUE)
a<-table.element(a,mychsqtg$p.value,2)
a<-table.element(a,' ')
a<-table.element(a,mychsqtr$p.value,2)
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code