testing with R-studio connection