n <- 3
envsp <- fm.PrepareSparseFM(n, vector(), vector())
envsp <- fm.add_singletons_sparse(c(0.2,0.1,0.2),envsp)
envsp <- fm.add_tuple_sparse(c(1,2,3),0.4,envsp);
fm.is_inset_sparse(0,3,1,envsp)
fm.is_inset_sparse(0,3,4,envsp)
envsp <- fm.FreeSparseFM(envsp)
Run the code above in your browser using DataLab