Dear Relper,
I still need some help with this issue.
I am very thanks for the suggestions.
Bests
milton
On Tue, Apr 21, 2009 at 11:51 AM, milton ruser
<milton.ruser@gmail.com>wrote:
> Dear all,
>
> I need to adjust a decaing function between "preference" as
function
> of "distance" (dst). As you can see below, the X values range
from
> highly negative to higly positive. The preferences range from 1 to ~0.
>
> I tryed to use drc() packages, but I I am not wrong, the packages
> is developed mainly to responde-dose, so the X is from 0-infinite.
>
> I need to fit the data and get an assintoptic (inverse-S) shape.
> Any help are welcome.
>
> milton
> brazil-toronto
> ---
> sp.coredep.attr<-read.table(stdin(), head=T, sep=",")
> species,dst,preference,probdye
> coredep,-7500,1,0.001
> coredep,-1000,0.95,0.002
> coredep,-500,0.9,0.003
> coredep,-250,0.8,0.005
> coredep,-120,0.7,0.01
> coredep,-100,0.5,0.02
> coredep,-90,0.3,0.03
> coredep,-60,0.2,0.05
> coredep,-30,0.15,0.065
> coredep,0,0.1,0.08
> coredep,30,0.09,0.1
> coredep,60,0.08,0.15
> coredep,90,0.07,0.2
> coredep,120,0.06,0.3
> coredep,240,0.05,0.4
> coredep,500,0.04,0.5
> coredep,1000,0.02,0.6
> coredep,7500,0.01,0.7
> plot(preference~as.factor(dst), data=sp.coredep.attr, type="n",
cex=0.001,
> col="transparent", xlab="Distance (m)", main="CORE
Dependent")
> lines(sp.coredep.attr$preference, type="b", lwd=2,
col="blue")
> abline(v=10, col="blue", lty=3)
> text(10, 1, "EDGE", cex=1.5)
> text(7, 1, "CORE", cex=1.5, col="green")
> text(13, 1, "MATRIX", cex=1.5, col="red")
> text(4,0.65, "Preference", col="blue")
> text(16,0.65, "Prob.Die", col="red")
> lines(sp.coredep.attr$probdye, type="b", lwd=2,
col="red", lty=2)
>
[[alternative HTML version deleted]]