data(reduction_cells)
par(mfrow = c(1,2))
hist(reduction_cells$days, main="", xlab="Time (Days)")
plot(reduction_cells$status, xlab = "Status", lty = 3, type="h")
points(reduction_cells$status, pch = 16)
Run the code above in your browser using DataLab