# NOT RUN {
# Simulate random data
GroupA <- rnorm(50)
GroupB <- rnorm(50)
RandomData <- data.frame(GroupA, GroupB)
rob <- glm(GroupA ~ GroupB, data = RandomData)
bob <- curve_gen(rob, "GroupB", method = "lm")
tibble::tibble(bob)
# }
Run the code above in your browser using DataCamp Workspace