fname <- paste(R.home(),'\\etc\\Rprofile.site',sep='')
x <- c(" ",
       "##===============================================================",
       "## Tinn-R: necessary packages and functions",
       "## Tinn-R: >= 2.2.0.2 with TinnR package >= 1.0.3",
       "##===============================================================",
       ".trPaths <- paste(paste(Sys.getenv('APPDATA'), '\\\\Tinn-R\\\\tmp\\\\', sep=''),",
       "                  c('', 'search.txt', 'objects.txt', 'file.r', 'selection.r',",
       "                    'block.r', 'lines.r'), sep='')",
       " ")
write(x,file=fname,append=TRUE,sep=" ")
q()