n <- 5
tups<-vector()
tupsidx<-vector()
envsp <- fm.PrepareSparseFM(n, tups,tupsidx)
envsp <- fm.generate_fm_2additive_convex_sparse(n, envsp)
envsp
envsp <- fm.FreeSparseFM(envsp)
Run the code above in your browser using DataLab