Loop

if (expr_1) expr_2 else expr_3

for (name in expr_1) expr_2

for (i in 1:length(yc)) {

plot(xc[[i]], yc[[i]])

abline(lsfit(xc[[i]], yc[[i]]))

}

while (condition) expr