User Portlet User Portlet

Discussions
Actually this seems to work for me, in spite of the red syntax coloring! rdata = ResourceData["State of the Union Addresses"] data = rdata[All, {"Date", "Text", "Age"}] sample = IntegerPart[.9*Length[data]] trainingDataset =...
IntegerDigits[Range[100]] /. {0 -> Gray, 9 -> Orange} **Bonus challenge:** Style all even digits in Green and odd digits in Red IntegerDigits[Range[100]] /. {x_?EvenQ :> Style[x, Green], x_?OddQ :> Style[x, Red]} ...