if (FALSE) {
myarea <- simOptions()$areaList[1]
data <- readAntaresAreas(myarea)
# Equivalent but more concise than:
data2 <- readAntares(myarea, links = getLinks(myarea), clusters = myarea)
all.equal(data, data2)
}
Run the code above in your browser using DataLab