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