Tuned some parameters. Estimations getting better.
Forgot the R file again.