data(Signaldata)
# Use only the first two regenerative dose values.
fastED(Signaldata$cw[,-(8:15)],Redose=c(80,160)*0.13,model="line",
control.args=list(factor=5,maxiter=50),origin=TRUE)
# Use all regenerative dose values (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