Create model_test.R