classprediction result with cplot.polr

[dnbarron]

I get this result when using what = classprediction in cplot.polr.

house.plr <- MASS::polr(Sat ~ Infl + Type + Cont, weights = Freq, data = MASS::housing)
polr.op <- margins::cplot(house.plr, what = 'classprediction')

polr.op
#>    xvals     yvals
#> 1    Low 0.3784493
#> 2 Medium 0.2568264
#> 3   High 0.1436924

I think the issue might be on line 76 of cplot_polr.R. Should that not be:

yvals = outdat[["fitted.class"]])

[leeper]

Indeed. Thanks!