mil_data <- generate_mild_df(positive_dist = "mvnormal",
nbag = 2,
ninst = 2,
nsample = 2)
rows <- bag_instance_sampling(mil_data, 6)
table(mil_data$bag_name[rows])
table(mil_data$instance_name[rows])
rows <- bag_instance_sampling(mil_data, 4)
table(mil_data$bag_name[rows])
table(mil_data$instance_name[rows])
Run the code above in your browser using DataLab