RosettaCodeData/Task/Extend-your-language/R/extend-your-language-4.r
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

13 lines
236 B
R

for(x in 1:2) for(y in letters[1:2])
{
print(if2(x == 1, y == "a", list(
"both conditions are true",
else1 = x + 99,
else2 =
{
yy <- rep.int(y, 10)
paste(letters[1:10], yy)
},
"else" = NULL
)))
}