Skip to content

Instantly share code, notes, and snippets.

@robintw

robintw/RSquareTableExamples

Created April 6, 2011 13:06
Show Gist options
  • Save robintw/905603 to your computer and use it in GitHub Desktop.
Save robintw/905603 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
RSquareTableExamples
Examples
========
In all of the examples below the table produced by the table() command is shown first,
then the str() output for both input arrays, then the dput output for both input arrays.
Working Example
===============
0 1 2 3 4 5 6 7 8 9
0 24 0 0 1 0 2 1 0 0 0
1 2 3 0 1 5 0 0 0 16 0
2 24 1 0 1 1 1 3 0 0 0
3 8 0 1 2 1 1 8 0 4 0
4 1 1 0 0 28 0 3 2 1 0
5 2 0 0 1 1 0 35 0 0 0
6 1 0 0 2 4 0 27 0 0 1
7 0 2 0 1 17 1 1 2 5 0
8 7 0 1 1 3 1 1 1 17 1
9 15 0 0 1 3 0 0 0 16 0
Factor w/ 10 levels "0","1","2","3",..: 5 7 7 7 4 7 9 2 3 1 ...
Factor w/ 10 levels "0","1","2","3",..: 5 7 4 4 1 7 7 9 1 1 ...
structure(c(5L, 7L, 7L, 7L, 4L, 7L, 9L, 2L, 3L, 1L, 2L, 3L, 7L,
4L, 8L, 8L, 7L, 1L, 6L, 1L, 4L, 10L, 6L, 6L, 10L, 9L, 9L, 6L,
8L, 3L, 10L, 3L, 5L, 8L, 8L, 6L, 5L, 1L, 6L, 8L, 8L, 10L, 10L,
4L, 8L, 4L, 2L, 1L, 6L, 8L, 5L, 9L, 10L, 4L, 7L, 3L, 1L, 3L,
10L, 4L, 8L, 1L, 1L, 8L, 9L, 2L, 6L, 7L, 3L, 4L, 10L, 5L, 8L,
6L, 7L, 2L, 5L, 3L, 9L, 9L, 8L, 9L, 5L, 6L, 10L, 1L, 10L, 6L,
9L, 3L, 5L, 2L, 4L, 7L, 5L, 6L, 1L, 5L, 2L, 2L, 2L, 9L, 7L, 2L,
2L, 6L, 5L, 2L, 10L, 5L, 6L, 2L, 3L, 7L, 10L, 2L, 9L, 1L, 10L,
10L, 6L, 2L, 7L, 10L, 2L, 3L, 4L, 6L, 5L, 10L, 1L, 1L, 2L, 10L,
1L, 8L, 9L, 10L, 2L, 10L, 1L, 9L, 1L, 5L, 7L, 5L, 10L, 3L, 10L,
3L, 3L, 8L, 4L, 10L, 5L, 3L, 3L, 5L, 10L, 7L, 7L, 9L, 6L, 5L,
5L, 5L, 4L, 6L, 7L, 9L, 8L, 7L, 9L, 6L, 3L, 1L, 7L, 6L, 4L, 9L,
1L, 9L, 8L, 9L, 3L, 7L, 2L, 9L, 1L, 6L, 7L, 5L, 8L, 5L, 10L,
8L, 6L, 6L, 9L, 5L, 6L, 4L, 6L, 6L, 5L, 9L, 8L, 4L, 7L, 6L, 4L,
4L, 5L, 7L, 9L, 10L, 4L, 5L, 10L, 9L, 8L, 10L, 1L, 3L, 3L, 9L,
6L, 7L, 5L, 7L, 7L, 7L, 3L, 8L, 6L, 9L, 2L, 6L, 8L, 1L, 3L, 7L,
4L, 9L, 4L, 10L, 8L, 9L, 2L, 5L, 8L, 4L, 8L, 7L, 8L, 4L, 9L,
3L, 5L, 8L, 4L, 6L, 1L, 2L, 10L, 6L, 5L, 5L, 7L, 5L, 7L, 7L,
4L, 9L, 10L, 2L, 7L, 3L, 5L, 3L, 6L, 1L, 1L, 5L, 1L, 6L, 7L,
2L, 6L, 6L, 3L, 10L, 9L, 2L, 2L, 3L, 7L, 4L, 10L, 8L, 10L, 3L,
6L, 9L, 10L, 6L, 3L, 2L, 1L, 1L, 3L, 5L, 6L, 1L, 10L, 9L, 5L,
3L), .Label = c("0", "1", "2", "3", "4", "5", "6", "7", "8",
"9"), class = "factor")
structure(c(5L, 7L, 4L, 4L, 1L, 7L, 7L, 9L, 1L, 1L, 1L, 1L, 7L,
9L, 5L, 2L, 7L, 1L, 7L, 1L, 7L, 1L, 7L, 1L, 9L, 1L, 6L, 7L, 5L,
1L, 1L, 5L, 8L, 8L, 4L, 7L, 7L, 1L, 7L, 2L, 5L, 9L, 1L, 7L, 5L,
1L, 5L, 1L, 7L, 9L, 5L, 1L, 9L, 4L, 7L, 2L, 1L, 1L, 9L, 1L, 5L,
1L, 1L, 9L, 4L, 5L, 7L, 1L, 7L, 3L, 1L, 5L, 5L, 7L, 7L, 9L, 5L,
7L, 1L, 5L, 9L, 9L, 5L, 7L, 1L, 1L, 1L, 1L, 9L, 1L, 5L, 9L, 9L,
7L, 2L, 7L, 1L, 5L, 4L, 9L, 9L, 10L, 10L, 9L, 9L, 7L, 5L, 9L,
9L, 8L, 7L, 2L, 1L, 7L, 1L, 9L, 9L, 1L, 9L, 9L, 7L, 2L, 5L, 9L,
9L, 1L, 7L, 7L, 5L, 1L, 1L, 6L, 1L, 1L, 1L, 7L, 9L, 5L, 9L, 9L,
1L, 9L, 1L, 5L, 7L, 7L, 9L, 1L, 1L, 1L, 1L, 5L, 1L, 9L, 5L, 1L,
1L, 5L, 4L, 5L, 7L, 9L, 7L, 5L, 1L, 5L, 1L, 7L, 7L, 9L, 6L, 7L,
9L, 7L, 6L, 1L, 7L, 7L, 1L, 1L, 6L, 3L, 5L, 9L, 1L, 5L, 9L, 9L,
1L, 7L, 7L, 9L, 5L, 5L, 1L, 5L, 7L, 7L, 9L, 5L, 7L, 7L, 7L, 7L,
5L, 9L, 5L, 7L, 7L, 5L, 5L, 9L, 5L, 7L, 9L, 9L, 4L, 5L, 9L, 9L,
5L, 9L, 1L, 1L, 4L, 1L, 7L, 7L, 5L, 7L, 7L, 7L, 1L, 9L, 7L, 1L,
5L, 7L, 5L, 1L, 1L, 7L, 7L, 1L, 1L, 9L, 5L, 9L, 9L, 7L, 5L, 1L,
5L, 7L, 8L, 7L, 8L, 1L, 5L, 9L, 7L, 7L, 1L, 9L, 1L, 7L, 5L, 5L,
7L, 5L, 5L, 7L, 9L, 5L, 5L, 5L, 7L, 1L, 5L, 1L, 7L, 1L, 7L, 5L,
1L, 7L, 7L, 5L, 7L, 7L, 1L, 5L, 9L, 2L, 9L, 1L, 7L, 6L, 9L, 5L,
1L, 1L, 7L, 9L, 1L, 7L, 1L, 9L, 1L, 4L, 1L, 5L, 4L, 1L, 1L, 5L,
5L, 7L), .Label = c("0", "1", "2", "3", "4", "5", "6", "7", "8",
"9"), class = "factor")
Non-Working Example
===================
1 2 3 4 5 6 7 9
0 0 0 32 0 0 0 0 0
1 23 1 3 0 0 1 0 0
2 0 0 38 0 1 4 0 0
3 3 0 28 0 0 0 0 1
4 3 1 0 17 0 5 0 0
5 1 0 31 0 1 1 0 0
6 0 0 3 1 0 28 0 0
7 21 0 2 10 0 0 1 0
8 0 0 22 0 1 2 0 0
9 4 0 28 0 0 0 0 0
Factor w/ 10 levels "0","1","2","3",..: 2 10 4 1 1 4 3 6 8 10 ...
Factor w/ 8 levels "1","2","3","4",..: 1 3 3 3 3 3 3 1 4 3 ...
structure(c(2L, 10L, 4L, 1L, 1L, 4L, 3L, 6L, 8L, 10L, 5L, 5L,
1L, 2L, 5L, 7L, 10L, 3L, 9L, 1L, 8L, 4L, 7L, 7L, 6L, 2L, 3L,
7L, 1L, 2L, 3L, 8L, 9L, 3L, 3L, 6L, 5L, 6L, 5L, 6L, 7L, 4L, 1L,
2L, 4L, 6L, 8L, 3L, 6L, 10L, 7L, 10L, 8L, 9L, 6L, 7L, 3L, 10L,
10L, 2L, 8L, 7L, 8L, 3L, 2L, 1L, 7L, 9L, 2L, 2L, 8L, 10L, 7L,
8L, 10L, 5L, 6L, 7L, 2L, 4L, 6L, 5L, 6L, 6L, 4L, 7L, 3L, 10L,
8L, 3L, 8L, 4L, 7L, 9L, 8L, 5L, 3L, 8L, 8L, 3L, 6L, 2L, 5L, 5L,
7L, 8L, 10L, 4L, 1L, 9L, 3L, 5L, 7L, 7L, 2L, 9L, 4L, 5L, 2L,
1L, 3L, 5L, 7L, 2L, 9L, 4L, 7L, 3L, 8L, 10L, 3L, 6L, 7L, 9L,
3L, 7L, 9L, 8L, 7L, 10L, 7L, 3L, 10L, 10L, 1L, 6L, 4L, 10L, 3L,
7L, 8L, 3L, 8L, 1L, 1L, 4L, 8L, 4L, 6L, 5L, 1L, 5L, 2L, 3L, 10L,
2L, 6L, 2L, 10L, 8L, 8L, 1L, 6L, 3L, 9L, 9L, 7L, 3L, 4L, 6L,
4L, 8L, 10L, 2L, 6L, 9L, 8L, 6L, 3L, 2L, 6L, 8L, 6L, 6L, 10L,
5L, 3L, 2L, 4L, 1L, 3L, 1L, 10L, 10L, 10L, 10L, 3L, 3L, 1L, 10L,
6L, 4L, 8L, 6L, 4L, 8L, 4L, 1L, 8L, 10L, 8L, 9L, 10L, 4L, 7L,
2L, 6L, 2L, 7L, 7L, 1L, 2L, 4L, 3L, 7L, 4L, 6L, 6L, 7L, 1L, 9L,
4L, 9L, 1L, 9L, 2L, 4L, 2L, 3L, 6L, 6L, 9L, 3L, 3L, 4L, 5L, 9L,
1L, 7L, 1L, 5L, 10L, 10L, 1L, 5L, 3L, 4L, 1L, 1L, 8L, 8L, 6L,
3L, 4L, 3L, 5L, 4L, 3L, 1L, 5L, 8L, 9L, 3L, 4L, 5L, 5L, 8L, 5L,
7L, 9L, 4L, 3L, 7L, 5L, 9L, 3L, 3L, 4L, 8L, 2L, 6L, 10L, 2L,
1L, 9L, 9L, 9L, 10L, 1L, 10L, 1L, 2L, 3L, 1L, 3L, 1L, 5L, 6L), .Label = c("0",
"1", "2", "3", "4", "5", "6", "7", "8", "9"), class = "factor")
structure(c(1L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 4L, 3L, 4L, 6L, 3L,
3L, 6L, 6L, 3L, 3L, 3L, 3L, 1L, 3L, 6L, 6L, 3L, 1L, 3L, 3L, 3L,
1L, 3L, 4L, 3L, 3L, 3L, 3L, 4L, 3L, 2L, 3L, 6L, 3L, 3L, 2L, 3L,
3L, 1L, 3L, 3L, 3L, 6L, 3L, 1L, 3L, 3L, 6L, 3L, 3L, 3L, 1L, 4L,
6L, 1L, 3L, 1L, 3L, 6L, 3L, 1L, 1L, 4L, 3L, 6L, 1L, 1L, 4L, 3L,
3L, 1L, 3L, 3L, 4L, 3L, 3L, 3L, 6L, 3L, 3L, 4L, 3L, 3L, 3L, 6L,
3L, 7L, 4L, 3L, 1L, 1L, 5L, 3L, 3L, 6L, 4L, 6L, 1L, 3L, 1L, 3L,
3L, 3L, 4L, 6L, 6L, 1L, 3L, 1L, 4L, 1L, 3L, 3L, 4L, 6L, 1L, 3L,
3L, 6L, 3L, 1L, 3L, 3L, 3L, 6L, 3L, 3L, 6L, 3L, 4L, 6L, 3L, 6L,
3L, 3L, 3L, 3L, 6L, 3L, 1L, 3L, 6L, 1L, 3L, 4L, 3L, 3L, 3L, 1L,
3L, 3L, 1L, 3L, 4L, 1L, 3L, 3L, 1L, 3L, 1L, 3L, 1L, 1L, 3L, 3L,
6L, 3L, 6L, 6L, 3L, 3L, 3L, 3L, 1L, 3L, 6L, 3L, 3L, 1L, 3L, 6L,
1L, 3L, 4L, 3L, 3L, 3L, 4L, 3L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 1L, 3L, 3L, 1L, 3L, 3L, 4L, 3L, 3L, 1L, 3L, 1L,
3L, 3L, 1L, 6L, 1L, 3L, 1L, 6L, 6L, 3L, 1L, 3L, 3L, 3L, 3L, 3L,
3L, 4L, 3L, 5L, 3L, 3L, 3L, 3L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 4L, 3L, 3L, 6L, 3L, 6L, 3L, 3L, 3L, 4L, 3L, 3L, 3L, 3L,
1L, 1L, 3L, 3L, 3L, 3L, 4L, 3L, 3L, 3L, 4L, 4L, 3L, 3L, 8L, 1L,
4L, 1L, 6L, 6L, 3L, 3L, 6L, 6L, 4L, 3L, 6L, 3L, 3L, 3L, 1L, 3L,
1L, 1L, 3L, 3L, 3L, 6L, 3L, 3L, 3L, 3L, 1L, 3L, 3L, 3L, 3L, 1L,
5L), .Label = c("1", "2", "3", "4", "5", "6", "7", "9"), class = "factor")
Error in t < squareTable(as.factor(test.labels), as.factor(nnetpredict)) :
non-conformable arrays
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment