env<-fm.Init(3)
v <- fm.generate_fm_sorting(1, 1000, 0, env)
out <- fm.check_monotonicity_sort_merge(v, NULL, env)
out$V[1] = out$V[1] *1.1
out<- fm.check_monotonicity_sort_insert(out$V, out$index, env)
out$out
Run the code above in your browser using DataLab