Create a new WeightResults object to store results for a solution.
new_weight_results(weight, held, id = uuid::UUIDgenerate())
weight | Weight object. |
---|---|
held |
|
id |
|
A WeightResults object.
# find data file paths
f1 <- system.file(
"extdata", "projects", "sim_raster", "sim_raster_spatial.tif",
package = "wheretowork"
)
f2 <- system.file(
"extdata", "projects", "sim_raster", "sim_raster_attribute.csv.gz",
package = "wheretowork"
)
f3 <- system.file(
"extdata", "projects", "sim_raster", "sim_raster_boundary.csv.gz",
package = "wheretowork"
)
# create new dataset
d <- new_dataset(f1, f2, f3)
# create new variable
v <- new_variable_from_auto(d, index = 1)
# create a new weight
w <- new_weight(name = "NDVI", variable = v)
# create a new weight results object to store results
wr <- new_weight_results(w, 80)
# print object
print(w)
#> Weight
#> id: c34dcaeb-54bd-489e-85ef-76ef7c718304
#> name: NDVI
#> variable: .../sim_raster_spatial.tif#Brown_necked_Parrot_Brown_necked_ [total: 1052 ]
#> pane: a9cad7f5-c2d5-41ae-ba8e-4138ad247216-Brown_necked_Parrot_Brown_necked_
#> current: 0
#> visible: TRUE
#> invisible: NA
#> loaded: TRUE
#> hidden: FALSE
#> status: TRUE
#> factor: 0