使用了examap<-contMap(tree,a,plot=FALSE,res=200)
结果总是报错
Error in if (x <= trans[1]) state <- names(trans)[1] else if (x >= trans[length(trans)]) state <- names(trans)[length(trans)] else { :
  需要TRUE/FALSE值的地方不可以用缺少值

求指点