|
Last data update: 2014.03.03
|
R: Inventorymodel
| Inventorymodel | R Documentation |
Inventorymodel
Description
General function in Inventorymodel package for obtaining the optimal policy by selecting any model and its corresponding parameters.
Usage
Inventorymodel(model=c("EOQ","EPQ","STI","FOC","MCT","MWHC","MWHC2"),
n=NA,a=NA,av=NA,d=NA,h=NA,m=NA,r=NA,s=NA,K=NA,b=NA,c1=NA,c2=NA,
cooperation=c(0,1),allocation=c(0,1))
Arguments
model |
Model to select. EOQ, EPQ, STI, mfoc, mct, mwhc or mwhc2c models can be considered.
|
n |
Number of agents in the inventory model.
|
a |
The fixed cost per order.
|
av |
Vector. Transportation costs to each agent.
|
d |
Vector. Deterministic demands per time unit to each agent.
|
h |
Vector. Holding costs to each agent.
|
m |
Vector. Number of orders to each agent(optional).
|
r |
Vector. Replacement rate to each agent. In general, r>d.
|
s |
Vector. Cost of a shortage to each agent.
|
K |
Vector. Warehouse capacity to each agent.
|
b |
Vector. Shortage cost to each agent.
|
c1 |
Value. Cost of a product from the first supplier.
|
c2 |
Value. Cost of a product from the second supplier.
|
cooperation |
Option to indicate cooperation. If it exists cooperation=1 else cooperation=0.
|
allocation |
Option to indicate the allocation. If it is required allocation=1 else allocation=0.
|
See Also
EOQ, EOQcoo, EPQ, EPQcoo, STI, STIcoo, mct, mfoc, mwhc and mwhc2c.
Examples
Inventorymodel(model="MCT",n=3,a=400,av=c(300,500,200),d=c(2,2,5),K=c(9,8,7),
cooperation=1,allocation=1)
#[1] "MCT"
#[1] "Two-lines rule"
#$`Optimal solution`
# 1 2 3 Coalition Cost
# 0 0 0 0 0.0000
# 1 0 0 1 155.5556
# 0 1 0 2 225.0000
# 0 0 1 3 428.5714
# 1 1 0 12 225.0000
# 1 0 1 13 500.0000
# 0 1 1 23 642.8571
# 1 1 1 123 642.8571
#
#$`Allocation two-lines rule`
#[1] 0.0000 219.6429 423.2143
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(InventorymodelPackage)
Loading required package: e1071
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/InventorymodelPackage/Inventorymodel.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Inventorymodel
> ### Title: Inventorymodel
> ### Aliases: Inventorymodel
>
> ### ** Examples
>
> Inventorymodel(model="MCT",n=3,a=400,av=c(300,500,200),d=c(2,2,5),K=c(9,8,7),
+ cooperation=1,allocation=1)
[1] "MCT"
[1] "Two-lines rule"
$`Optimal solution`
1 2 3 Coalition Cost
0 0 0 0 0.0000
1 0 0 1 155.5556
0 1 0 2 225.0000
0 0 1 3 428.5714
1 1 0 12 225.0000
1 0 1 13 500.0000
0 1 1 23 642.8571
1 1 1 123 642.8571
$`Allocation two-lines rule`
[1] 0.0000 219.6429 423.2143
> #[1] "MCT"
> #[1] "Two-lines rule"
> #$`Optimal solution`
> # 1 2 3 Coalition Cost
> # 0 0 0 0 0.0000
> # 1 0 0 1 155.5556
> # 0 1 0 2 225.0000
> # 0 0 1 3 428.5714
> # 1 1 0 12 225.0000
> # 1 0 1 13 500.0000
> # 0 1 1 23 642.8571
> # 1 1 1 123 642.8571
> #
> #$`Allocation two-lines rule`
> #[1] 0.0000 219.6429 423.2143
>
>
>
>
>
> dev.off()
null device
1
>
|
providing 
.