# NOT RUN {
Pg = seq(4000, 8000,by = 100);
H = seq(120, 150,by = 5);
data(pumpCoef)
CoefSP8A44 <- subset(pumpCoef, Qn == 8 & stages == 44)
NmgSP8A44 <- NmgPVPS(pump = CoefSP8A44,Pg = Pg,H = H,Gd = 5000,
title = 'Choice of Pump', theme = custom.theme())
# }
Run the code above in your browser using DataLab