n <- 3
tups<-vector()
tupsidx<-vector()
envsp <- fm.PrepareSparseFM(n, tups,tupsidx)
envsp <-fm.add_pair_sparse(1,2, 0.4, envsp)
envsp <-fm.add_pair_sparse(1,3, 0.3, envsp)
envsp
envsp <- fm.FreeSparseFM(envsp)
Run the code above in your browser using DataLab