library(drfit)
data(antifoul)
r <- drfit(antifoul)
r