fixed bug in new.var.y

new.var.y[, , j] <- new.var => new.var.y[, , j] <-
fixed.tmle$sparsityAdj
also some cleanup, moved variance estimation to separate function