rscript for fds workship