test ssh 4, in rstudio