Is there an R function in the queuing package to find PN?

Question

I can find P0 when I summarize a Queueing Model.

DT <- QueueingModel(NewInput.MM1(lambda = 40, mu = 60))
summary(DT)

Which give me: