## Not run:
# #construct biexponential transformation function
# biexpTrans <- flowJoTrans(channelRange=4096, maxValue=262144, pos=4.5,neg=0, widthBasis=-10)
# #make a transformList object
# transFuns <- transformList(chnls, biexpTrans)
# #add it to GatingSet
# gs_trans <- transform(gs, transFuns)
# ## End(Not run)
Run the code above in your browser using DataLab