add homework1.R