协助编写 MeanMedDiff 函数答案

【问题标题】：Assistance writing a MeanMedDiff function协助编写 MeanMedDiff 函数
【发布时间】：2021-07-15 01:26:41
【问题描述】：

我正在尝试在 R 中编写一个 MeanMedDiff 函数，它返回向量的均值和中值之间的绝对差。这是我想出的，但我遇到了一个错误。对我的错误有什么想法吗？

MeanMedDiff <- function(lst){
  median <- median(lst)
  mean <- mean(lst)
  diff <- mean-median
  abs(diff)
  }

【问题讨论】：

您能否编辑您的问题以显示输入和错误消息。谢谢。
另外，lst 用作特定数据结构的名称，因此将 `lst` 更改为 my_lst 之类的名称会有所帮助。
这似乎工作正常
您的输入可能是触发错误的list 而不是vector，请尝试MeanMedDiff(unlist(yourlst))，否则它可能不是numeric 向量

标签： r function vector

【解决方案1】：

MeanMedDiff <- function(lst){
  if(is.vector(lst)) {
      abs(median(lst)-mean(lst))
     }
  if(is.list(lst)) {
      abs(median(unlist(lst))-mean(unlist(lst)))
     }
  }

【讨论】：