Перегрузка оператора и определение класса в R: используйте другое базовое поле/корпус

Я нашел вики по инструментам разработки Хэдли Уикхэма бесценным ресурсом для начала работы с классами в R. В частности, прочитайте разделы:

• классы S3
• классы S4

Вот отправная точка, иллюстрирующая некоторые концепции S3 классов. Назовем ваш новый класс f5. Как минимум, вы, вероятно, захотите создать методы для:

• Принуждение: as.f5
• Тест: is.f5
• Некоторые основные операторы: +.f5
• Класс для обработки печати: print.f5

Некоторый код (с использованием digitsBase в пакете GLDEX для базового преобразования):

library(GLDEX)

as.f5 <- function(x){
  if(!inherits(x, "f5")) class(x) <- c("f5", class(x))
  x
}

is.f5 <- function(x){
  inherits(x, "f5")
}

`+.f5` <- function(e1, e2){
  NextMethod(e1, e2)
}

print.f5 <- function(x, ...){
  # Next line from ?GLDEX::digitsBase
  b2ch <- function(db) noquote(gsub("^0+(.{1,})$"," \1", 
                           apply(db, 2, paste, collapse = "")))

  cat("Base 5:\n")
  cat(b2ch(digitsBase(x, 5)))
  invisible(x)
}


x <- as.f5(0:10)
y <- as.f5(5)

x + y

Base 5:
10 11 12 13 14 20 21 22 23 24 30

Я интерпретировал ваш вопрос немного иначе, чем @Andrie, но он уже проделал кучу необходимой работы в классе S3. Я думал, вы хотите разработать групповые операции над группой из пяти элементов или, возможно, над кольцом. Затем вам понадобится операция «+» с элементом идентичности == 0 и, возможно, операция «*» с элементом идентичности == 1.

Если вы хотите, чтобы в это отображались неотрицательные целые числа, вы должны использовать арифметические операторы по модулю, %% и, возможно, %/%:

?Ops
as.g5 <- function(x){
  if(!inherits(x, "g5")) class(x) <- c("g5", class(x))
  x %% 5
}

print.g5 <- function(x, ...){

  cat("G5 equivalent:\n")
  cat(x %% 5)
  invisible(x)
}

Если вам нужны два оператора, вы можете искать:

 `+.g5` <- function(e1, e2){
   NextMethod(e1 ,e2) %% 5
 }

 `*.g5` <- function(e1, e2){
   NextMethod(e1 ,e2) %% 5
 }
 x <- as.g5(0:10)
 y <- as.g5(5)

 x + y
#G5 equivalent:
#0 1 2 3 4 0 1 2 3 4 0
 y <- as.g5(2)
 x * y
#G5 equivalent:
#0 2 4 1 3 0 2 4 1 3 0

Также возможно использовать эти операции с «изменчивыми» версиями векторов:

 as.g5(1:10) * as.g5(1:10)
# G5 equivalent:
# 1 4 4 1 0 1 4 4 1 0