create a 5x5 community matrix with variables that match on rows and columns and have interaction values of 1,0,-1 in r

main.r
# Define the matrix dimensions
n <- 5

# Create an empty matrix
community_matrix <- matrix(0, nrow = n, ncol = n)

# Assign interaction values to the matrix
community_matrix[1, 2] <- 1
community_matrix[1, 3] <- -1
community_matrix[2, 1] <- 1
community_matrix[2, 4] <- 1
community_matrix[3, 1] <- -1
community_matrix[3, 5] <- 1
community_matrix[4, 2] <- 1
community_matrix[4, 5] <- -1
community_matrix[5, 3] <- 1
community_matrix[5, 4] <- -1

# Print the community matrix
print(community_matrix)
495 chars
21 lines

main.r
community_matrix <- matrix(c(
  0, 1, -1, 0, 0,
  1, 0, 0, 1, 0,
  -1, 0, 0, 0, 1,
  0, 1, 0, 0, -1,
  0, 0, 1, -1, 0
), nrow = 5, byrow = TRUE)

print(community_matrix)
170 chars
10 lines