lattice::xyplot(Pc ~ Phaseshift | WaveForm + TempFreq +
Direction, Vernier, layout = c(4, 2),
panel = function(x, y, n = 20, ...) {
lattice::panel.xyplot(x, y)
panel.psyfun(x, y, 20, lnk = "probit")
}
)
Run the code above in your browser using DataLab