R语言 读取epiDisplay包中Oswego数据集，如何检查并删除"chocolate"与"mashedpota"具有缺失值（NA）的行，生成新的数据集

在R语言中，如果你想要读取`epiDisplay`包中的`Oswego`数据集，并检查并删除含有缺失值（NA）的`chocolate`和`mashedpota`列，可以按照以下步骤操作：

首先，你需要安装并加载必要的包。如果还没有安装`epiDisplay`包，你可以使用`install.packages()`函数来安装，然后使用`library()`加载它：

# 安装epiDisplay包（如果未安装）
if (!requireNamespace("epiDisplay", quietly = TRUE)) {
  install.packages("epiDisplay")
}

# 加载epiDisplay包
library(epiDisplay)

接下来，假设`Oswego`数据集已经被加载到一个名为`data`的数据框（DataFrame）里，你可以通过以下命令检查特定列是否存在缺失值，并创建一个新的数据集（let's call it `new_data`）：

# 检查数据集中"chocolate"和"mashedpota"列是否有缺失值
has_na <- is.na(data[, c("chocolate", "mashedpota")])

# 找出有缺失值的行索引
na_rows <- which(apply(has_na, 1, any))

# 删除包含缺失值的行
new_data <- data[-na_rows, ]

最后，`new_data`就是已经移除了含有`chocolate`和`mashedpota`列缺失值行的新数据集。