Displaying 1 result from an estimated 1 matches for "classe2".
Did you mean:
classes
2006 Mar 28
0
ansari.test (one tailed)
...-1)/2), (n+1)/2,
((n-1)/2):1)}
obs3<-data.frame(rAB,xr,cr)
ties<-as.numeric(names(which((table(obs2[,1])>1)==TRUE))) # extrait les xi
r?p?t?s
obs4<-obs3
for(i in
ties){obs4$rAB[(which(obs3$xr==i))]<-mean(obs3$rAB[(which(obs3$xr==i))])}
obs4
classe1<- split(obs2[,1], obs2[,2])$sud
classe2<- split(obs2[,1], obs2[,2])$ouest
ansari.test(classe1, classe2, alternative = "greater")
# AB statistic :
AB1.calc<-sum(subset(obs4[,1],obs4[,3]=="sud"))
AB1.calc
# Z statistic :
n1<-length(classe1)
n2<-length(classe2)
n<-n1+n2
n # n is even
mAB1<-n1*...