[R-br] comando weight lme

Caros amigos Estou analisando dados em um modelo misto linear utilizando o pacote nlme contendo uma matrix de correlação do tipo compSymm e necessito utilizar como argumento "weights" o* inverso do quadrado do erro padrão* de cada média. Alguem sabe como faço isto. Sei que o argumento weigue utiliza algus objetos varfunction mas não compreendo muito bem seus objetos e não sei se algum deles fazem o que desejo. Alguém pode me ajudar? consumo<-lme(Fixed=Y~X, data=stpierre,random=X|Estudo) consumo<-update(consumo, random=compSymm(~X), Weight=?) Preciso usar o W2 como peso sendo: w2 =w1/ w sendo w1= o inverso do quadrado médio do erro w= média dos quadrados médios