I tried running PCR and the results came out like this
> pcr.mod <- pcr(price~date+age+distance+stores+latitude+longitude, data = Estate.train, scale = TRUE