ClassifierMeasurements with Uncertainty

train=ResourceData[ResourceObject["Sample Data: Wine Quality"],"TrainingData"];
test=ResourceData[ResourceObject["Sample Data: Wine Quality"],"TestData"];
RandomSample[train,1]
clf=Classify[train]
el=RandomSample[test,1]
clf[el[[1,1]],"TopProbabilities"]
cm=ClassifierMeasurements[clf,test];
cm["Accuracy",ComputeUncertainty->True]