(df<-data.frame(
Batch.Label = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L),
Device = as.factor(c("SVC", "SVC", "SVC", "GO", "GO", "GO", "40WI",
"40WI", "40WI", "15WFL", "15WFL",
"15WFL")),
Screen = as.factor(c("c", "D", "E", "c", "D", "E", "c", "D", "E", "c",
"D", "E")),
Response = as.factor(c("NF", "AD", "AD", "AD", "AA", "AA", "AD", "AA",
"AA", "AD", "AA", "AA"))
)
mytable<- table(df$Device,df$Screen,df$Response)
mytable
chisq.test(df,correct=FALSE))