View source: R/rectangular_warehouse_from_copras_locations.R
rectangular_warehouse_from_copras_locations | R Documentation |
This function generates a rectangular warehouse layout matrix based on COPRAS-assigned locations, given the warehouse dimensions.
rectangular_warehouse_from_copras_locations(
locations,
warehouse_width,
warehouse_height
)
locations |
A numeric vector representing the COPRAS-assigned locations of items in the warehouse. |
warehouse_width |
An integer specifying the width of the warehouse. |
warehouse_height |
An integer specifying the height of the warehouse. |
The function maps the given COPRAS-assigned item locations to a rectangular warehouse layout. The x and y coordinates are calculated based on the warehouse dimensions and adjusted for the warehouse structure. Additional rows are added for boundary positions at the top and bottom of the warehouse.
The resulting matrix contains the following columns: - 'x': The x-coordinate (column) of the warehouse. - 'y': The y-coordinate (row) of the warehouse.
The matrix is sorted by x and y coordinates and ensures unique rows in the layout.
A matrix representing the rectangular warehouse layout. Each row corresponds to a coordinate in the warehouse.
Andrzej Dudek andrzej.dudek@ue.wroc.pl [aut, cre] ORCID: 0000-0002-4943-8703
Krzysztof Dmytrów krzysztof.dmytrow@usz.edu.pl [aut] ORCID: 0000-0001-7657-6063
scenario2 <- generate_sample_goods_and_locatons_scenario(warehouse_height = 10,warehouse_width = 10,nr_goods = 5) copras <- copras_assignment(scenario2) locations<-unique(unlist(lapply(copras, function(x){return(x$copras$location)} ))) coordinates <- rectangular_warehouse_from_copras_locations(locations,warehouse_height = 10,warehouse_width = 10)
Gudehus, T., & Kotzab, H. (2012). *Comprehensive Logistics*. Springer Berlin Heidelberg. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1007/978-3-642-24367-7")}
Zavadskas, E. K., Kaklauskas, A., & Šarka, V. (1994). The new method of multicriteria complex proportional assessment projects. In E. K. Zavadskas & P. Linnert (Eds.), *Technological and economic development of economy. Volume 3. Business Management* (pp. 131–140). Vilnius: „Technika”.
# Example usage
locations <- c(1, 5, 10, 15)
warehouse_width <- 8
warehouse_height <- 4
rectangular_warehouse_from_copras_locations(locations, warehouse_width, warehouse_height)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.