Update network_optim.R