



全文預(yù)覽已結(jié)束
下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
#第四章習(xí)題#4.1x-rbinom(1000,100,0.3)hist(x,main=c(1000個(gè)參數(shù)為0.3的伯努利分布隨機(jī)數(shù))#4.2x-rnorm(1000,10,4)hist(x,probability=T,xlim=c(min(x),max(x),nclass=max(x)-min(x)+1, col=lightblue,main=c(1000個(gè)正態(tài)分布隨機(jī)數(shù))lines(density(x,bw=1),col=blue,lwd=3) #4.3x-sample(c(rt(10,1),rt(10,2),rt(10,10),1000,replace=T)hist(x,xlim=c(min(x),max(x),probability=T, nclass=max(x)-min(x)+1,col=lightblue, main=c(3個(gè)t分布混合樣本直方圖)lines(density(x,bw=1),col=blue,lwd=2)#方法二k-matrix(,3,100)k1,=rt(100,1)k2,=rt(100,2)k3,=rt(100,10)x=c(k1,k2,k3,) #3個(gè)t分布混合成一個(gè)樣本hist(x,xlim=c(min(x),max(x),probability=T, nclass=max(x)-min(x)+1,col=lightblue, main=c(3個(gè)t分布混合樣本直方圖)lines(density(x,bw=1),col=blue,lwd=2)#4.4install.packages(DAAG)library(DAAG)data(possum)par(mfrow=c(2,2)hist(possum$age,breaks=1+(0:8)*1)hist(possum$age,breaks=0+(0:9)*1)hist(possum$age,breaks=1+(0:5)*2)hist(possum$age,breaks=0+(0:5)*2)summary(possum$age)age-possum$age!is.na(possum$age)summary(age)sd(age)#4.5install.packages(DAAG)library(DAAG)data(tinting)ts-table(tinting$sex,tinting$tint) #列聯(lián)表barplot(ts) #聯(lián)合柱狀圖windows() #新圖op-par()layout(matrix(c(2,1,0,3),2,2,byrow=T),c(1,6),c(4,1)par(mar=c(1,1,5,1)plot(tinting$age,tinting$it)lines(lowess(tinting$age,tinting$it),lwd=2) #擬合線rug(side=2,jitter(tinting$age,5) #細(xì)小刻度rug(side=1,jitter(tinting$it,5)par(mar=c(1,2,5,1)boxplot(tinting$age,axes=F)par(mar=c(5,1,1,2)boxplot(tinting$it,horizontal=T,axes=F)windows() #因子為tintcoplot(tinting$agetinting$it|tinting$tint)windows() #因子為tint與sexcoplot(tinting$agetinting$it|tinting$tint*tinting$sex)windows() #等高線圖library(MASS)z-kde2d(tinting$it,tinting$csoa)contour(z,col=red,drawlabels=FALSE)windows() #matplot圖d-data.frame(y1=tinting$age,y2=tinting$it,y3=tinting$csoa) matplot(d,type=l,main=matplot)#4.6data(InsectSprays)cs-table(InsectSprays$count,InsectSprays$spray) #列聯(lián)表barplot(cs)windows()mys-c(1,2,3,4,5,6)InsectSprays$spray #分類圖plot(InsectSprays$count,col=mys,pch=mys)legend(x=40,y=26,legend=c(A,B,C,D,E,F),col=c(1,2,3,4,5,6),pch=c(1,2,3,4,5,6)c.s-data.frame(A=InsectSprays$count1:12, #分類歸納 B=InsectSprays$count13:24, C=InsectSprays$count25:36, D=InsectSprays$count37:48, E=InsectSprays$count49:60, F=InsectSprays$count61:72)summary(c.s)#4.7options(didits=4)db-rnorm(100,75,9)print(均值)mean(db)print(方差)sd(db)print(標(biāo)準(zhǔn)差)sqrt(sd(db)print(極差)max(db)-min(db)print(四分位極值)mad(db)print(變異系數(shù))sd(db)/mean(db)install.packages(fBasics)library(fBasics)print(偏度)skewness(db)print(峰度)kurtosis(db)print(五數(shù)概括)fivenum(db)hist(db,xlim=c(min(db),max(db),probability=T, nclass=max(db)-min(db)+1,col=lightblue,main=直方圖)lines(density(db),col=red,lwd=3)windows()qqnorm(db,main=QQ圖)qqline(db,col=red)windows()x-sort(db)n-length(x)y-(1:n)/nm-mean(db)s-sd(db)plot(x,y,type=s,main=經(jīng)驗(yàn)分布圖)curve(pnorm(x,m,s),col=red,lwd=2,add=T)print(莖葉圖)stem(db)windows()boxplot(db,main=框須圖)#4.8install.packages(RODBC) #從Excel讀入數(shù)據(jù)library(RODBC)z-odbcConnectExcel(C:/Users/Tang/Desktop/R/第四章數(shù)據(jù).xls)data-sqlFetch(z,Sheet1)close(z)plot(da
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 高中提前考試數(shù)學(xué)試卷
- 福建省質(zhì)檢卷數(shù)學(xué)試卷
- 高一年泉州統(tǒng)考數(shù)學(xué)試卷
- 福州初中五月數(shù)學(xué)試卷
- 甘肅15高考數(shù)學(xué)試卷
- 教師課件的制作培訓(xùn)
- 2025年浙江醫(yī)療衛(wèi)生招聘金華義烏市中醫(yī)醫(yī)院招聘4人筆試歷年專業(yè)考點(diǎn)(難、易錯(cuò)點(diǎn))附帶答案詳解
- 2025年年唐都醫(yī)院住培醫(yī)師招錄筆試歷年專業(yè)考點(diǎn)(難、易錯(cuò)點(diǎn))附帶答案詳解
- 2025至2030城市建設(shè)規(guī)劃發(fā)展趨勢分析與未來投資戰(zhàn)略咨詢研究報(bào)告
- 二一年高考數(shù)學(xué)試卷
- 定向士官心理測試題及答案
- 2025至2030中國低溫氣體產(chǎn)品行業(yè)項(xiàng)目調(diào)研及市場前景預(yù)測評(píng)估報(bào)告
- e級(jí)籃球教練員理論考試試題及答案
- 高校教師資格證考試《高等教育心理學(xué)》真題及解析(2025年)
- T/CECS 10386-2024排水工程微型頂管用高性能硬聚氯乙烯管及連接件
- 店鋪轉(zhuǎn)讓合同協(xié)議書模板
- (王瑞元版本)運(yùn)動(dòng)生理學(xué)-課件-3-第三章-血液
- 濟(jì)南世創(chuàng)友聯(lián)有機(jī)硅科技有限公司年產(chǎn)1000 噸特種硅彈性體項(xiàng)目環(huán)評(píng)資料環(huán)境影響
- 2025中考(傳統(tǒng)文化)類滿分作文10篇
- 標(biāo)準(zhǔn)檢驗(yàn)指導(dǎo)書(SIP)-鈑金
- 交易員心理培訓(xùn)課件
評(píng)論
0/150
提交評(píng)論