R script update

add new line for txt file creation