
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.