Made minor adjustments to this script. Replaced all = with <- as necessary.