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)Run the code above in your browser using DataLab