<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>
<DIV
style="FONT-SIZE: small; FONT-FAMILY: 'Calibri'; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; TEXT-DECORATION: none; DISPLAY: inline"><FONT
color=#9b00d3 face=Arial>Eu não consegui achar esta biblioteca manipulate. eu
tenho o Windows7, por acaso é exclusiva do Linux, ou ainda não está
oficializada?</FONT></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-SIZE: small; FONT-FAMILY: 'Calibri'; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; TEXT-DECORATION: none; DISPLAY: inline">
<DIV dir=ltr>Oi Fernando,
<DIV> </DIV>
<DIV>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é?</DIV>
<DIV>Engraçado porque meu orientador conseguiu fazer o fit usando esta função.
</DIV>
<DIV>Aqui está como eu plotei mas a curva em azul nem apareceu sobre o
gráfico.</DIV>
<DIV> </DIV>
<DIV>
<DIV>file <- read.table(file="/Users/bau/Desktop/teste/DISparam.txt",
col.names=c('x','y'))</DIV>
<DIV>dados <- data.frame(x=file$x,y=file$y)</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>library(manipulate) </DIV>
<DIV>modelo<-function(a,n,b,x){-((a*(x^(2*n)) + b)/((x-186)*(x+186)))}</DIV>
<DIV>modelo(1,3,3,c(1,2,3,4,5,6,9,12,18,24,30,36,48,60,72,84,96,120,144))</DIV>
<DIV>start <- list()</DIV>
<DIV>manipulate({plot(y~x,dados)</DIV>
<DIV>
curve(modelo(a=a,n=n,b=b,x),add=TRUE, col="blue")</DIV>
<DIV> start
<- list(a=a,n=n,b=b)},</DIV>
<DIV>
a=slider(-1.001,3, initial=-1.001),</DIV>
<DIV>
n=slider(-5.001,100,initial=-5.001),</DIV>
<DIV>
b=slider(1.001,100, initial = 1.001)</DIV>
<DIV>)</DIV></DIV>
<DIV> </DIV>
<DIV>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?</DIV>
<DIV> </DIV>
<DIV>Muito obrigada,</DIV>
<DIV> </DIV>
<DIV>Michelle</DIV></DIV>
<DIV class=gmail_extra><BR> </DIV></DIV></DIV></DIV></BODY></HTML>