data(Signaldata)
### Use only the first two regenerative dose data.
fastED(Signaldata$cw[,-(8:15)],Redose=c(80,160)*0.13,
control.args=list(factor=5),model="line",origin=TRUE)
### Use all regenerative dose data (except the zero-dose).
# fastED(Signaldata$cw[,c(-12,-13)],Redose=c(80,160,240,320,80)*0.13,
# ncomp=3,constant=FALSE)
Run the code above in your browser using DataLab