# NOT RUN {
vecWithNAs <- c(-1, 0,1,NA,3,Inf,5,NA)
control <- spotControl(dim=length(vecWithNAs))
print(vecWithNAs)
print(handleNAsMean(y=vecWithNAs,
imputeCriteriaFuns= control$yImputation$imputeCriteriaFuns))
# }
Run the code above in your browser using DataLab