no_of_recs <- 3
prod_table <-
data.frame(key=c("Washing Machine", "Frudge", "Vacuum Cleaner", "Microwave Oven"),
price=c(200, 500, 400, 150),
stringsAsFactors = TRUE)
set.seed(42)
prod <- sample(prod_table$key, no_of_recs, replace=T, prob=c(1, 2,3,4)/10)
unit <- sample(c(1,2), no_of_recs, replace=T, prob=c(10, 3)/13)
prod
unit
I don't get any errors ...
>prod
1] Washing Machine Washing Machine Microwave Oven
Levels: Frudge Microwave Oven Vacuum Cleaner Washing Machine
> unit
[1] 2 1 1