我有多个响应数据，这些数据已使用 cSplit_e 拆分为单独的列，格式如下...
ID Response IM2 IM4 ... IM10 IM16
1 1 4,7,10 NA 1 1 NA
2 2 7,5,16,8 NA NA NA 1
3 3 2,10 1 NA 1 NA
我正在尝试设置一个函数将检查每一行以查看列子集是否至少包含一个“1”。然后它将创建一个新列，如果一行在指定的列中至少有一个“1”，则将其设置为“1”。
以前，我通过为我要创建的每一列写出一个 for 循环来完成此操作，就像这样......
parade$q9PaperAggregate <- NA
parade$q9MagazineAggregate <- NA
#Newspaper Aggregate Loop
for (i in 1:nrow(parade)) { #Starts loop setting i to each row number
if (is.na(parade$q9PaperAds[i]) == FALSE | ##These three lines check each row is not all NA
is.na(parade$q9PaperCircs[i]) == FALSE |
is.na(parade$q9PaperWebAds[i]) == FALSE) { …r ×1