R中的Excel目標搜索

Question

我已經使用excel目標搜索功能計算了所需的安全庫存。 下面是圖像。 但是現在我想使用R做同樣的事情。

當我輸入SafetyStock和SD時，以下功能為我提供了相同的excel結果。 現在，我需要進行反向計算（每當我提供x和SD時，我都需要SS）。 有人可以幫我嗎？

我嘗試了Optix和其他類似的R包，但沒有成功。

opt<-function(SS,SD){

  x=-SS*(1-pnorm(SS/SD)) + SD * dnorm(SS/SD,mean=0,sd =1,0)
  print(x)

}

Excel目標搜尋

Answer 1

為x解f(x)=c與解f(x)-c=0 。 您可以使用uniroot查找根目錄：

f <- function(SS, SD, ESC) {
  -SS*(1-pnorm(SS/SD)) + SD * dnorm(SS/SD,mean=0,sd =1,0) - ESC
}

zero <- uniroot(f,c(0,1000),SD=600,ESC=39.3)
zero$root

第二個參數是搜索間隔：0到1000。返回

674.0586 

zero結構具有更多有趣的信息：

$root
[1] 674.0586

$f.root
[1] 1.933248e-08

$iter
[1] 8

$init.it
[1] NA

$estim.prec
[1] 6.103516e-05