Is there a R function to fit a biokinetic distribution graph?

Question

So I\'ve been struggling to find a code to fit my biokinetic distribution graph. the data is as follows:

x <- c(0, 1.93, 6.2, 24, 50.2, 70, 141.8)
y <- c(0,