Base R один вкладыш:
ifelse(c(1:11)[1:11 %% 2 > 0] == 3, "three", c(1:11)[1:11 %% 2 > 0])
Поддержание управления потоком в контуре (по запросу):
x <- vector("character", sum(0:11 %% 2 >0))
seq_vals <- 1:11
odd_vals <- seq_vals[1:11 %% 2 > 0]
for(i in odd_vals){
if(i != 3){
x <- c(x, as.character(i))
}else{
x <- c(x, "three")
}
}
x[x != ""]