# Prepare Data
df <- data.frame(item1 = rnorm(1000), item2 = rnorm(1000), item3 = rnorm(1000))
df[sample(1:nrow(df), size = 100), c("item1","item2","item3")] <- NaN
# Calculate Missingness-Adjusted Row Sum
is.nan(df)
Run the code above in your browser using DataLab