Updating textmodel2.R