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