data(octane)
Result <- mfd(octane, diagnostic = TRUE, type = "sprojdepth")
Plot <- fHeatmap(rowValues = Result$MFDdepthZ,
cellValues = Result$crossdepthZ,
type = "depth",
legend.title = "SPD")
Plot
Result <- fOutl(octane, diagnostic = TRUE, type = "fAO")
Plot <- fHeatmap(rowValues = Result$fOutlyingnessZ,
cellValues = Result$crossDistsZ,
type = "distance",
legend.title = "AO")
Plot
Run the code above in your browser using DataLab