R将系数列转换为不起作用的字符

# 假设系数列存储在名为"coefficients"的向量中
coefficients <- c(0.2, -0.1, 0, 0.05, -0.02)

# 创建一个空的向量来存储转换后的系数
transformed_coefficients <- vector()

# 遍历系数列中的每个元素
for (coefficient in coefficients) {
  # 判断系数是否为零或接近零
  if (abs(coefficient) < 0.001) {
    # 将系数转换为不起作用的字符
    transformed_coefficients <- append(transformed_coefficients, "NA")
  } else {
    # 将非零系数保持不变
    transformed_coefficients <- append(transformed_coefficients, coefficient)
  }
}

# 打印转换后的系数
print(transformed_coefficients)