Do the calculations row-wise. For example, summary(rowMeans(PPD == "1"))
summary(rowMeans(PPD == "1"))