Displaying 1 result from an estimated 1 matches for "dnaoutc".
Did you mean:
dnaoutf
2012 Oct 21
1
Changing a for loop to a function using sapply
...E), ""), collapse = "")
DNA
Rowname <- c(1:20)
Arrow<- rep(">",20)
DNAout<-class(character)
for(j in 1:20)DNAout[j]<- paste(Rowname[j]," ",Arrow[j]," ",DNA[j],
collapse = "" )
DNAout
#######
##The following works partially
DNAoutc <- class("character")
DNAoutc <- function(x,y,z){sapply(x, paste(x," ",y," ",z,"\n", collapse
= ""))}
DNAoutc(Rowname,Arrow,DNA)
Error in get(as.character(FUN), mode = "function", envir = envir) :
object '1 > ACAAACAA...