R/VE_HT_Mean_NHT.r

Defines functions VE.HT.Mean.NHT

Documented in VE.HT.Mean.NHT

VE.HT.Mean.NHT <- function(VecY.s, VecPk.s, MatPkl.s, N)
{
  if(length(N) != 1 ){stop("Value of N must be a scalar, i.e. a vector of length 1.")                                    }
  if(N%%1 != 0      ){stop("N must be an integer or a double-precision scalar with zero-valued fractional part.")        }
  DoubleN            <- as.double(N)
  VE.HT.Total.NHT(VecY.s, VecPk.s, MatPkl.s) / DoubleN / DoubleN
}

Try the samplingVarEst package in your browser

Any scripts or data that you put into this service are public.

samplingVarEst documentation built on Jan. 14, 2023, 5:08 p.m.