# Create some data of class 'Data'.
my_data <- Data(
x = c(0.001, 0.1, 0.1, 0.5, 0.001, 3, 3, 0.001, 10, 10, 10),
y = c(0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0),
cohort = c(1, 1, 1, 2, 3, 3, 3, 4, 4, 4, 4),
doseGrid = c(0.001, 0.1, 0.5, 1.5, 3, 6, seq(from = 10, to = 80, by = 2)),
placeb = TRUE
)
# Plot the data.
plot(my_data)
data <- DataOrdinal(
x = c(10, 20, 30, 40, 50, 50, 50, 60, 60, 60),
y = as.integer(c(0, 0, 0, 0, 0, 1, 0, 0, 1, 2)),
ID = 1L:10L,
cohort = as.integer(c(1:4, 5, 5, 5, 6, 6, 6)),
doseGrid = c(seq(from = 10, to = 100, by = 10)),
yCategories = c("No tox" = 0L, "Sub-tox AE" = 1L, "DLT" = 2L),
placebo = FALSE
)
plot(data)
Run the code above in your browser using DataLab