# Example 1:
data(Paired1) # Hypothetical study data
ftable(Paired1)
paired.layout1 <- tab.paired(d=d, y1=y1, y2=y2, data=Paired1)
print(paired.layout1)
sesp.gen.mcnemar(paired.layout1)
# Example 2 (from Lachenbruch and Lynch (1998)):
paired.layout2 <- read.tab.paired(
d.a = 850, d.b = 40, d.c = 60, d.d = 50,
nd.a = 60, nd.b = 25, nd.c = 15, nd.d = 900,
testnames = c("T1", "T2")
)
print(paired.layout2)
sesp.gen.mcnemar(paired.layout2)
Run the code above in your browser using DataLab