@Vitaliy Kaurov @Christopher Carlson @Sander Huisman Interesting to learn about the main authors who write amazing codes on the website (Wolfram Tweet-a-Program) https://twitter.com/wolframtap since 2014 until today ;)
How many Featured Posts are there about how many Featured Posts there are?
BarChart[{1}]
- another post of yours has been selected for the Staff Picks group, congratulations ! We are happy to see you at the top of the "Featured Contributor" board. Thank you for your wonderful contributions, and please keep them coming!
Awesome post, @Sander, thanks! This is very timely and is sort of celebratory as we just surpassed 13,000 members. Excellent example of web data parsing.
@Daniel Lichtblau @Vitaliy Kaurov You mean this?
Overlay[{out[[3, "Avatar"]], Style["WANTED", 20, Red]}, Alignment -> {Center, Top}]
That's the one! Where do I get to claim the reward?
I kind of disagree that the mean face was made with simple averaging. That gives wrong impressions (and deja-vu-s to Danny). A weighted face averaging is much more appropriate.
What should the weights be? Number of featured posts? Sqrt of that? Log thereof?
I would say log or square root. Also, I guess, some image outliers (say, that are not faces) have to be removed...
I already use FindFaces already to align/crop them, and to get rid of avatar without a face (Szabolcs for example).
Right, I should have read your code more carefully. (Cool post, BTW, +1.)
Interestingly, your deja-vu might be right:
Nearest[out[[All, "Avatar"]] -> out[[All, "Name"]], meanface]
returns Daniel Lichtblau as the one with the most average face...
@Vitaliy Kaurov You're the random sample, haha!
