R 函数使向量中的最小值不一致

我试图创建一个函数，对观察样本进行排序，然后丢弃最小值。然后，计算剩余观测值的平均值

我的功能有问题。这就是我想做的：

Deletion1 <- function(z){
  sortz <- sort(z)
  answer <- sum(sortz[sortz!=min(sortz)])/length(z)-1)
  return(answer)
}

---

删除1在第三行中，一些括号没有开头
（

应该是

sum(sortz[sortz!=min(sortz)])/(length(x)-1)

sum(sortz[sortz!=min(sortz)]/(length(x)-1))

或者，如果对除以的值进行求和

sum(sortz[sortz!=min(sortz)]/(length(x)-1))