用R写一个函数，输入自己的姓名和学号，自动计算学号后4位数和后4位从小到大排序后的4位数的乘积，并输出姓名和结果。

以下是用R编写的函数，可以实现输入姓名和学号，自动计算学号后4位数和后4位从小到大排序后的4位数的乘积，并输出姓名和结果。

calculate_product <- function(name, student_id) {
  last_four_digits <- substr(student_id, nchar(student_id) - 3, nchar(student_id))
  sorted_digits <- sort(as.numeric(strsplit(last_four_digits, "")[[1]]))
  product <- prod(sorted_digits)
  result <- paste(name, "的学号后4位数为", last_four_digits, "，排序后的4位数的乘积为", product)
  return(result)
}

你可以通过以下方式调用该函数：

calculate_product("张三", "20210001")

输出结果为：

[1] "张三 的学号后4位数为 0001 ，排序后的4位数的乘积为 0"

请注意，这里的学号是一个示例，你需要将其替换为你自己的学号。