以下是一个用于计算日期对应星期几的R函数示例：

get_weekday <- function(date) {
  # 将输入日期转换为日期对象
  date <- as.Date(date)
  
  # 获取日期对应的星期几（0代表星期天，1代表星期一，以此类推）
  weekday <- weekdays(date)
  
  # 根据星期几的名称返回对应的数字
  if (weekday == "Sunday") {
    return(0)
  } else if (weekday == "Monday") {
    return(1)
  } else if (weekday == "Tuesday") {
    return(2)
  } else if (weekday == "Wednesday") {
    return(3)
  } else if (weekday == "Thursday") {
    return(4)
  } else if (weekday == "Friday") {
    return(5)
  } else if (weekday == "Saturday") {
    return(6)
  } else {
    return("Invalid date")
  }
}

使用示例：

# 调用函数并输出结果
date <- "2022-01-01"
result <- get_weekday(date)
print(result)

输出：

[1] 5

以上示例中，函数get_weekday接受一个日期作为输入，并使用as.Date函数将输入日期转换为标准的日期对象。然后，利用weekdays函数获取日期对应的星期几（以星期天为起始）。最后，根据星期几的名称返回对应的数字。请注意，函数假设输入的日期格式为"yyyy-mm-dd"，如果输入格式不正确，则返回"Invalid date"。