#Biostatistics 430

#KOLMOGOROV-SMIRNOV SINGLE SAMPLE TEST 
#FOR CONTINUOUS DATA
#SOKAL & ROHLF TABLE 17.4 & BOX 15.2
SR=read.table("SR15.2R.txt")
SR
attach(SR)
Y=sort(bodywt)
stdY=(Y-mean(Y))/sqrt(var(Y))
stdY

ks.test(stdY,pnorm)

#KOLMOGOROV-SMIRNOV TWO SAMPLE TEST
#FOR CONTINUOUS DATA
#SOKAL & ROHLF EXAMPLE 13.7
SR=read.table("SREX13.7R.txt")
SR
attach(SR)
X=length[sample=="A"]
Y=length[sample=="B"]

ks.test(X,Y)