R 定义函数 ，里面嵌套条件

?

1 2 3 4

myfunction<-function(arg1,arg2,...){ statements return (object) }

 

例1

?

1 2	function1<-function(x,y){plot(x,y) +     return(x+y)}<br>x<-rnorm(10)<br>x<br><br>y<-rnorm(10,2,3) <br><br>function1(x,y)<br>

　　

 

 例2 嵌套条件

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

> function2<-function(x,npar=TRUE,print=TRUE){ +     if(!npar){ +         center<-mean(x);spread<-sd(x) +     }else{ +         center<-median(x);spread<-mad(x) +         +     }   +     if (print & !npar){ +         cat("Mean",center,"\n","SD=",spread,"\n") +     }else if(print & npar){ +         cat("Median=",center,"\n","MAD=",spread,"\n") +     } +     result<-list(center=center,spread=spread) +     return(result) +     } x<-rnorm(10,0,1)  function2(x)

　　

　　

 

条件