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

以下是可以回答的R代码：

library(pROC)
data <- data.frame(Y = sample(1:4, 1000, replace=T), X1 = rnorm(1000), X2 = rnorm(1000))
roc <- multiclass.roc(levels=1:4, response=data$Y, predictor=data[, c("X1", "X2")])
ci <- ci(roc, of="auc")

请注意，这里的数据仅作示例使用，您需要根据您的数据设置正确的参数。