Hi Dennis
I was able to my problem. Thank you encouragement and time. n<-7 newvars <- c(paste('m', rep(1:n, each = 4), rep(c('a', 'b')), rep(c('p1', 'p2'), each = 2), sep = '')) newvars [1] "m1ap1" "m1bp1" "m1ap2" "m1bp2" "m2ap1" "m2bp1" "m2ap2" "m2bp2" "m3ap1" [10] "m3bp1" "m3ap2" "m3bp2" "m4ap1" "m4bp1" "m4ap2" "m4bp2" "m5ap1" "m5bp1" [19] "m5ap2" "m5bp2" "m6ap1" "m6bp1" "m6ap2" "m6bp2" "m7ap1" "m7bp1" "m7ap2" [28] "m7bp2" Umesh R [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.