如何用R的supsmu函数对多特征列基于索引列平滑并完成文件读写？

以下是各类内容的Markdown格式化规则及示例：

• 标题：使用井号 # 标识，井号数量对应标题层级（1-6级）
  示例：

  # 一级标题
  ## 二级标题
  ### 三级标题
  

• 列表项：以短横线 - 开头创建无序列表，支持嵌套
  示例：

  - 第一条列表项
  - 第二条列表项
    - 嵌套的子列表项
  

• 文本强调：用单个星号 * 包裹实现斜体强调，用两个星号 ** 包裹实现粗体强调
  示例：

  *这是斜体强调文本*
  **这是粗体强调文本**
  

• 代码/命令：用反引号 ` 包裹单行代码，用三个反引号 ``` 包裹多行代码块（可指定代码语言）
  示例：

  单行代码：`print("Hello World")`
  多行代码块：
  ```python
  def hello():
      print("Hello World")
  

• 引用文本：用大于号 > 开头标识引用内容
  示例：

  > 这是一段引用文本，可用于标注引用内容或补充注释
  

• 链接：格式为 [链接显示文本](目标URL)，将URL替换为实际跳转地址即可
  示例：

  [示例链接](https://example.com)
  

• 图片：格式为 [图片替代文本](图片URL)，替代文本会在图片无法加载时显示，URL替换为实际图片地址
  示例：

  [示例图片](https://example.com/image.jpg)
  

内容的提问来源于stack exchange，提问作者sanjeewa