Vector newLabel

Sign in to test your solution.
load("Dataline.rda") Fields <- strsplit(Dataline, split = ";")[[1]] tmp <- unlist(strsplit(Fields, split = "ID_")) ntmp <- length(tmp) Label <- tmp[seq(1, ntmp, by = 2)] ID <- as.numeric(tmp[seq(2, ntmp, by = 2)])