I have the following data frame which contains 4 columns of data in addition to the vector of labels c.
Time <-c(1:4) d<-data.frame(Time, x1= rpois(n =