Which DGP is being mimicked when we use the shuffle() function? Implement it in the plot provided below. # modify this code to mimic such a DGP model <- do( 10 ) * b1(shuffle(total) ~ condition, data = laptops) model gf_jitter(total ~ condition, data = laptops, width = .1, color = "navyblue")