Skip to content

Instantly share code, notes, and snippets.

@stevehenderson

stevehenderson/add_interactions

Created September 23, 2014 03:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save stevehenderson/137c8780c5497800a949 to your computer and use it in GitHub Desktop.
Save stevehenderson/137c8780c5497800a949 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
add_interactions
#add interaction columns -- TODO: Programticcaly do this later
#c12
dd<-cbind(binary.factors.matrix[,5]*binary.factors.matrix[,4],binary.factors.matrix)
#c13
dd<-cbind(binary.factors.matrix[,5]*binary.factors.matrix[,3],dd)
#c14
dd<-cbind(binary.factors.matrix[,5]*binary.factors.matrix[,2],dd)
#c15
dd<-cbind(binary.factors.matrix[,5]*binary.factors.matrix[,1],dd)
#c23
dd<-cbind(binary.factors.matrix[,4]*binary.factors.matrix[,3],dd)
#c24
dd<-cbind(binary.factors.matrix[,4]*binary.factors.matrix[,2],dd)
#c25
dd<-cbind(binary.factors.matrix[,4]*binary.factors.matrix[,1],dd)
#c34
dd<-cbind(binary.factors.matrix[,3]*binary.factors.matrix[,2],dd)
#c35
dd<-cbind(binary.factors.matrix[,3]*binary.factors.matrix[,1],dd)
#c45
dd<-cbind(binary.factors.matrix[,2]*binary.factors.matrix[,1],dd)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment