Compute the optimum number of sample elements per primary sampling unit (PSU) for a fixed set of PSUs
1  clusOpt2fixedPSU(C1, C2, m, delta, unit.rv, k=1, CV0=NULL, tot.cost, cal.sw)

C1 
unit cost per PSU 
C2 
unit cost per element 
m 
number of sample PSU's (fixed) 
delta 
homogeneity measure 
unit.rv 
unit relvariance 
k 
ratio of B^2 + W^2 to unit relvariance 
CV0 
target CV 
tot.cost 
total budget for variable costs 
cal.sw 
specify type of optimum: 1 = find optimal \bar{n} for fixed total budget; 2 = find optimal \bar{n} for target CV0 
clusOpt2fixedPSU
will compute \bar{n}_{opt} for a twostage sample which uses simple
random sampling at each stage or ppswr at the first stage and srs at the second. The PSU sample is fixed.
List with values:
C1 
unit cost per PSU 
C2 
unit cost per element 
m 
number of (fixed) sample PSUs 
delta 
homogeneity measure 
unit relvar 
unit relvariance 
k 
ratio of B^2 + W^2 to unit relvariance 
cost 
total budget for variable costs, CC_{0} if 
n 
optimum number of sample elements per PSU 
CV 
computed CV if 
Richard Valliant, Jill A. Dever, Frauke Kreuter
Valliant, R., Dever, J., Kreuter, F. (2013, sect. 9.3.3). Practical Tools for Designing and Weighting Survey Samples. New York: Springer.
clusOpt2
, clusOpt3
, clusOpt3fixedPSU
1 2 3 4 5 6  # optima for a vector of budgets
clusOpt2fixedPSU(C1=500, C2=100, m=100, delta=0.05, unit.rv=2, k=1, CV0=NULL,
tot.cost=c(100000, 500000, 10^6), cal.sw=1)
# optima for a target CV and vector of PSU costs
clusOpt2fixedPSU(C1=c(500,1000,5000), C2=100, m=100, delta=0.05, unit.rv=2, k=1,
CV0=0.05, tot.cost=NULL, cal.sw=2)

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.
All documentation is copyright its authors; we didn't write any of that.