# Loading signal data
data(Signaldata)
# Calculating a fast-component dose with three components after removing the
# decay curves that correspond to zero-redose (12th) and its test-dose (13th)
fastED(Signaldata$cw[,c(-12,-13)],Redose=c(80,160,240,320,80)*0.13,
ncomp=3,constant=FALSE)
# Trying with two component plus a constant
fastED(Signaldata$cw,Redose=c(80,160,240,320,0,80)*0.13,ncomp=2)Run the code above in your browser using DataLab