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 <[email protected]>escreveu:
> Oi, Benilton.
>
> Desconheço o pacote,mas vou googlar. obg.
>
> Em 1 de maio de 2014 17:50, Benilton Carvalho
> <[email protected]>escreveu:
>
>> R.oo
>
>
>
>
>
>
> Atenciosamente,
>
> David Feitosa
>
> (\_(\
> (=°;°)
> (("")("")
>
> _______________________________________________
> R-br mailing list
> [email protected]
> 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.
>
_______________________________________________
R-br mailing list
[email protected]
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.
