Create textmodel2.R