#Biostatistics 200

#SIGN TEST FOR PAIRED DATA
#PAIRED t-TEST ANALOG

ZAR=read.table("ZarEX24.10.txt")
ZAR
attach(ZAR)
n=length(hindleg)
n
p=0.5
PLUS=length(hindleg[difference=="plus"])
PLUS
MINUS=length(hindleg[difference=="minus"])
MINUS

binom.test(PLUS,n,p, alternative="two.sided",conf.level=0.95)