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'