Sua duvida é como traçar a curva do modelo ajustado no gráfico? Se for você pode tentar o comando curve()caso contrário desconsidere o exemplo. Ex: vd<-c(0.18, 1.40, 6.85, 12.40, 16.15, 20.45, 25.13, 27.43, 29.23, 32.00, 34.75, 36.85)vi<-c(30, 62, 92, 120, 148, 176, 208, 237, 266, 298, 328, 361)a <- max(vd) + 1reg <- nls(vd ~ A/(1 + B * exp(-C * vi)), start = list(A = a, B = exp(coef(lm((log((a - vd)/vd)) ~ vi))[1]), C = -(coef(lm((log((a - vd)/vd)) ~ vi))[2])))summary(reg)par(family = "serif", cex = 0.8)plot(vd ~ vi, ylab = "vd", xlab = "vi" , las = 1)curve(coef(reg)[1]/(1 + coef(reg)[2] * exp(-coef(reg)[3] *x)), add = T)
> Date: Fri, 30 Nov 2012 16:02:23 +0000 > From: [email protected] > To: [email protected] > Subject: [R-br] dúvida > > estive a ver o help(abline) mas o unico exemplo que encontro é para o > modelo y~x > > onde posso encontrar um exemplo da função abline() para > lm(pthi~dose+grupo) ?Ana > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código > mínimo reproduzível.
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
