n <- 3
envsp <- fm.PrepareSparseFM(n)
envsp <- fm.add_tuple_sparse(c(1,2,3),0.2,envsp)
envsp <- fm.add_tuple_sparse(c(1,3,4),0.3,envsp)
tuples <- fm.sparse_get_tuples(envsp)
tuples
envsp <- fm.FreeSparseFM(envsp)
Run the code above in your browser using DataLab