# Load data
data("alba", package = "TropFishR")
# Resample lfq data
alba_p <- lfqResample(lfq = alba)
# Side-by-side plot
op <- par(no.readonly = TRUE)
par(mfcol = c(2, 1), mar = c(4, 4, 2, 1))
# Original
plot(x = TropFishR::lfqRestructure(alba), Fname = "rcounts")
mtext("original", side=3, line=0.25)
# Resampled
plot(TropFishR::lfqRestructure(alba_p), Fname = "rcounts")
mtext("resampled", side=3, line=0.25)
par(op)
Run the code above in your browser using DataLab