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

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()))