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