test zyy07/zyy13/zytj01 in rstudio