powered by
data(friday87)
data(friday87) wfri <- data.frame(scale(friday87$fau, scal = FALSE)) wfri <- ktab.data.frame(wfri, friday87$fau.blo, tabnames = friday87$tab.names) kplot(sepan(wfri), clab.r = 2, clab.c = 1)
Run the code above in your browser using DataLab