use power equation to fit observed values
power_equation_base(x, y)
x
vector for x values
y
vector for y valyes
nls model
power_equation_base(c(1,2,3,5,7), c(5,10,15,17,20))