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?