[R-br] Criar um txt com cabeçalho

[ASANTOS]

*Prezados listeiros,**
**
**        Tenho um data frame com coordenadas geográficas sendo:*

lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3,342711.5)
long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6,8212307.6)
coords<-cbind(lat,long)

*  E informações adicionais como*

w<-rep("w", 5)
utm<-rep("utm",5)
id<-seq(1:5)
zon<-rep("21L", 5)
id2<-seq(1:5)
d1<-rep("00/00/00",5)
h2<-rep("00:00:00",5)
n1<-rep(0,5)
n2<-rep(2,5)
n3<-rep(48,5)
n4<-rep(0,5)
n5<-rep(13,5)


*Junto tudo em um data frame:*

dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5)
dados

*Agora gostaria de criar um arquivo *txt com a função write.table(), mas 
antes gostaria de colocar um cabeçalho:*

Version,212

WGS1984(GPS),217,6378137,298.257223563,0,0,0
USERGRID,0,0,0,0,0

*De forma que meu arquivo final em *txt ficasse***, sem os "" e separado 
por vírgula*: *

Version,212

WGS1984(GPS),217,6378137,298.257223563,0,0,0
USERGRID,0,0,0,0,0

w,utm,1,21L,343248.0,8212396.7,1,00/00/00,00:00:00,0,2,48,0,13
w,utm,2,21L,342784.4,8212346.0,2,00/00/00,00:00:00,0,2,48,0,13
w,utm,3,21L,342796.2,8212263.4,3,00/00/00,00:00:00,0,2,48,0,13
w,utm,4,21L,343084.7,8212369.7,4,00/00/00,00:00:00,0,2,48,0,13
w,utm,5,21L,343020.3,8212404.6,5,00/00/00,00:00:00,0,2,48,0,13


*Isso é possível de fazer no R, muito obrigado, *


-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150816/06574cd0/attachment.html>