Needs[Polytopes`"]; faces = First /@ First@Normal@PolyhedronData["Dodecahedron", "Faces"]; radius = InscribedRadius[Polygon[First[faces]]]
Im trying to run this short program but it doesnt work. Maybe Im doing something wrong.