Is this what you want:
> x <- read.table(textConnection('"read" "no" "length"
+ 2 2 144
+ 7 7 47490
+ 9 9 310944
+ 11 11 10089
+ 14 14 13152
+ 17 17 27363 '), header=TRUE)
> closeAllConnections()
> result <- lapply(1:nrow(x), function(.indx){
+ data.frame(read=paste(x$read[.indx], seq(x$length
Dear all,
I have one problem to handle a large dataset...
It looks like:
"read" "no" "length"
2 2 144
7 7 47490
9 9 310944
11 11 10089
14 14 13152
17 17 27363 and so on
There are 13 rows
>From this table I need to make a table like
2_1 2 100
2_2 2 44
7_1 7 100
7_2 7 100
...
...
7_474 7 100
2 matches
Mail list logo