use model m2
add R code