找到两个函数之间的最小值并打印出来

Question

我的代码如下：

immediate.amput.EV <- function() 

  {

    return((Dead.prob * Dead.cost) + (Alive.prob * Alive.cost))
  }     


immediate.amput.EV()

watchful.EV <- function()
  {
  progression.cost <- (progression.dead.prob * progression.dead.cost) + 
                      (progression.alive.prob * progression.alive.cost)
  return((cure.prob * cure.cost) + (progression.prob * progression.cost))
}     


watchful.EV()

他们都返回数字。 我需要找到这个数字的最小值并打印出来......我的意思是哪个函数的成本最低......

如果你能帮助我，将不胜感激。 感谢..

Answer 1

paste("The function with the smallest cost is",min(watchful.EV(),immediate.amput.EV()))