# NOT RUN {
space1 <- AttributeSpace(
PlanningUnitPoints(
matrix(rnorm(100), ncol=2),
seq_len(50)
),
DemandPoints(
matrix(rnorm(100), ncol=2),
runif(50)
),
species=1L
)
space2 <- AttributeSpace(
PlanningUnitPoints(
matrix(rnorm(100), ncol=2),
seq_len(50)
),
DemandPoints(
matrix(rnorm(100), ncol=2),
runif(50)
),
species=2L
)
spaces1 <- AttributeSpaces(list(space1, space2), 'test')
# }
Run the code above in your browser using DataLab