设计一个R语言程序（函数），求给定的两个向量array1与array2中奇数的总和，同时返回所有的偶数。

你可以设计一个名为`sum_odd_even`的R语言函数，该函数接受两个向量作为输入，分别计算奇数的总和和偶数的列表。以下是函数的具体实现：

sum_odd_even <- function(array1, array2) {
  # 创建一个向量来存储奇数总和和偶数列表
  odd_sum <- 0
  even_list <- list()

  # 对每个向量的元素进行迭代
  for (num1 in array1) {
    if (is.odd(num1)) {  # 判断元素是否为奇数
      odd_sum <- odd_sum + num1
    } else {
      even_list[[length(even_list) + 1]] <- num1  # 奇数则添加到偶数列表
    }
  }

  for (num2 in array2) {
    if (is.odd(num2)) {
      odd_sum <- odd_sum + num2
    } else {
      even_list[[length(even_list) + 1]] <- num2  # 同理处理偶数
    }
  }

  result <- list(sum_odd = odd_sum, even_numbers = even_list)
  return(result)
}

# 示例
array1 <- c(1, 4, 7, 10, 15)
array2 <- c(2, 5, 6, 8, 13)

output <- sum_odd_even(array1, array2)
print(paste0("Odd sum: ", output$sum_odd))
print("Even numbers: ", output$even_numbers)