function (apc.data.list, log = "y")
{
    apc.index <- apc.get.index(apc.data.list)
    apc.plot.data.sums(apc.data.list, apc.index = apc.index,
        log = log)
    dev.new()
    apc.plot.data.sparsity(apc.data.list, apc.index = apc.index)
    dev.new()
    apc.plot.data.within(apc.data.list, data.type = "r", apc.index = apc.index,
        log = log)
    if (is.null(apc.data.list$dose) == FALSE) {
        dev.new()
        apc.plot.data.within(apc.data.list, data.type = "d",
            apc.index = apc.index, log = log)
        dev.new()
        apc.plot.data.within(apc.data.list, data.type = "m",
            apc.index = apc.index, log = log)
    }
}
<environment: namespace:apc>