Блог

 I=2 
J=2 
A=c(1,1)
  

Я хочу создать функцию с приведенными выше аргументами, которая будет выдавать выходные данные в этом формате:

 cell (1,1) --> support set = (0,0)
cell (1,2) --> support set = (0,1)
cell (2,1) --> support set = (1,0)
cell (2,2) --> support set = (1,1)

  

Здесь, если первый элемент ячейки совпадает с первым элементом A, выведите 0, иначе 1. То же самое для второго элемента.
Мой вопрос в том, как создать такой формат вывода со словами в r? Я понятия не имею.

Вы ищете что-то подобное?

 cell_support <- function(I, J, A)
{
  cat("cell(", I, ", ", J, ") --> support set = (", 
      1 - (I == A[1]), ", ", 1 - (J == A[2]), ")n", sep = "")
}

cell_support(I = 1, J = 2, A = c(2, 2))
#> cell(1, 2) --> support set = (1, 0)

cell_support(I = 2, J = 1, A = c(1, 1))
#> cell(2, 1) --> support set = (1, 0)