SetDirectory[NotebookDirectory[]];
apifera = FileNames[All,"write the location of your folder here"];

bees = FileNames[All,"write the location of your folder here"];

DataApifera = apifera[[#]]->"apifera"&/@ Range[Length@apifera];

DataBees=bees[[#]]->"bees"&/@Range[Length@bees];

Data=Union[DataApifera,DataBees];

myData=Import@Data[[#]][[1]]->Data[[#]][[2]]&/@Range[Length@Data];

sampleSize=IntegerPart[Length@myData*0.8];
myDataTrain=RandomSample[myData,sampleSize];
myDataTest=Complement[myData,myDataTrain];

myClassify=Classify[myDataTrain]

myAccuracyDiag=ClassifierMeasurements[myClassify,myDataTest];
myAccuracyDiag["Report"]

myAccuracyDiag["AreaUnderROCCurve"]