testing ot vc in rstudio