v <- fm.generate_fm_2additive(1, 10)
n <- 10
v$len
v$V
check <- fm.check_monotonicity_mob_2additive(v$V, n)
check
temp <- array(0.0,10*10);
check <- fm.check_monotonicity_mob_2additive(v$V, n, temp)
check
Run the code above in your browser using DataLab