update to model <- runs slow