《程序设计》PPT课件.ppt

程序控制结构 R是一个表达式语言(expression language)，其任何一个语句都可以看成是一个表达式。表达式之间以分号分隔或用换行分隔。表达式可以续行，只要前一行不是完整表达式（比如末尾是加减乘除等运算符，或有未配对的括号）则下一行为上一行的继续。 若干个表达式可以放在一起组成一个复合表达式，作为一个表达式使用。组合用大括号表示，如： { + x - 15; + x; } [1] 15 R语言也提供了其它高级程序语言共有的分支、循环等程序控制结构。 分支结构 (if/else、switch语言)if/else语句 分支结构包括if结构： if (条件) 表达式1 或 if (条件) 表达式1 else 表达式2 其中的“条件”为一个标量的真或假值，表达式可以是用大括号包围的复合表达式。有else 子句时一般写成： if(条件) { 表达式组…… } else { 表达式组……… } 这样的写法可以使else不至于脱离前面的if。 例如，如果变量lambda为缺失值就给它赋一个缺省值，可用： if(is.na(lambda)) lambda - 0.5; 又比如要计算向量x的重对数，这只有在元素都为正且对数都为正时才能做到，因此需要先检查： if (all(x0) all(log(x))0) { y - log(log(x)); print(cbind(x,y)); } else { cat(Unable to comply\n); } 注意“”表示“与”，它是一个短路运算符，即第一个条件为假时就不计算第二个条件。如果不这样此例中计算对数就可以有无效值。 在条件中也可以用“||”（两个连续的竖线符号）表示“或”，它也是短路运算符，当第一个条件为真时就不再计算第二个条件。 在用R编程序时一定要时刻牢记R是一个向量语言，几乎所有操作都是对向量进行的。而R中的if语句却是一个少见的例外，它的判断条件是标量的真值或假值。比如，我们要定义一个分段函数f(x)，当x为正时返回1，否则返回0，马上可以想到用if语句实现如下： if(x0) 1 else 0 当x是标量时这个定义是有效的，但是当自变量x是一个向量时，比较的结果也是一个向量，这时条件无法使用。所以，这个分段函数应该这样编程： y= numeric(length(x)) y[x0] - 1 y[x=0] - 0 # 这句可以省略 对于条件语句是向量形式，R提供了ifelse()函数，它的使用格式为 ifelse(condition, a, b) 它表示，当condition[i]成立的时候，对应的取值为a[i],否则取值为b[i]。最终返回一个和参数向量同长的向量 x-c(55, 60, 85, 90); a-pass； b-fail ifelse(x=60, a, b) [1] fail pass pass pass a-c(a1, a2, a3, a4) b-c(b1, b2,b3,b4) ifelse(x=60, a, b) [1] b1 a2 a3 a4 有多个if语句时else与最近的一个配对。可以使用if ... else if ... else if ... else ...的多重判断结构表示多分支。多分支也可以使用switch()函数。 x=0; if (x0) { value -x } else if (x0) { value - -x } else if (x==0) { value=ZERO} value [1] ZERO switch语句 switch是多分支语句，其用法为： switch (statement, list); statement是一个表达式，list是列表，也可以用有名定义。根据表达式与list的关系返回一个值。如果表达式返回值属于1:length(list)中的一个，则返回list中相应位置的值，否则返回NULL。 a - switch (1, 2+2, mean(1:10), rnorm(4)); a [1] 4 a - switch