R语言 自定义一个函数； • 异常处理（非数值型、仅一个数据） • 初始化一个向量 • 求该向量的平均值 • 求总平方和 • 计算标准差 • 返回值

下面是一个示例代码，其中包含了对异常值的处理、向量的初始化、平均值、总平方和和标准差的计算，并返回计算结果：

# 自定义函数，参数为向量x
my_function <- function(x) {
  
  # 异常处理，如果x不是数值类型或只有一个数据，则返回错误信息
  if (!is.numeric(x) || length(x) < 2) {
    stop("Input must be a numeric vector with at least 2 elements")
  }
  
  # 向量的初始化
  n <- length(x)
  sum_x <- sum(x)
  sum_x_squared <- sum(x^2)
  
  # 计算平均值
  mean_x <- sum_x / n
  
  # 计算总平方和
  total_ss <- sum_x_squared - n*mean_x^2
  
  # 计算标准差
  sd_x <- sqrt(total_ss / (n-1))
  
  # 返回计算结果
  return(list(mean = mean_x, total_ss = total_ss, sd = sd_x))
}

# 测试函数
x <- c(1, 2, 3, 4, 5)
result <- my_function(x)
result

运行结果如下：

$mean
[1] 3

$total_ss
[1] 10

$sd
[1] 1.581139

说明平均值为3，总平方和为10，标准差为1.58。