data(clslowbwt)0. No" and "1. Yes".1. White", "2. Black" or "3. Other".0. No" and "1. Yes".2500>smoke" where "0.No" is recoded as "0" and "1.Yes" is recoded as "1".low" where "0.No" is recoded as "0" and "1.Yes" is recoded as "1".2500>low" is recoded into the numeric indicator variable "lbw": clslowbwt$lbw <- as.numeric(clslowbwt$low == "1. Yes") - The variable "smoke" is recoded into the numeric indicator variable "smoker": clslowbwt$smoker <- as.numeric(clslowbwt$smoke == "1. Yes")