R/paste.character.R

Defines functions `paste.character`

`paste.character` <-
function(paux){


         pi=paste(paux[1],paux[2],sep=",")
         if(length(paux) > 2 ){
         for(kk in 3:length(paux)){
         pi=paste(pi,paux[kk],sep=",")
	  } #kk
       } # if 
	return(pi)  
} # end function 

Try the AgiMicroRna package in your browser

Any scripts or data that you put into this service are public.

AgiMicroRna documentation built on Nov. 8, 2020, 5:25 p.m.