4-R語言_語句組_循環(huán)_條件控制(精)

1、4：語句組，循環(huán)，條件控制條件控制語句if (conditionl)statementlelse if (condition2)statement2elsestatementscondition語句返回一邏輯值，為TRUE時執(zhí)行，為FALSE時跳過邏輯運(yùn)算符:&#邏輯與II#邏輯或優(yōu)先對向量的第一個元素進(jìn)行運(yùn)算 &#邏輯與I#邏輯或!#邏輯非按照逐個元素的方式進(jìn)行計(jì)算#恒等#大于=#大于等于#小于 X outer(Y,X) #Y%o%X ,1,1 , X2J1L21J 142, 2 53J 3 6JL21J 142, 2 53, 3 6,2,1，1，21, 2 82,410Jl

2、b21J3122J 6153,918,2,21, 416可以改變計(jì)算函數(shù)FUN:+r,/,Aouter(Y,X,FUN=V),1,1outer(X,Y,FUN=u*n)：提取兩個矩陣的屬性if (la.array (X)dX - din(X)nx - dimnames(X)no.nx - Is.null(nx)else dX - length(X)no. nx - is . null (nair.es (X) if (!no.nx)nx - list (narr.es (X)if (is.array(Y) dY - din(Y)ny - dimnamea(Y) no.ny - is.null(

3、ny)else dY - length(Y)no.ny - is.null (naires (Y) if (!no.ny)ny - list (nairtes (Y)oute（X,Y,FUN二）：兩個矩陣的外積計(jì)算過程二f (xs . character (EUN) & FUN =r,*r,)robj XM1L21,1 132,)24 YM21, 142, 2512 3 r L rL，22f36471J 4 72,583J 6 9,2, 1 ,2,21,2,3,5869710(robj) - c (dXrdY) else FTJN - ir.arch fun (FUN)Y ) xf (

4、length(X)X /length(X) robj FUN(XrY. ) diH (robj) -c(dXrdY) if (no.nx)nx - vectcr (r,liscrtrlength (dX)else if (no.ny)ny - vecccr (r,lxscr,flengch (dY)if (? (no.rix & no.ny)dimnames(rcb) for (name in statement) expr#其中name為循環(huán)；statement感為一向量；expr一般対纟II合表達(dá)我for (n in c(2,5,10,20,50)+ +x-rnorm(n)+cat

5、(n；,:,Jsum(xA2),Ann)+ 2 : 0.41241395 : 5.20287510 : 13.9651320 : 20.0769650 : 58.16209例子：定義一個長度為100、mean=1, sd=1的正態(tài)分布隨機(jī)向量，并找出該向量的最小值 及其出現(xiàn)的位置norm-rnorm(100,1,1)#隨機(jī)向量min.norm-100#設(shè)定初始最小值for (i in 1:100)if (normi=min.norm)#第匚個值與現(xiàn)有最小值做比較， 如果比最大值大則更新最大值,min.norm=normi并記錄位置，否則不做處理min.count=i例子練習(xí) 4.2找出以上向量

6、的最大值及其出現(xiàn)的位置。找處100次產(chǎn)生的隨機(jī)向量的最小值于出現(xiàn)佟 置的關(guān)系 。 ( 用plot(min.count,min.norm)表 示 ,其 中min.count為位置向量，min.norm為最力、 值向量)n orm-rnorm(100,1,1) max.norm=maxnorm) max.norm=n ormi max.co unt=ifor (j in 1:100) min.countj-0 norm-rnorm(100,1,1) min.normj-100for (i in 1:100)if (normi count repeat+ + if(Memlnfo$Memcount=

7、H256H)+Memlnfo$Pncecountlength(Memlnfo$Price)while循環(huán)while (condition)expr+ break+ MeminfoVenderProduceNameTypeMem Frequency Price1 Ven der1256MB DDR 400DDR256400346.52 Vender2256MB DDR 333DDR256333330.03 Vender3512MB DDR 400DDR512400650.04 Vender4256MB DDR 400DDR256400308.05 Vender5256MB DDR 333DDR2

8、56333291.56 Vender6 256MB SDRAM 266 SDRAM256266291.57 Vender7256MB DDR 400DDR256400319.08 Vender8256MB DDR 400DDR256400379.59 Vender9512MB DDR 400DDR512400575.0四、分支控制語句 switch(statementjist)#switch語句根據(jù)判定條件的不同而執(zhí)行不 同的分支語句。首先執(zhí)行statement,其返回 值范圍為1到list的長度。Switch語句執(zhí)行l(wèi)ist中包含的語句，并將結(jié)果返回。例子:將頻率為266,333,400的內(nèi)

9、存的價格分別增加10%,15%,12%for (count in 1 :length(Memlnfo$Price)if (Memlnfo$Frequencycount=n266M)case-1else if(Memlnfo$Frequencycount=”333”)case-2elsecase-3switch(case, Memlnfo$Pncecount-Memlnfo$Pricecount*1.1， Memlnfo$Pncecount-Memlnfo$Pricecount*1.15， Memlnfo$Pncecount-Memlnfo$Pricecount*1.12)switch語句中的s

10、tatement部分可以直接返回字 符型矢量，并根據(jù)返回結(jié)果做相應(yīng)處理。count-1repeat switch(as.character(Memlnfo$Frequencycount),H266,=Memlnfo$Pricecount-Memlnfo$Pricecount*1.1,”333”=Memlnfo$PriceicountjvMemlnfo$Priceicountj*1.15,400H=Memlnfo$Pricecountlength(Memlnfo$Price)break利用三種循環(huán)方式實(shí)現(xiàn)以下操作組用戶在網(wǎng)上的頁面瀏覽量(PV)如表 用戶 ID 頁面瀏覽量 PV1123 1115 718 112311如果要對用戶進(jìn)行分類，如規(guī)定每曰頁面瀏覽量 PV為 1-5 的是初級用戶，6-15的為中級用戶#PV 在 16頁以上的為高級用戶#該如何操作？練習(xí) 4.3從小寫字母表的前5個中隨機(jī)抽取一個字母，并按 抽取字母的不同做以下操作：a:用apply函數(shù)按列來求出datasets包中數(shù)據(jù)命名為ability.cov的數(shù)據(jù)列表的第一個元素(cov)的均値b:讀取datas