Create k_opt.R