在 R 中写入函数时出错：产生 NaN

问：

这是我第一次写一个函数，很抱歉这个愚蠢的问题。

formula <- function(x,y){
  z <- x*(1-x)
  t <- y*(1-y)
  k <- sum(z,t)
  l <- k/2
  
return((x-y)/sqrt(l))
  
  }

formula(60.5,40.3)

有一个错误：

[1] NaN
Warning message:
In sqrt(l) : NaNs produced

错误是什么？我正在尝试复制这个公式：

编辑2：