replaced prices with early rate. fixed r script.