Update indirect.R