<< KnotTheory`

Alexander[Knot[6,2]][t]

Alexander[PD@Knot[6,2]][t]