simpson(x)
count
preston
data(butterflies) D <- simpson(butterflies) theta <- optimal.prob(butterflies)*2*no.of.ind(butterflies) #compare theta with D/(1-D) (should be equal): theta D/(1-D)
Run the code above in your browser using DataCamp Workspace