imputeValues.R

#R function to imput missing values for daily steps analysis
random.imp <- function (a){
    missing <- is.na(a)
    n.missing <- sum(missing)
    a.obs <- a[!missing]
    imputed <- a
    imputed[missing] <- sample(a.obs, n.missing, replace=TRUE)
    return(imputed)
}