Dfyjkt

I have written this code in R to form combinations of the column items viz. combinations of two items, combination of three items and so on. At the same time, I am performing some calculations for each of these combinations using the values from another table

resp=145
nitems=11
nperset=5

Utility = function(x) sum(exp(x)) / sum(exp(x), (nperset-1))

combos = list()
for (m in 2:nitems)
 y=as.list(as.data.frame(t(comboGeneral(nitems,m))))
 combos[[length(combos)+1]] = y


combos = unlist(combos, recursive = FALSE)

data3<-matrix(nrow=resp, ncol= length(combos))
for (i in seq_along(combos)) 
 data3[, i] = apply(data1[, combos[[i]]], MARGIN = 1, FUN = Utility)


colnames(data3) = sapply(combos, paste, collapse = "_")

final_output=rbind(data3,Average = apply(data3,2,mean))

The Final output looks like this –

Using this output, I want to create another matrix (to be used as an input in another software) which would look like this –

Wherein if it’s a combination Item 4 & Item 7, we should have '1' for the respective columns else '0'. Similarly, for combinations of three, four and so on. The Averages calculated in the code above should be the last column in this matrix. Also each of the combinations grid should be in the descending order of the Average column i.e. the combination with highest Average should be at the top & so on.

I tried linking the list of combos created in the code to select the combinations of items which should be defined as 1 but unable to do so.

data5<-matrix(nrow = length(combos), ncol = nitems)
for (i in seq_along(combos)) 
 data3[i,] = ifelse(ncol(data5)==combos[[i]],1,0)

Please help me in creating this entire matrix using a single code.