Create setup_intrvw.R

currently this code is a mess