change from setReplaceMethod to setMethod for pData<-