# Read from clipboard

Data.test<-read.table("clipboard", header=TRUE)

Data.test.2<-rbind(Data.test,Data.test)

# Write to clipboard

write.table(Data.test.2, "clipboard", quote=FALSE, sep="\t", col.names=TRUE, row.names=FALSE)