BMI - MIKU勉強会の続き①の場合(簡単のため、点と直線のｙ座標の差を足して最もゼロに近いものを考える) x<- c(165,170,172,175,170,172,183,187,180,185) y<- c(50,60,65,65,70,75,80,85,90,95) # y=ax+b a<- c(1:10) b<- c(1:10) # この中で最も回帰直線に…

関数名<- function(引数１、引数２、引数３、引数４、…、引数ｎ){ 式1.1 式1.2 式1.3 … 式1.m } #例 myfexl<- function(x,y){ z<- max(x)+min(y) return(z) } z<- myfexl(x,y) z

if(条件式){ 式1.1 式1.2 … 式1.m } else { 式2.1 式2.2 … 式2.n } x<- 2 if (x > 0) { # if ( 条件式 ) sum(1:x) # 条件式が TRUE のときに実行される部分 } else { x <- -x # 条件式が FALSE のときに実行される部分 sum(1:x) # }