fixed bug in dummy data

statistikat · Apr 9, 2019 · 5adb6b7a3b2d31bf4dd05729f5253e314b29ab66 · 5adb6b7
1 parent 6ee3160
commit 5adb6b7a3b2d31bf4dd05729f5253e314b29ab66
Unified Split

Showing with 1 addition and 1 deletion.

+1 −1 R/demo.eusilc.R
diff --git a/R/demo.eusilc.R b/R/demo.eusilc.R
@@ -44,7 +44,7 @@ demo.eusilc <- function(n = 8, prettyNames = FALSE) {
   if (n > 1)
     for (i in 1:(n - 1)) {
       eusilc.i[db030 %in% sample(unique(eusilc.i$db030), nsamp),
-               c("db030", "eqIncome") := .(nextIDs[.GRP], sample(hhincome, .N)),
+               c("db030", "eqIncome") := .(nextIDs[.GRP], sample(hhincome, 1L)),
                by = db030]
       eusilc.i[, year := year + 1]
       eusilc <- rbind(eusilc, eusilc.i)