Corretto bug uso class(x) <- "" per oggetto di classe S4