# NOT RUN {
library(magrittr)
atts <- c('cult', 'fam', 'house', 'jobs', 'trans')
data(city200)
set.seed(42)
## Make a dataframe that is missing at random
missing.df <- city200[1:10,]
for (i in 1:10){
missing.df[i, round(stats::runif(1,1,10))] <- NA
}
missingahp <- ahp.mat(missing.df, atts, negconvert = TRUE)
ahp.missing(missingahp, atts)
# }
Run the code above in your browser using DataLab