Uma alternativa para obter as informações do ajuste do modelo em um data frame.

model<-nls(R~k*M^n, start=list(k=0.5,n=1), data = df)
stats <- tidy(model)
#  term estimate  std.error statistic      p.value
#1    k 11.53004 0.58948562  19.55949 1.808707e-10
#2    n  0.31174 0.01158954  26.89839 4.284298e-12
class(stats)
"data.frame"
stats[, 1:2]
#  term estimate
#1    k 11.53004
#2    n  0.31174


2016-07-05 15:21 GMT-03:00 Pedro Campelo via R-br <r-br@listas.c3sl.ufpr.br>:
Pessoal,

Estou rodando um script e preciso extrair os dados dos coeficientes ajustados para um modelo. No meu exemplo, quero extrair e separar os valores "k" e "n".

> data.frame(A)
     M     R
1   10 24.61
2   20 29.41
3   30 33.07
4   40 37.37
5   50 38.22
6   60 41.14
7   70 41.61
8   80 43.41
9   90 47.18
10 100 48.77
11 110 51.02
12 120 52.95
13 130 52.98
14 140 52.92

> model<-nls(R~k*M^n, start=list(k=0.5,n=1))
> summary(model)


Obrigado


----

Pedro Henrique Campelo Felix
Bachelor of Food Engineering (UNI-BH)
Msc. Chemical Engineering (UFMG)
PhD Student of Food Science (UFLA)

+55 (31) 97560-1545 (TIM)
"Nós somos aquilo que fazemos repetidamente. Excelência, então, não é um modo de agir, mas um hábito." Aristóteles

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
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.



--
###############################################################
##  Jônatan Dupont Tatsch
##  Professor do Departamento de Física
##  Centro de Ciências Exatas e Naturais (CCNE)
##  Universidade Federal de Santa Maria - UFSM
##  Faixa de Camobi, Prédio 13 - Campus UFSM - Santa Maria, RS, Brasil - 97105-900
##  Telefone: +55(55)33012083
###############################################################