data(tyner_interaction_binary)
data(tyner_sensitivity)
k_select<-sffsBinary(tyner_interaction_binary, tyner_sensitivity[, 1])$k_sel
gc_timma<-graycode3(length(k_select))
select_kinase_names<-dimnames(tyner_interaction_binary)[[2]][k_select]
gc_names<-graycodeNames(length(k_select), select_kinase_names, gc_timma$gc_row, gc_timma$gc_col)Run the code above in your browser using DataLab