Estou tentado incluir a curva predita no meu gráfico, mas ela não se ajusta. Estou usando o seguinte argumento:
plot(df$n.kill, df$body)
lines(df$n.kill,predict(fit,df$n.kill))
Dados:
n.kill<-c(79,4,86,9,10,49,45,260,10,8,182,16,824,2,11,112)
body<-c(160,1.5,23,40,4.5,4.5,0.8,3,1.2,60,70,0.5,35,30.5,4,47)
df<-data.frame(n.kill, body)
ca=max(df$n.kill)
eps <- .Machine$double.eps^0.5
fit <- nls(n.kill ~ a*(1 - exp(-b*body))^c, data = df,
start = list(a = ca, b = 0.05, c = 1),
algorithm = 'port',
control = nls.control(maxiter = 100, tol = eps))
n.kill
é a resposta, deverá estar no eixo dos y tal como o resultado depredict
. No eixo dos x deverá estarbody
.curve
pt.stackoverflow.com/questions/6267/…