details see
http://stackoverflow.com/questions/8380700/how-to-make-r-language-result-display-in-one-line
options(width=2000)
print(S,digits=3)