为什么我没有从此R函数获得任何输出？

Question

我正在R中运行RStudio。我具有以下功能，但是运行它时，在控制台窗口中看不到任何输出。

MarginOfError <- function(sample,  confidence,  response,  population)           {
  pcn <- qnorm( (100+confidence) / 200)                      
  d1  <- pcn * pcn * response * (100-response)                
  d2  <- d1 * (population - sample) / (sample * (population-1) )
  ifelse(d2>0 , sqrt(d2), 0)                                     } 

MarginOfError(100, 95, 50, 20000)

预期结果为9.775534

我在这里想念什么？