R/scurve.R

scurve <-function(x,a=1,start=1,end=2){

x<-x*20 - 10

b<-end-start

y<-1/(1+exp(-a*x))

y<-y*b+start

return(y)
}

Try the LS2Wstat package in your browser

Any scripts or data that you put into this service are public.

LS2Wstat documentation built on May 2, 2019, 5:45 a.m.