g <- pump_power_grid( d_m = "d3.2_m3ff2rc", MTP = c( "HO", "BF" ),
MDES = 0.10, J = seq(5, 10, 1), M = 5, K = 7, nbar = 58,
Tbar = 0.50, alpha = 0.15, numCovar.1 = 1,
numCovar.2 = 1, R2.1 = 0.1, R2.2 = 0.7,
ICC.2 = 0.25, ICC.3 = 0.25, rho = 0.4, tnum = 200)
plot(g, power.definition = 'min1')
Run the code above in your browser using DataLab