if(require(flowFitExampleData)){
# CFSE
data(QuahAndParish)
parent.fitting.cfse <- parentFitting(QuahAndParish[[1]], "<FITC-A>")
parent.fitting.cfse
summary(parent.fitting.cfse)
confint(parent.fitting.cfse)
coef(parent.fitting.cfse)
plot(parent.fitting.cfse)
Data(parent.fitting.cfse)
# PKH26
data(PKH26data)
parent.fitting <- parentFitting(PKH26data[[1]], "FL2-Height LOG")
parent.fitting
summary(parent.fitting)
confint(parent.fitting)
coef(parent.fitting)
plot(parent.fitting)
Data(parent.fitting)
# fixedModel with estimates
parent.fitting <- parentFitting(PKH26data[[1]], "FL2-Height LOG",
fixedModel=TRUE, fixedPars=list(M=NA,S=NA))
# fixedModel with user values
parent.fitting <- parentFitting(PKH26data[[1]], "FL2-Height LOG",
fixedModel=TRUE, fixedPars=list(M=810,S=16))
# fixedModel with locked Peak Size (one fixed parameter)
parent.fitting <- parentFitting(PKH26data[[1]], "FL2-Height LOG",
fixedModel=TRUE, fixedPars=list(S=17))
}Run the code above in your browser using DataLab