This is for regression model study by R