[R] Extracting random intercept

[Xebar Saram]

Hi all
I am using this model for a time series analysis :
lung_new <- (glmmPQL(LUNG ~ 1, random = ~ 1 | GUID, family = poisson,
data = ts0004lag)
Im interested in extracting just the random intercept
can anyone point me in the right direction
thx
zeltak