## Not run:
# data(tyner_interaction_binary)
# data(tyner_sensitivity)
# y<-tyner_sensitivity[,1]
# k_selected<-sffs(tyner_interaction_binary, y)$k_sel
# x<-data.frame(tyner_interaction_binary[, k_selected])
# #binarize the sensitivity data
# one<-which(y>0.5)
# zero<-which(y<=0.5)
# SENS<-y
# SENS[one]<-1
# SENS[zero]<-0
# draw_data<-cbind(x, SENS)
# drawGraph(draw_data)
# ## End(Not run)
Run the code above in your browser using DataLab