Added working regression example based on R