data(tyner_interaction_binary)
data(tyner_sensitivity)
profile<-tyner_interaction_binary[,c(-1, -2, -5)]
num<-length(tyner_sensitivity[,1])
k_set<-rep(0, dim(profile)[2])
k_set[1]<-1
result<-sffsBinary2(profile, tyner_sensitivity[,1], new_initial_list = k_set, max_k=2)Run the code above in your browser using DataLab