数据data中Y为无序四分类，怎样用multiclass.roc函数计算AUC的置信区间？请输出R代码。

以下是R代码示例：

library(pROC)

# 生成数据
set.seed(123)
y = factor(sample(c("A", "B", "C", "D"), 100, replace = TRUE))
pred = runif(100)

# 计算AUC
auc = multiclass.roc(y, pred, plot = FALSE)

# 计算置信区间
ci = ci.auc(auc)

# 输出结果
cat(sprintf("AUC: %f\n", auc$roc[[1]]$auc))
cat(sprintf("95%% Confidence Interval: [%f, %f]\n", ci[1], ci[2]))

其中，y为四个无序分类的因变量，pred为预测变量，multiclass.roc函数计算AUC值，ci.auc函数计算置信区间。最后，使用sprintf函数格式化输出结果。