## Not run:
# data(tyner_interaction_binary)
# data(tyner_sensitivity)
# x<-data.frame(tyner_interaction_binary)
# kinase_names<-dimnames(tyner_interaction_binary)
# float<-sffsBinary(tyner_interaction_binary, tyner_sensitivity[,1])
# k_select <- float$k_sel
# select_kinase_names <- findSameSet(x, k_select, kinase_names)
# ## End(Not run)
Run the code above in your browser using DataLab