Export screen in R

a = matrix(1:24,4)
sink(file='./test.sink.txt')
a
summary(a)
sink()