R code related to aiworker.com laboratory