CODEWITHSUNDEEP
r
Berry Boessenkool
Berry Boessenkool

Reputation: 1538

repeat expression several times in R

In R, I want to find out the effect of character string length on computation time of a certain operation. For this, I need random character strings of different lengths. All I can think of now is:

cases1 <- letters[sample(15)]
cases2 <- paste(letters[sample(15)], letters[sample(15)], sep="")
cases3 <- paste(letters[sample(15)], letters[sample(15)], letters[sample(15)], sep="")

How do I automate that? I don't want to keep copypasting... Or does anyone have a better idea?

Upvotes: 2

Views: 1151

Answers (1)

akrun
akrun

Reputation: 887088

Try

 n <- 3
 do.call(`paste0`,as.data.frame(replicate(n, letters[sample(15)])))

If you want say 1:3

 n1 <- 1:3
 lapply(n1, function(.n) do.call(`paste0`,
    as.data.frame(replicate(.n, letters[sample(15)]))))

Or as @Berry showed in the comments

 apply(replicate(3, letters[sample(15)]), MARGIN=1, paste, collapse="")

Upvotes: 2

Related Questions