# Example usage from Example 5.2 in Davila-Pena et al. (2024):
library(CoopGame)
n.user <- 16
Xdata <- createBitMatrix(4)[,-5]
Xdata <- rbind(c(0,0,0,0),Xdata)
Ydata <- rep(0,n.user)
Ydata[1+c(10,11,13,14,15)] <- 1
# Scenario 1:
IM_nodep(Xdata,Ydata)
Run the code above in your browser using DataLab