minor change to work.R