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