# NOT RUN {
A1 <- read_datasets(text='
3 2
2 3
2.5 1
1 2
1 2
')
A2 <- read_datasets(text='
4 2.5
3 3
2.5 3.5
3 3
2.5 3.5
2 1
')
d <- eafdiff(A1, A2)
str(d)
print(d)
d <- eafdiff(A1, A2, rectangles = TRUE)
str(d)
print(d)
# }
Run the code above in your browser using DataLab