R/inventorygames.R

Defines functions inventorygames

Documented in inventorygames

inventorygames <-
function(n=NA,a=NA,d=NA,h=NA,m=NA,r=NA,b=NA,model=c("EOQ","EPQ")){

if (model=="EOQ"){return(EOQcoo(n,a,d,h,m))} 
if (model=="EPQ"){return(EPQcoo(n,a,d,h,m,r,b))}
if (model!="EOQ"&model!="EPQ"){
  cat("Only EOQ and EPQ can be analyzed with this function.", sep="\n")
}
}

Try the Inventorymodel package in your browser

Any scripts or data that you put into this service are public.

Inventorymodel documentation built on Aug. 17, 2023, 9:06 a.m.