资源描述：
《主成分分析(R软件).doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、D=read.csv(file=file.choose(),head=T)a=array(O,dim=c(3&6))for(iinl:38){for(jinl:6)a[i,j]=(D[i+l,j]-D[i,j])/D[i,j]}m=cor(a)eigen(m)$vectors[,1][,2][z3][,][,5][1,]-0.3700345-0.66567560.17863335-0.1198569920.60619394[2,]-0.4513781-0.2344916-0.08988342-0.219210692-0.62099573[3,]-0.484035
2、1-0.1192158-0.031655630.001993348-0.31163035[4」-0.37245850.4935904-0.49232131-0.4964191720.35763949⑸］-0.41485420.1657262-0.243153310.8298232540.14093116⑹］-0.33795400.46538220.81086695-0.0503822710.04485679[1]3.71610870.75125940.62380860.42351310.35781920.12749100.078764360.547269060.
3、808318040.030412620.181215440.0845620574.5>P<-princomp(a,cor=TRUE)>summa「y(Rloadings二TRUE)Loadings:Con^)・1Comp・2Con^)・3Comp・4Con^)・5Comp・6dr]-0・370-0・6660・179-0・1200・606[2,]-0・451-0・234-0・219-0・6210・547[3,]-0・484-0・119-0・312-0・808[4,]-0・3720・494-0・492-0・4960・358[5,]-0・4150・166-0・2430
4、・8300.1410・181[6,]-0・3380・4650・811screeplot(P)VariancesComp/Icomp・2comp.3comp.4comp.5comp.6poapjype"二ines=)oC9mcxiooioinoComp.1Comp.2Comp.3Comp.4Comp.5Comp.6biplot(P)vdEOO04020.00.2Comp.13.X=read.csv(file=file.choose(),head=T)>d<-dist(sca!e(X))>cor(X,y=NULL,use="everything”，+method=c
5、(,,pearson,''kendair1,f,spearmann))值值率率值市主值市新跌増手净盘盘増价比市通新洪.屯手净盘盘塔价比市通最泓涨换市内外撮均委总流最涨涨换市内外按均委总流量新涨铁換手至1.000000000.2448767430.0874760220.1026264790・244876741.0000000000.8755431890.6198036060.087476020.8755431891.0000000000.5202784750.102626480.6198036060.5202784751.000000000-0.04704285
6、0.0023160270.0519670740.00C617766-0.107748590.2662770330.2304536540.497327678-0.070548770.3722362300.3675226500.6045780440.024581280.5592423190.6740554060.5949480970.999912790.2350448240.0786832570.0960384550.062911020.116860242-0.0474998620.1611899520.283752580.0588675050.027368570・
7、0.0566823350.142186730.0263044970.004728736■0.094357丄22均价委比总市值流通市值0.999912790.062911020.2837525S0.1421867350.235044820.116860240.058867510.0263044970.07868326■0.047499860.027368S70.0047287360.096038450.16118995-0.05668234-0.094357122-0.04705118-0.15387883-0.06374000-0.053137953・0.110
8、987320.11541
