Eu não consegui achar esta biblioteca manipulate. eu tenho o Windows7, por acaso é exclusiva do Linux, ou ainda não está oficializada?

 

Oi Fernando,

 

Ele nem desenha a curva em cima do gráfico. Isso indica então que não tem parâmetros que façam com que a função se ajuste, né?

Engraçado porque meu orientador conseguiu fazer o fit usando esta função.

Aqui está como eu plotei mas a curva em azul nem apareceu sobre o gráfico.

 

file <- read.table(file="/Users/bau/Desktop/teste/DISparam.txt", col.names=c('x','y'))

dados <- data.frame(x=file$x,y=file$y)

 

 

library(manipulate)

modelo<-function(a,n,b,x){-((a*(x^(2*n)) + b)/((x-186)*(x+186)))}

modelo(1,3,3,c(1,2,3,4,5,6,9,12,18,24,30,36,48,60,72,84,96,120,144))

start <- list()

manipulate({plot(y~x,dados)

            curve(modelo(a=a,n=n,b=b,x),add=TRUE, col="blue")

            start <- list(a=a,n=n,b=b)},

           a=slider(-1.001,3, initial=-1.001),

           n=slider(-5.001,100,initial=-5.001),

           b=slider(1.001,100, initial = 1.001)

)

 

Mas uma função que tem singularidades é aceita para ajustar os dados no R? Se a função ajustasse, não teria problema o fato de ela apresentar singularidades?

 

Muito obrigada,

 

Michelle

 

_______________________________________________
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.