data(cars)
library(nls)
carfitnls <- nls(dist ~ a + speed^b, start=list(a=1,b=1), data=cars)
summary(carfitnls)