## Not run:
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab