# Using the forceR::peaks.df.100.avg dataset:
# define the number of coefficients the polynomial models should have
number_of_coeffs = 4
# convert curves to polynomial models
models <- peak_to_poly(df = forceR::peaks.df.100.avg,
coeff = number_of_coeffs)
models
Run the code above in your browser using DataLab