accuracy <- function(t) {
  acc <- (t[1,1]+t[2,2])/sum(t)
return (acc)
}