test.R 358 B

123456789101112
  1. nms <- names(hengli_plant)
  2. data = hengli_plant[, grepl("^(time|seitenteil_links_und_rechts)", nms)]
  3. time = data[,1]
  4. current = data[,2:length(names(data))]
  5. matplot(time, current, type = "l")
  6. nms <- names(hengli_24v)
  7. data = hengli_24v[, grepl("^(current|time)", nms)]
  8. time = data[,1]
  9. current = data[,2:length(names(data))]
  10. matplot(time, current, type = "l")