Rtools for getPostTypeProb