Fix frobenius.cor for length(groups) == 1