Can some help me !

I use default to test my data , but I get an err when I input 

Cbx1expr <- log2(mesc["Cbx1",]+1)
singlegeneplot(Cbx1expr, TSCANorder(lpsmclust,orderonly=FALSE,flip =TRUE))

the error is like this :

Error in model.frame.default(formula = geneexpr ~ 1 + Pseudotime, data = exprdata,  : 
  invalid type (list) for variable 'geneexpr'

Thanks

Yang