[R] Paste every two columns together

[Kate Ignatius]

I have genetic data as follows (simple example, actual data is much larger):

comb =

ID1 A A T G C T G C G T C G T A

ID2 G C T G C C T G C T G T T T

And I wish to get an output like this:

ID1 AA TG CT GC GT CG TA

ID2 GC TG CC TG CT GT TT

That is, paste every two columns together.

I have this code, but I get the error:

Error in seq.default(2, nchar(x), 2) : 'to' must be of length 1

conc <- function(x) {
  s <- seq(2, nchar(x), 2)
  paste0(x[s], x[s+1])
}

combn <- as.data.frame(lapply(comb, conc), stringsAsFactors=FALSE)

Thanks in advance!