这段代码是用 R 语言对一个数据集进行数据清洗，主要步骤如下： 读入一个 csv 文件，文件路径为 './data/air_data-utf8.csv'，并指定文件头（he=T）和编码格式为 utf-8（encoding='utf-8'）。 去除票价（SUM_YR_1 和 SUM_YR_2）为空的记录，使用 is.na() 函数判断票价是否为空。 去除票价为0、平均折扣率不为0、总飞行公里数大于0的记录，使用 which() 函数找到符合条件的记录索引，并将其从数据集中删除。 将清洗后的数据保存为一个新的 csv 文件，文件路径为 './data/cleandata.csv'，并包含行名（row.names = TRUE）。 最终保存的数据集为清洗后的数据集 cleanedfile。去除的代码是什么

以下是该代码的去除票价为0、平均折扣率不为0、总飞行公里数大于0记录的部分代码：

# 找到符合条件的记录索引
index1 <- which(cleanedfile$SUM_YR_1 == 0 & cleanedfile$SUM_YR_2 == 0)
index2 <- which(cleanedfile$avg_discount != 0 & cleanedfile$SEG_KM_SUM != 0)
index3 <- which(cleanedfile$LAST_TO_END < 0)
index <- unique(c(index1, index2, index3))

# 从数据集中删除符合条件的记录
cleanedfile <- cleanedfile[-index, ]

这段代码将票价（SUM_YR_1 和 SUM_YR_2）为0、平均折扣率不为0、总飞行公里数大于0，以及最后一次乘坐飞行的时间小于0的记录都删除了。