chap3-block1.R

aim2d <- matrix(rbind(
  c(2,	5),
  c(30,	25),
  c(8,	3),
  c(3,	2),
  c(5,	1),
  c(27,	11),
  c(12,	15),
  c(9,	14)
), 8, 2)
colnames(aim2d) <- c("Network",  "Pathway")
rownames(aim2d) <- c("Position",
                     "Text",
                     "Size,Area",
                     "Weight, Boldness",
                     "Saturation, Brightness",
                     "Color",
                     "Shape, Icon",
                     "Enclosure, Connection")

fisher.test(aim2d)
#prop.test(aim2d, conf.level = 0.95, correct = TRUE)

aim2de <- matrix(t(rbind(
c(2,0,0,0,14,0,4,4,2,3),
c(8,18,1,1,11,2,13,9,4,5))), 10, 2)
colnames(aim2de) <- c("Network",  "Pathway")
rownames(aim2de) <- c("Position",
                      "Text",
                      "Size,Area",
                      "Saturation, Brightness",
                      "Color",
                      "Shape, Icon",
                      "Enclosure, Connection",
                      "Line Pattern",
                      "Line Endings",
                      "Line Weight")
aim2de <- aim2de[c(1,2,5,7,8,9,10),] #removing inappropriate values (zero values and encodings that don't make sense)

fisher.test(aim2de)
chisq.test(aim2de)

var.test(aim2d[,1],aim2d[,2])
var.test(aim2de[,1],aim2de[,2])