testdata<-
c(
0,0,0,0,1,0,0,0,0,0,#1
0,0,0,0,0,0,1,1,0,0,#2
1,1,1,0,0,0,0,0,0,0,#3
0,0,0,0,1,1,0,1,0,1,#4
1,1,1,0,0,0,1,0,0,0,#4
1,1,0,0,1,0,1,0,0,0,#4
0,0,0,1,0,0,1,0,1,1,#4
1,0,1,0,1,1,0,0,0,1, #5
1,1,0,0,1,0,0,1,1,1,#6
1,1,1,0,1,1,0,1,1,1) #8
dat<-array(dim=c(10,10),data=testdata)
dat<-t(dat)
colnames(dat)<-paste("",LETTERS[1:10],sep="")
rownames(dat)<-paste("bug",1:10,sep="")
x<-ordi.breadth(dat)
profPlot(x,5)#profile plot for species 5
Run the code above in your browser using DataLab