R Package : rmodel