User Portlet User Portlet

Discussions
Have you tried `Image[BinPlot]`?
Select[j, Mean@# > 3 &] Cases[j, x_ /; Mean@x > 3] DeleteCases[j, x_ /; Mean@x