性别分类
images = {[image], ..., [image]};
gender = {"male", ..., "female"};faces = ConformImages[HistogramTransform@ImageTrim[#, FindFaces[#][[1]]]& /@ images, ColorSpace -> "Grayscale"]{[image], ..., [image]}trainingSetSize = 30;
trainingSet = Rule@@@Transpose@{faces, gender}[[All, ;; trainingSetSize]];
testSet = Rule@@@Transpose@{faces, gender}[[All, trainingSetSize + 1 ;; ]];用 Classify 构建分类器.
GenderClassifier = Classify[trainingSet, Method -> "LogisticRegression"]ClassifierMeasurements[GenderClassifier, trainingSet, "Accuracy"]ClassifierMeasurements[GenderClassifier, testSet, "Accuracy"]GenderDetect[img_Image] :=
With[{faces = FindFaces[img]},
If[faces =!= {},
GenderClassifier[
HistogramTransform[ImageTrim[ColorConvert[img, GrayLevel], faces[[1]]]]
],
"no face detected"
]]
GenderDetect[images__Image] := GenderDetect /@ {images}imgs = {[image], [image], [image], [image], [image]};GenderDetect@@imgs