# as a complete function StrSubset<-function(junk,n){ ifelse(n==1,junk, paste(strsplit(junk,split=NULL)[[1]][(1:nchar(junk))%%n==1],collapse='')) } -- View this message in context: http://r.789695.n4.nabble.com/extracting-every-nth-character-from-a-string-tp4711908p4711963.html Sent from the R help mailing list archive at Nabble.com.