gen_template <- GenerativeTemplate$new()
gen_template$occupancy_mask <- array(c(1, 1, 0, 0, 1, 1, 1))
gen_template$decimals <- 4
gen_template$description <- "Test generator"
coordinates <- data.frame(x = c(1:4, 4:2), y = c(1, 1:4, 4:3))
generator <- Generator$new(
region = Region$new(coordinates = coordinates), attr1 = 1,
template_attached = gen_template
)
generator$description
generator$occupancy_mask
generator$decimals
Run the code above in your browser using DataLab