se quiser algo em S4, o seguinte pode ser de valia...

setClass('Pessoa', slots=c(nome='character', idade='integer'), prototype=list(nome='Fulano de Tal', idade=rpois(1,50)))
setGeneric('nome', function(object) standardGeneric('nome'))
setGeneric('nome<-', function(object, value) standardGeneric('nome<-'))
setMethod('nome', signature(object='Pessoa'), function(object) object@nome)
setReplaceMethod('nome', signature(object='Pessoa', value='character'), function(object, value) {object@nome <- value; object})

pessoa1 = new('Pessoa', nome='Joao da Silva', idade=32L)
nome(pessoa1)
nome(pessoa1) <- 'Joao da Silva Sauro'
nome(pessoa1)



Em 1 de maio de 2014 18:12, David Feitosa <contato@davidfeitosa.com> escreveu:
Oi, Benilton.

Desconheço o pacote,mas vou googlar. obg.

Em 1 de maio de 2014 17:50, Benilton Carvalho <beniltoncarvalho@gmail.com> escreveu:
R.oo





Atenciosamente,

David Feitosa

(\_(\
(=°;°)
(("")("")

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.