應(yīng)用統(tǒng)計(jì)分析實(shí)驗(yàn)r軟-文庫(kù)吧資料
2025-05-23 08:06本頁(yè)面
【正文】 E,=FALSE) =function(X){ t=seq(pi,pi,) n=nrow(X) f=matrix(0,nrow=length(t),ncol=n) for(i in 1:n){ f[,i]=X[i,1]/sqrt(2) for(j in 2:ncol(X)){ if (j%%2==0) f[,i]=f[,i]+X[i,j]*sin(j/2*t) else f[,i]=f[,i]+X[i,j]*cos(j%/%2*t) } } matplot(t,f,col=1:n,type=o,main=調(diào)和曲線圖 ) } 例 1：繪制調(diào)和曲線圖 12345( ) si n co s2si n 2 co s 2 .. .,ii i iiixf t x t x tx t x t t??? ? ?? ? ? ? ? ?hist(x,freq) 直方圖， freq=counts, (默認(rèn) )為頻數(shù)直方圖 , freq=TRUE ,為頻率直方圖， freq=FALSE, 為密度直方圖 boxplot(x) 箱線圖 stem(x) 莖葉圖 barplot() 柱狀圖 pie() 餅狀圖 ?統(tǒng)計(jì)圖形 a=rnorm(100,70,20)。 n=length(x) for(j in 1:n) sum=sum+x[j] sum=sum/n } meanofx=mymean(1:100)。 k=k+1。 j=j+1。 for( i in 1:100) s1=s1+i。 s2=0。 j=1。 跳空循環(huán)語(yǔ)句： next。 { expr_s} repeat {exprs。} switch(x, 1:5, 100, 20) 1 2 3 4 5 這三個(gè)構(gòu)成列表 list,返回 list[x] ?控制語(yǔ)句 2. 循環(huán)結(jié)構(gòu) for (name in express) expr。b=10} else {a=20。 } 雙分支： if(條件 ) 語(yǔ)句 1 else 語(yǔ)句 2 多分支： if() 語(yǔ)句 1 else if () 語(yǔ)句 2 … else if() 語(yǔ)句 n else 語(yǔ)句 n+1 switch: switch(表達(dá)式 , list) 返回 list中下標(biāo)與表達(dá)式對(duì)應(yīng)的值 例子： x=1。 A=diag(c(1,4,5)) 以向量為對(duì)角元生成對(duì)角矩陣 a=diag(A) 獲取矩陣的對(duì)角元 b=(c) d=rbind(a,a) 行合并，要求列數(shù)相等 e=cbind(a,a) 列合并，要求行數(shù)相等 4. 維數(shù)問(wèn)題 dim() 獲得維數(shù) ,返回向量 nrow() ,ncol() 獲得行數(shù)和列數(shù) rownames(), colnames() 訪問(wèn)各維名稱 x=matrix(rnorm(24),4,6) x[c(2,1),] 第 2和第 1行 x[,c(1,3)] 第 1和第 3列 x[2,1] 第 [2,1]元素 x[x[,1]0,1] 第 1列大于 0的元素 x[,c(1,3)] 沒(méi)有第 3列的 x. x[2,c(1,3)] 沒(méi)有第 2行、第 3列的 x. 5. 基本矩陣運(yùn)算 矩陣間四則運(yùn)算： +,,*,/ 分別是對(duì)應(yīng)元素的四則運(yùn)算 向量矩陣間：向量按列匹配與矩陣運(yùn)算 例如： A=matrix(1:6, nrow=3) B=matrix(10:15,nrow=3) C=c(100,200) 則： A+B A*B A+C 11 17 10 52 101 204 13 19 22 70 102 205 15 21 36 90 103 206 6. 矩陣運(yùn)算 轉(zhuǎn)置 t(mat) 行列式 det(mat) 逆矩陣 solve(mat) 特征 eigen(mat) 返回列表 (values, vectors) 乘法 A %*% B 向量?jī)?nèi)積 /外積 x %*% y, x %o% y (笛卡爾積 ) 生成對(duì)角 diag(Vec) 取對(duì)角 diag(mat)
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1