oops, scale change. default log in R is to base 2. have changed to base 10