Model1.R works, try now with more data