The R Project SVN R

Rev

Rev 68948 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68948 Rev 75628
Line 60... Line 60...
60 
          t(xt[,,3]) == x[,,3],
 60 
          t(xt[,,3]) == x[,,3],
61 
          t(xt[,,4]) == x[,,4])
 61 
          t(xt[,,4]) == x[,,4])
62 
 
 62 
 
63 
UCB <- aperm(UCBAdmissions, c(2,1,3))
 63 
UCB <- aperm(UCBAdmissions, c(2,1,3))
64 
UCB[1,,]
 64 
UCB[1,,]
65 
summary(UCB) # UCB is still a continency table
 65 
summary(UCB) # UCB is still a contingency table
66 
\dontshow{stopifnot(is.table(UCB))}
 66 
\dontshow{stopifnot(is.table(UCB))}
67 
}
 67 
}
68 
\keyword{array}
 68 
\keyword{array}