initiated best.R program