x=rep(c(0.02,0.06,0.11,0.22,0.56,1.10),2)
 y=c(47,97,123,152,191,200,76,107,139,159,201,207)
plot(x,y,xlab="concentração",ylab=" velocidade")
###modelo transformado
yt=1/y
xt=1/x
plot(xt,yt,xlab="transf.concentração",ylab="transf.velocidade")
fitt=lm(yt~xt)
abline(fitt)
####modelo não transformado
 fit=nls(y~(theta1*x)/(theta2+x),start=c(theta1=195,theta2=0.05))
summary(fit)
plot(x,y,xlab="concentração",ylab=" velocidade")