X<-t(rmultinom(n=40,size=100,
prob=c(0.3,0.2,0.2,0.1,0.1,0.05,0.05)))
colnames(X)<-paste("Sp",1:7,sep="")
DAT<-as.data.frame(X)
f<-as.factor(rep(c("A","B","C","D"),each=10))
SCIdunnettd<-BOOTSimpsonD(X=DAT, f=f, type = "Dunnett",
conf.level = 0.95, alternative = "two.sided")
SCIdunnettd
SCIdunnettr<-BOOTSimpsonR(X=DAT, f=f, type = "Dunnett",
conf.level = 0.95, alternative = "two.sided")
SCIdunnettrRun the code above in your browser using DataLab