added setupVector.R file