augroup filetypedetec
au BufNewFile,BufRead *.txt     setf txt
au BufNewFile,BufRead *.R     setf r
au BufNewFile,BufRead *.R     set syntax=r
augroup END