fixed data import so use values that do not get changed by factoring in R