Displaying 1 result from an estimated 1 matches for "quadrados".
Did you mean:
cuadrados
2007 Jun 19
1
help w/ nonlinear regression
...Dados
CO2<-c(141,172,181,227,309,414,641,936)
Prop<-c(0.25,0.34,0.34,0.68,0.85,0.99,0.98,0.99)
# Diagrama dispersão
plot(Prop~CO2, las=1, xlim=c(0,1000),ylim=c(0,1),pch=16,cex=1.5,
xlab="CO2 (ppm)", ylab="Proporção de respostas correctas")
# Estimaçao (Método Mínimos Quadrados)
ajuste<-nls(Prop~(1/3+exp(B*(T-log(CO2))))/(1+exp(B*(T-log(CO2)))),
data=data.frame(CO2=CO2,Prop=Prop),start=list(B=-10,T=5))
summary(ajuste)
# Ilustracao do ajuste
PropEsp<-predict(ajuste,newdata=list(CO2=seq(0,1000,length=100)),se.fit=T)
lines(PropEsp~seq(0,1000,length=100),lwd=2,col=6...