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