# limpar todas as variáveis rm(list = ls(all.names = TRUE)) # Modelo M3 potencia <-function(x,alpha,beta) { alpha*(x^beta) } potencia<-deriv(~alpha*(x^beta),c("alpha","beta"),function(x,alpha,beta){}) # # Modelo M1 exp1 <-function(x,alpha,beta,gamma) { alpha+beta*exp(gamma/x) } exp1<-deriv(~alpha+beta*exp(gamma/x),c("alpha","beta","gamma"),function(x,alpha,beta,gamma){}) # # Modelo M2 frac <-function(x,alpha,beta,gamma) { alpha-beta/(x+gamma) } frac<-deriv(~alpha-beta/(x+gamma),c("alpha","beta","gamma"),function(x,alpha,beta,gamma){}) # # Modelo M5 exp2 <-function(x,alpha,beta,gamma,delta) { alpha+beta*x-exp(gamma+delta*x) } exp2<-deriv(~alpha+beta*x-exp(gamma+delta*x),c("alpha","beta","gamma","delta"),function(x,alpha,beta,gamma,delta){}) #