you can run the entire script I posted and think about what its telling you.
There are options that control how R prints numbers.
Probably good options for your case might be
options(digits=9,scipen=999)
you can simply run that at the top of your script, and then continue to work as normal. If you want to see more or less significant digits , or change the likelihood of numbers appearing in scientific notation, you would change these options.