函数卡片

Rëëëkkk¡¡¡ �©� (=©)d Tom Short tshort@eprisolutions. com>�§\Œ±3 www.Rpad.orgþ��#©�. ¥©‡�©� (®¼� Tom Short �€ÈNŒ) (� þÓ�‡aq§ÛÜV\ eZ~^·-"�Y? ¾±9‘od4g)KI§Xkïƽ¦¯žéX e‡ sunbjt@gmail.com½ÆÌ http://bjt.name ¥©‡�µ2008c 8� 3F?¾ ÏÏÏÚÚÚÄÄÄ::: ŒÜ© R¼êÑk3‚©�" help(topic)'u topic�©�. ?topicÓþ help.search("topic")|¢ÏXÚ apropos("topic") ˆ£3|¢´»e¹ (Ü©) '…c”topic” � ¤k閶¡ help.start() HTML/ª�Ï demo() R õUü« example(f)$13‚Ï¥�~f str(a)w« Ré–�S3á5 (*str*ucture)½{‡`²é– summary(a)‰Ñ a�V‡,Ï~´˜‡˜„5ÚOV‡;…§éØÓ á5� akØÓ�öŠª. ls()w« “|¢´»”e�é–;ŒU½^‡|¢" ls.str() str()|¢´»e�z‡Cþ†Ùá5 dir()w«�c8¹e�©‡ list.files()Óþ getwd()¼�󊴻&E setwd()�˜óŠ´» methods(a)w« a� “S3 methods” methods(class=class(a))�L¤kŒ±)ûáué–a�{ options(...) �˜½u��Ûëê; ~^ëêk: width, digits, error install.packages(pkg)SC pkg update.packages()gÄé'‡�§¿Î¯# library(pkg)\1 pkg require(x)Óþ library(help=pkg)Ы pkg�&E attach(x)ò x• R�|¢´»; xŒ±¦˜‡�L,êâµ,½ö ´d saveMï� R data file. ¦^ search()5w«|¢´». detach(x) attach�_L§. assign(x,value)ò valueDŠ‰ x,=”<−” quit()òÑ�c R¬{ (q()½ Ctrl z) ÑÑÑ\\\†††ÑÑÑÑÑÑ load()\1d save·-���]�8 data(x)\1½�êâ edit()N^©�?6ì?U Ré– fix(x) ‘fix’N^ ‘edit’?U ‘x’ data.entry(x)>fêâL/ª�¹\?6ì scan(x)l››�½©‡¥Ö�ê⏕þ½�L read.table(file) Ö�L‚ª�©‡¿òÙMï¤êâµ; %@ ©Î sep="" ?¿˜x; ¦^ header=TRUE Ö�1˜1 Š�IK; ¦^ as.is=TRUE “ŽiΕþC factors; ¦ ^ comment.char="" “Ž "#" �)º5º; ¦^ skip=n 3 ÖêâcaL n1;[„Ï'u1·¶,NA?n,ÚÙ¦ read.csv("filename",header=TRUE) Óþ, �%@�˜Ö � csv©‡ (Comma Separated values) read.delim("filename",header=TRUE) Óþ, %@�˜Ö � tab©©‡ read.fwf(file,widths,header=F,sep="\t",as.is=FALSE) ± f ixed width formatted/ªÖ�êâ–êâµ; widths´�ê •þ,^u�˜N�°Ýiã save(file,...) ±Ø©²���?›�½�é– save.image(file)�¤k�é– dump("x","...")òé– x�3 “...” p cat(..., file="", sep=" ") r›=ziÎ�‹<é–�D Š; sepé–DŠm�©ÎÒ print(a, ...) w« a�DŠ§˜„�§§éuØÓ�閌± kØÓ�Lˆª" format(x,...) ‚ªz,Ð�w« R é– write.table(x,file="",row.names= T ,col.names= T , sep="") 3r x =zêâµ�, ��©‡; XJ quote  TRUE, iÎÚÏf�Ò¬� (") ¤Œ; sep ´i㩅Î; eol —1©Î; na "”ŠiÎG; ¦^ col.names=NA O \�IK±BuÚL‚Ñ\˜— sink(file)ÑÑ�©‡ file,†�Ñ\·- sink() ŒÜ© I/O ¼êÑk file ëþ. §²~^˜‡iÎG5·¶©‡½ ë�. file=""¿›XIOÑ\½ÑÑ.ë� (Connections)Œ±¹© ‡ (file),+� (pipes),Ø ©‡ (zipped files)½ RCþ 3 windows öŠ‚¸e§êâ�Œ±ÏL�i†£clipboard¤� ª. Ö� ExcelLµŒ±ò Excel¥êâ€�–�i†£S¤,¦^ x <- read.delim("clipboard") ªÖ�êâ"XJ‡òêâø Ex- cel¦^, write.table(x,"clipboard",sep="\t",col.names=NA)Œ± òêâ�\�i†£clipboard¤,Êb� Excel=Œ" ê⥐¡��pA^, ž„ RODBC, DBI,RMySQL, RPgSQL, and ROracle . Ö�Ù¦©‡‚ªë XML, hdf5, netCDF�. êêêâââMMMïïï c(...) ~„�ò˜X�ëþ=z•þ�¼ê;ÏL recursive=TRUE üSü��L¿|ܤk��ƒ•þ. from:to�)˜‡S�; “:”k�p?O�`k?; 1:4 + 1�� “2,3,4,5” seq(from,to)�)˜‡S� by=½må; length=½‡¦Ý seq(along=x)�) 1, 2, ..., length(along);~^3̂þ rep(x,times) ­E x times g; ¦^ each= 5½�ƒ x ­E�g ê;rep(c(1,2,3),2)ò�� 1 2 3 1 2 3; rep(c(1,2,3),each=2) ò�� 1 1 2 2 3 3 data.frame(...) Mïêâµ, �,CþŒU�·¶½Ø�·¶; data.frame(v=1:4,ch=c("a","B","c","d"),n=10); ƒé�á �•þ¬�̂W¿�•þÝ list(...) MdCþ|¤��L,CþŒU�·¶½™�·¶; list(a=c(1,2),b="hi",c=3i); array(x,dim=)�)d x|¤�ê|; ¦^aq dim=c(3,4,2)½ ‘ê;XJ xØ Ý,K xgÄ̂ matrix(x,nrow=,ncol=)Ý ;Óþ factor(x,levels=)r•þ x?褏Ïf gl(n,k,length=n*k,labels=1:n) ÏL½Y²ª�)Y ² (Ïf); kY²�‡ê; n­E�gê expand.grid()Jø�•þ½Ïf¤k|Ü�¤�êâµ rbind(...) r±1�/ª|ÜÝ ,êâµ,½Ù¦ cbind(...) Óþ. ±��/ª êêêâââ©©©ÚÚÚÀÀÀ��� •þ¢Ú x[n] 1 n‡�ƒ x[-n] Ø 1 n‡�ƒ� x x[1:n] c n‡�ƒ x[-(1:n)] 1 n+1–���ƒ x[c(1,4,2)] ½�ƒ x["name"] ¶ "name"��ƒ x[x > 3] ¤kŒu 3��ƒ x[x > 3 & x < 5] «m (3,5)��ƒ x[x %in% c("a","and","the")] ‰½|¥��ƒ �L¢Ú x[n] �Lw«�ƒ n x[[n]] �L�1 n‡�ƒ x[["name"]]¶ "name"��ƒ x$name Óþ. Ý ¢Ú x[i,j] eI (i,j)��ƒ x[i,] 1 i1 x[,j] 1 j� x[,c(1,3)]1 1Ú 3� x["name",]¶ "name"�1 êâµ¢Ú (Ý ¢Ú\eã) x[["name"]]�¶ "name"�� x$name Óþ. CCCþþþCCC††† as.array(x), as.data.frame(x), as.numeric(x), as.logical(x), as.complex(x), as.character(x),�, =†Cþa.;¦^Xe·-���Ü�L: methods(as) CCCþþþ&&&EEE is.na(x), is.null(x), is.array(x), is.data.frame(x), is.numeric(x), is.complex(x), is.character(x), ... u�Cþa.;¦^Xe·-���Ü�L, methods(is) length(x) x¥�ƒ�‡ê dim(x)­#�˜½�˜é–�‘ê; dim(x) <- c(3,2) dimnames(x)­#�˜½�˜é–�¶¡ nrow(x)Ú NROW(x)ˆ£1�‡ê dim(x)[1] ncol(x)Ú NCOL(x)ˆ£��‡ê dim(x)[2] class(x)��½�˜ x�a;class(x) <- "myclass" unclass(x)íØ x�a names(x)�w½�˜é–¶¡ (names) unname(x)íØ Ré–�¶¡ (names)½‘¶¡ (dimnames) unlist(x)ò�L x=z•þ attr(x,which)��½�˜ x�á5a. which attributes(obj)��½�˜ obj�á5�L êêêâââÀÀÀJJJÚÚÚöööŠŠŠ which.max(x)ˆ£ x¥Œ�ƒ�¢Ú which.min(x)ˆ£ x¥��ƒ�¢Ú rev(x)6� x¥¤k��ƒ rle(x)ˆ£i§£Runs¤&E sort(x),Sü� x¥��ƒ;üSü�¦^:rev(sort(x)) cut(x,breaks)ò x©¤Aã (½Ïf); breaks©�ãê½ ©:•þ. match(x, y)ˆ£˜‡Ú xƒÓÝ…Ú y¥�ƒƒ��•þ,£Ø ���ƒˆ£ NA¤ which(x == a)XJ'�öŠý£TRUE¤,ˆ£•þ x�¢Ú choose(n, k)|Üê =n!/[(n− k)!k!] sign(x)�äCþ´ÄŒu 0, Œuˆ£/10, �uˆ£/-10, �u ˆ£/00 na.omit(x)�Ø"”Š£NA¤,XJ xÝ ½êâµ,�؃'1 na.fail(x)ˆ£†Ø&EXJ x¹–�˜‡ NA unique(x)XJ x•þ½êâµ,ˆ£Ž˜Š duplicated(x)ˆ£•þ½êâµ x­E�ƒ�Ü6Š table(x)ˆ£˜‡d xØӊ‡ê|¤�L‚ (~^u�ê½Ïf), =ªêL subset(x, ...) Šâ^‡£... À� x¥��ƒ,X: x$V1 < 10¤; XJ xêâµ,À‘ selectÏL¦^KÒ�ª�3½�Ø Cþ sample(x, size) ؘ£�‘Å3•þ x ¥Ä� size ‡�ƒ, À ‘ replace = TRUE#N˜£Ä� prop.table(x,margin=) Š â margin ¦ ^ © ê L « L ‚, à marginž,¤k�ƒÚ 1 êêêÆÆÆ +,-,×,÷,ˆ,%%,%/% < > <= >= ==..!=.. sin,cos,tan,asin,acos,atan,atan2,log,log10,exp max(x)ˆ£ xŒ��ƒ min(x)Óþ. � range(x)ˆ£ c(min(x), max(x)) sum(x) x¥ˆ�ƒ�\Ú diff(x)•þ x��© prod(x) x¥�ƒë¦ mean(x) x�þŠ abs(x) x�ýéŠ sqrt(x) x0.5 median(x) x�¥ ê quantile(x,probs=)��© ê,%@ 0,0.25,0.75,1 IQR(x)ˆ£êâ¥m 50%�«m weighted.mean(x, w)\�²þ rank(x) x¥�ƒ� var(x) or cov(x)•þ x����;XJ x´Ý ½êâµ,�� Ý ò�OŽ sd(x) x�IO�; sd(x)=sqrt(var(x)) cor(x)XJ x´Ý ½êâµ,ˆ£ƒ' (1XJ x•þ) var(x, y) or cov(x, y) xÚ ym���;XJ x, yÝ ½êâ µ,ˆ£ xÚ yˆ���� cor(x, y) xÚ y‚5ƒ'Xê;½öƒ' ,XJ xÚ yÝ ½ê âµ round(x, n) x��ê,°(� n  log(x, base)OŽ x± base.�éê,e= exp(1) scale(x) XJ x ´˜‡Ý , K¥%zÚIOzêâ; eIOz K¦^À‘ center=FALSE, e¥%z¦^ scale=FALSE (% @ center=TRUE, scale=TRUE) integrate(f,lower,upper)¼ê f3«m (lower,upper)�¡È (È ©) pmin(x,y,...) x[i], y[i]ƒ'��ö,|¤#�•þ pmax(x,y,...) Óþ. �Œö cumsum(x)d x|¤�•þ, x[i]=sum{ x[1]: x[i]} cumprod(x)Óþ. ë¦ cummin(x)Óþ. � cummax(x)Óþ. Œ union(x,y) x∪ y− x∩ y intersect(x,y) x∩ y setdiff(x,y) x− x∩ y setequal(x,y)ˆ£'� x, y´ÄƒÓ�Ü6Š ( x, yØ�9^S). is.element(el,set)Ó x %in% y Re(x)Eê�¢Ü Im(x)JÜ Mod(x)ýéŠ (�);Ó abs(x) Arg(x)Eê�Ý (in radians) Conj(x)¦ x ��ÝEê convolve(x,y)OŽü‡S��òÈ fft(x)ü� (array)�¯„Fá“C† mvfft(x)Ý ˆ��¯„Fá“C† filter(x,filter) é�CþžmS�½õCþžmS��üÕS �?1‚5LÈ ŒõêƼê¦^Ü6ëê na.rm=FALSE5½´Ä£Ø"”Š (NA). ÝÝÝ t(x)=˜ diag(x)é� %*%Ý $Ž solve(a,b)$Ž a %*% x = b�� x solve(a)Ý �_ eigen(x)OŽÝ �A�ŠÚA�•þ rowsum(x)Ý ‚ªé–1\Ú; rowSums(x)´˜‡¯�‡� colsum(x), colSums(x)Óþ. � rowMeans(x)1²þ colMeans(x)�²þ dist(x)OŽÝ x1m�ål ppp???êêêâââ???nnn apply(X,INDEX,FUN=)Šâê|�eI (INDEX)A^¼ê FUNˆ£ •þ,ê|½�L�Š lapply(X,FUN)A^ FUN��L X�z‡�ƒ tapply(X,INDEX,FUN=) Šâ x �¢Ú (INDEX) éØ�� (ragged) �ê�A^ FUN sapplyÓ lapply,'ƒlÐ by(data,INDEX,FUN)A^¼ê FUN?nêâµ data¥d INDEX½ Â�f8 merge(a,b)Šâ�k��½1¶rü‡êâµÜ¿ xtabs(a b,data=x)l��©aÏf���éL aggregate(x,by,FUN)òêâµ x©A‡f8, …OŽˆ‡f 8�V‡ÚO,¿…±Ü·�ªˆ£(J; by´©|�ƒ�L stack(x, ...) ò©m�/ª�êâµ½�L¥�êâCþ=z ü� unstack(x, ...) stack()�_L§ reshape(x, ...) é ‘wide’ Ú ‘long’ ‚ªéêâµ?1UE. ‘wide’ ‚ª´ŠâÄOCþî•*Ðê⵶‘long’ ‚ª ´ŠâÄOCþp•*Ðêâµ. ¦^ (direction=“wide”) ½ (direction=“long”)ëꍽ‚ª. expression(expr) Mï½u�閴ď ‘Lˆ’(expression) /ª. ë is.expression(x), as.expression(x, ...) parse(file = "", n = NULL)±�L/ªˆ£)ÛL,�vk² LOŽ�Lˆ (expression) eval(expr)3½�‚¸eOŽ RLˆ (expression) iiiÎÎÎ paste(...) =ziÎ�ë�•þ; sep=©. (˜‡˜‚% @);ÀJ collapse=Œ±© “collapsed”(J substr(x,start,stop)J�iΕþ�fiã; Ó�Œ±DŠ,¦ ^ substr(x, start, stop) <- value strsplit(x,split)3 split� ˜© x grep(pattern,x) pattern^‡�š�ÚO†;ë„ ?regex gsub(pattern,replacement,x) O†÷v�KLˆª�i ã, sub()aq,�O†1˜‡Ñy�iã tolower(x)òi1=z�� toupper(x)òi1=zŒ� casefold(x, upper = TRUE)Cz xŒ� (TRUE)½�� (FALSE) chartr(old, new, x)ò x¥�iÎ oldC†iÎ new match(x,table) table¥š� x�ƒ ˜|¤�•þ. x %in% tableÓþ. ˆ£Ü6•þ pmatch(x,table) table¥Ü©š� x�ƒ nchar(x)iÎ�‡ê FFFÏÏÏÚÚڞžžmmm Date¹FÏ؝¹žm. POSIXct)FϞmڞ«&E.ƒ' ó (X.>), seq()Ú difftime()'�k^. DateŒ±¦^ +Ú −. ?DateTimeClassesŒ±‰Ñõ�&E.„ chron. as.Date(s)Ú as.POSIXct(s)=zˆg�á5; format(dt)=z iÎLˆ.%@�i΂ª “2006-07-24”. ¦‚�ɘ‡g ‡Lˆ5½=z�‚ª. ˜ ~„�‚ª: %a, %A°{Úð{ “(ÏU”(weekday)¶ %b, %B°{Úð{�¶ %d�°¥�FÏ (01–31). %H�ž (00–23). %I�ž (01–12). %jc°¥�FÏ (001–366). %m�° (01–12). %M©¨ (00–59). %p AM/PM«. %S›?›�¦ (00–61). %U(Ï (00–53);1˜‡(ÏUŠ1˜‡(Ï�1˜U. %w(ÏUê (0–6,±F 0). %W± (00–53);1˜‡±˜Š1˜‡(Ï�1˜U. %yíV�c (00–99). ؇¦^. %Yk­V�c. %z (ÑÑ.)‚�%£Ö€; -0800‚�%£Ü 8�ž. %Z (ÑÑ.)ž«ŠiÎG (Ã�˜). weekdays(x)ˆ£FÏ x� “(ÏA” months(x)ˆ£FÏ x��° quarters(x)ˆ£FÏ x�G! (Q1 - Q4) 3Ñў¬-�, w«êic3"�¯K,�Ñ\žŒ±ÀJ5�" ½Ã". ë„ ?strftime. ããã///CCC˜˜˜ (Graphics Devices) x11(), windows()‹m˜‡±ãI dev.list()ã/I�L dev.set()½ã/I plot.new()±›#ã/(å�cã/I savePlot(file,type) ò�cI¥�±ã��©‡ file , � ©‡a. type Œ±ÀJ “wmf”, “mf”, “png”, “jpeg”, “jpg”, “bmp”, “ps”, “eps”, “pdf” postscript(file)  M ï PostScript ã / m é ã / C ˜ °Ä; ¦^ horizontal = FALSE, onefile =FALSE, paper = "special" ½ EPS ‚ª©‡; family= ½iN (Avant- Garde, Bookman, Courier, Helvetica, Helvetica-Narrow, NewCen- turySchoolbook, Palatino, Times, or ComputerModern); width= Ú height= ½± inches ü �«Œ�; paper= ½’ Üa.. ps.options()9ϼê,�˜½�w (XJvkëê) postscriptë ê�"ŽŠ pdf, png, jpeg, bitmap, xfig, pictex;ëw ?Devices dev.off() '4½ (%@�c) ã/C˜; Œ±ë dev.cur, dev.set layout()Šâ^r‰½� matrix (±›^S)Úëê width=,height=ò ã/C˜© ±±±ããã plot(x)3 x¶þ^g/±› xŠ (y¶þ) plot(x, y)VCþ±ã (Ñ:ã) hist(x) x�ªê†ã barplot(x) x�^/ã;¦^ horiz=FALSEUC±ãY²½R† dotchart(x) XJ x êâµ, ±› Cleveland dot ã (stacked plots line-by-line and column-by-column) pie(x)\ã boxplot(x)‡‚ã curve(expr, from, to ,add = FALSE)Šâ‰½¼ê½Lˆ3 «m ‘[from,to]’þ±›­‚ sunflowerplot(x, y)´±ƒq‹I�:Šsù§Ùs‹ê8 :�‡ê coplot(x˜y | z)Šâ zŠ½Šm…±› xÚ y�VCþã interaction.plot (f1, f2, y) XJ f1 Ú f2 ´Ïf, Š y � þŠã, ± f1 �ØӊŠ x ¶§ f2 �ØӊéAØÓ ­‚: Œ±^À‘ fun ½ y �Ù¦�ÚOþ ("ŽOŽþ Š, fun=mean) matplot(x,y)��ã,Ù¥ x�1˜�éA y�1˜�, x�1�� éA y�1��,gaí" fourfoldplot(x) ^o‡o©ƒ˜�w« 2×2 �éLœ¹ (x 7 L´ dim=c(2, 2,k) �ê|, ½ö´ dim=c(2, 2) �Ý §X J k = 1) assocplot(x) Cohen–Friendlyã, w«3�‘�éL¥1, �Cþ  lÕá5�§Ý mosaicplot(x)�éL�éê‚5£8í��êmŽã pairs(x)XJ x´Ý ½´êⵧŠ x�ˆ�ƒm���ã plot.ts(x)XJ x´a ts�é–,Š x�žmS�­‚, xŒ±´õ ��,�´S�7LkƒÓ�ªÇڞm ts.plot(x)Óþ,�XJ x´õ��§S�ŒkØÓ�žm�Lkƒ Ó�ªÇ qqnorm(x)��© êã qqplot(x, y) xé y�© ê –© êã contour(x, y, z) ±›Ó+ã£x­‚ž¦^S�O†Ö ¿˜x�Š¤, x Ú y 7L•þ, z 7LÝ , ¦ � dim(z)=c(length(x),length(y)) ( xÚ yŒ±ŽÑ) filled.contour(x, y, z) Óþ, �p‚ƒm�«´çÚ�, ¿ …±›çÚéA�Š�ã~ image(x, y, z)Óþ,�´¢SêâŒ�^ØÓÚçL« persp(x, y, z)Óþ,�ßÀã stars(x)XJ x´Ý ½öêâµ,^(/ڂãxÑ,(“L x� z˜1‚ã“L��Ý. symbols(x, y, ...) 3d xÚ y‰½‹IxÎÒ (�§�/§ /§(§§ÝOª½öÝ/ã), ÎÒ�a.!Œ�!ôÚ� d, �Cþ½ termplot(mod.obj)±›£8�. (mod.obj)� ( )Kã e¡�ëê²~^u˜„±ã¼ê add=FALSEXJ TRUE ,3c˜‡ãþ (XJ3)V\±ã axes=TRUEXJ FALSE ,رыI¶ÚÝf type="p"½±›ã�a., "p"::, "l":‚, "b"^‚ë��:, "o": Óþ. �‚BL:, "h": R†�‚, "s": �F,�êâdR†‚� ºà“L, "S": �F,�êâdR†‚�.à“L xlim=, ylim=½‹I¶��ځŒ› xlab=, ylab=5º‹I¶ main=ÌIK sub=BIK (�ÒiN) $$$???±±±ããã···--- points(x, y)V\: (À‘ type=Œ±¦^) lines(x, y)Óþ. �^‚ text(x, y, labels, ...) 3‹I: ( x, y)\\©i; ;.�¦^{: plot(x, y, type="n"); text(x, y, names) mtext(text, side = 3, line = 0, ...) 3½� sideV\ ©i (ë axis); line½V\©i�±ã« segments(x0, y0, x1, y1)l: ( x0, y0)y‚–: ( x1, y1) arrows(x0, y0, x1, y1, angle = 30, code = 2)Óþ. � code=2±: ( x0, y0)Ä�:�†Þ,� code=1±: ( x1, y1) �:�†Þ,� code=3V†Þ; angle››†ÞÜm��Ý abline(a,b)±�å a�Ǐ b��‚ abline(h = y)3 y:�R‚ abline(v = x)3 x:�Y²‚ abline(lm.obj)Šâ lm.obj‰Ñ£8‚ rect(x1, y1, x2, y2)‰Ñ†,m,.,p› x1, x2, y1, y2� o>/ polygon(x, y)õ>/Šã legend(x, y, legend)3: ( x, y)V\ã~ title()V\IK axis(side, at)V\‹I¶,.Ü ( side=1),†ý ( 2),ºÜ ( 3)½m ý ( 4);ŒÀëê at½xÝ‚� ˜‹I box()3�cã/±Œ\˜‡Ýf rug(x)3 x-¶þV\ rug (1-d plot),5“Lêâ locator(n, type="n", ...) 3^r¦^àI3ãþ: n g�ˆ£ n g:Â�‹I (x,y)¶¿Œ±3:Â?±›Î Ò ( type="p") ½‚ ( type="l") §"Žœ¹eØxÎÒ½ë ‚ ( type="n") ±±±ãããëëëêêê Œ±¦^ par(...) 5[È5UC±ãëê; éõëꏌ±Š± ã·-�À‘. adj››©iéàª ( 0†éà, 0.5Ø¥éà, 1méà) bg ½�µôÚ (X: bg="red", bg="blue", . . . ^ colors() Œ±w « 657«Œ^ôÚ¶) bty››ã/>µ/G,Œ¦^�Š: "o", "l", "7", "c", "u"½ "]" (>µÚiΎ”);XJ bty="n"Kر›>µ cex ››"ŽG�eÎÒÚ©iŒ��Š; e¡�ëêkÓ��õU: cex.axis, ‹I¶Ý, cex.lab, ‹I¶I\, cex.main, IK, cex.sub,BIK col ››ÎÒÚë‚�ôÚ; ¦^ôÚ¶¡: "red", "blue" ë  colors() ½Š "#RRGGBB"; ë rgb(), hsv(), gray(), Ú rainbow();Óëê cexaq: col.axis, col.lab, col.main, col.sub font››©�iN��ê ( 1: �~, 2: �N, 3: oN, 4: �oN);„ Œ±¦^ font.axis, font.lab, font.main, font.sub las››‹I¶ÝêiIP•��ê ( 0: ²1u¶, 1: îü, 2: R †u¶, 3: çü) lty››ë‚�a.,Œ±´�ê½iÎ ( 1: "solid", 2: "dashed", 3: "dotted", 4: "dotdash", 5: "longdash", 6: "twodash"),½Ø ‡L 8‡iÎ�iÎG ( "0"– "9"m�ê)�O½‚Ú˜x �Ý),ü – (”points”)ڔƒ,X lty="44"Ú lty=2˜� lwd››ë‚°Ý�êi,%@ 1 mar››ã/>˜�k 4‡Š�•þ c(bottom, left, top, right), %@Š c(5.1, 4.1, 4.1, 2.1) mex(²ã/Ó>��N§Ý�iΌ��N\Cþ"5¿§§¿Ø UCiN�Œ�" mfcol^ c(nr,nc)•þ©±ãI nr1Ú nc�,U�¦^fI  mfrowÓþ. �U1¦^fI pch››ÎÒ�a.,Œ±´ 1– 25��ê,½´ ""p�ü‡iÎ l1 2 3 4 5 6 7 8 9 l10 11 12 l13 14 15 l16 17 18 l19 l20 l21 22 23 24 25 ** . XX aa ?? ps››©iŒ���ê§ü – (points) pty½±ã«a.�iΧ "s": �/, "m": Œ|^ tck½¶þÝÝ�Š§ü ´z©'§±ã/°!p¥�˜ ‡ŠÄê¶XJ tck=1K±› grid tclÓþ. �±©�1�pݏÄê (%@ tcl=-0.5) xaxt XJ xaxt="n" K�˜ x- ¶�Øw« (kÏuÚ axis(side=1, ...) ˜å¦^) yaxtÓþ. y-¶ ���‚‚‚ (Lattice)±±±ããã xyplot(y˜x)VCþÑ:ã barchart(y˜x) yé x�^/ã dotplot(y˜x) Cleveland:ã (Å1Å�\\ã) densityplot(˜x)—ݼêã histogram(˜x) x�ªÇ†ã bwplot(y˜x)‡‚ã qqmath(˜x) x'u,nØ©Ù�© ê -© êã stripplot(y˜x)˜‘ã, x7L´êŠ., yŒ±´Ïf qq(y˜x)'�ü‡©Ù�© ê, x7L´êŠ., yŒ±´êŠ,i νö´Ïf,�7L´ü‡ “Y²” splom(˜x)�‘ãÝ parallel(˜x)²1‹Iã levelplot(z˜x*y|g1*g2)3 x§ y‹I:� zŠ�çÚ�Š‚ã £ x§ yÚ z�¤ wireframe(z˜x*y|g1*g2) 3dßÀã (¡) cloud(z˜x*y|g1*g2) 3dßÀã (:) 3˜„5 Lattice úª¥, y˜x|g1*g2 kŒÀJ^‡Cþ g1 Ú g2 |Ü ±›3üÕ� “panels”þ. Lattice¼ê¦^ éõƒÓ�ëþŠÄ: N\±ã,X data=, subset=. ¦^ panel=5½Â½› “panel”¼ê (ë  apropos("panel")Ú ?llines). Lattice¼êˆ£˜‡ trellisa.� 閿…´ “ print-ed”5)¤ã/. Sܦ^ print(xyplot(...)) ¼ êž,gıã¿Ã�J.¦^ lattice.themeÚ lset5UC Lattice% @�˜. ���...[[[ÚÚÚ optim(par, fn, method = c("Nelder-Mead", "BFGS", "CG", "L-BFGS-B", "SANN") ^u¦õ�¼ê�Š. Äu Nelder-Mead, quasi-Newton and conjugate-gradient Ž{. Ó ž, Œ±¦«mS�Š. par¼êЊ, fn´¦Š�¼ ê (Ï~�) nlm(f,p)ŠâЩŠÏL¦^Úî (Newton-type)Ž{��z¼ê lm(formula)[ڂ5�.; formula�;./ª response ˜ termA + termB + ...; ¦^ I(x*y) + I(xˆ2) 5 �¤š‚5¤© glm(formula,family=)ÏL½‚5ýÿ�.Úí�©Ù5[Ú 2‚5�.; family í�©Ù�£ã…Ó�.�Ü;  „?family nls(formula)š‚5��¦�O approx(x,y=)‚5�Š; approxfun(x,y)‚5�Š¼ê spline(x,y=)ᐠ(­‚)�Š splinefun(x,y)ᐠ(­‚)�Š¼ê loess(formula)ÛÜCq£8"|^ÛÜ\�£8?1˜‡šë£ 8"ù«£8éw«˜|'Ïêâ�ª³Ú£ãŒêâ8�� Nœ¹š~k^" éõ±úªÄ:��.¼êkéõÏ^�ëþ: data= úªCþ �êâµ, subset= ÷v^‡�f8; na.action= "”Š?nª: "na.fail", "na.omit",½˜‡¼ê. e¡~^u�.[Ú¼ê: predict(fit,...) ÏL[Ú�. fitOŽýÿŠ df.residual(fit)ˆ£í��gdÝ coef(fit)ˆ£��O�Xê£kžÿ„)¦‚�IO�¤ residuals(fit)ˆ£í�Š deviance(fit)ˆ£� fitted(fit)ˆ£[ڊ logLik(fit)OŽéêq,ŠÚëêê8 AIC(fit)OŽ Akaike&EOK£Akaike information criterion or AIC¤ ÚÚÚOOO aov(formula)�©Û anova(fit,...) ˜‡½õ‡�.é–��L£½í�²ÚL¤ ©Û density(x) x�ؗÝ�O kmeans(x) kþŠàa hclust(d, method = "complete") �gàa©Û, d d¼ê dis- t�E, methodŒë?hclust prcomp(x, ...) ̤©©Û factanal(x,factors,data)Ïf©Û cancor(x, y, xcenter = TRUE, ycenter = TRUE);.ƒ' ©Û ( canonical correlations ) uuu��� t.test() t u� wilcox.test() Wilcoxonu� prop.test(x,n,p) ngÁ�¥, Ñy� x�VǴıVÇ pÑy �b�u� binom.test(x,n)�ãåÁ�u� chisq.test(x,p) χ2 u� fisher.test(x ,y = NULL) Fisher°(5u� ks.test(x,y="name",) Kolmogorov-Smirnovu�,u�•þêâ´ ÄÑl”name”©Ù shapiro.test(x) Shapiro-Wilk��©Ùu� PP.test(x, lshort = TRUE) PP£Phillips-Perron¤u� quada.test(x) quadeu� friedman.test(x) Friedman Úu� pairwise.t.test(), power.t.test() help.search("test") ©©©ÙÙÙ rnorm(n, mean=0, sd=1)pd (��) rexp(n, rate=1)ê rgamma(n, shape, scale=1) γ©Ù rpois(n, lambda) Poisson©Ù rweibull(n, shape, scale=1) Weibull©Ù rcauchy(n, location=0, scale=1) Cauchy©Ù rbeta(n, shape1, shape2) β©Ù rt(n, df) t ©Ù rf(n, df1, df2) F©Ù rchisq(n, df) χ2 ©Ù rbinom(n, size, prob)�‘ rgeom(n, prob)AÛ rhyper(nn, m, n, k)‡AÛ rlogis(n, location=0, scale=1) logistic©Ù rlnorm(n, meanlog=0, sdlog=1)éê�� rnbinom(n, size, prob)K�‘©Ù runif(n, min=0, max=1)þ!©Ù rwilcox(nn, m, n), rsignrank(nn, n) Wilcoxon©Ù ¤k�¼êь±¦^ d, p ½ q 5O† r ©O��VÇ —Ý ( dfunc(x, ...)), \ÈVÇ—Ý ( pfunc(x, ...)), ©  ê ( qfunc(p, ...), 0 < p < 1). ???§§§ function( arglist ) expr½Â¼ê return(value) if(cond) expr if(cond) cons.expr else alt.expr for(var in seq) expr while(cond) expr repeat expr break next ¦^Lˆ (statements)¦^Œ)Ò {} ifelse(test, yes, no)XJ÷v^‡ testˆ£ yes,‡ƒˆ£ no do.call(funname, args)Šâ¼ê¶ÚLˆª (arguments)‰1N ^¼ê. RSSSiii~~~êêê lettersˆ£ 26‡��=©i1 LETTERSÓþ (Œ�) month.abbˆ£ 3‡i1 ���°¶ month.nameˆ£�°¶ pi pi ÙÙÙ¦¦¦ sessionInfo()w«'u R�‡�&EÚ'é� Packages all.equal(x,y)u�ü‡é–´Ä (ì?) ƒ�,ƒ�ˆ£ TRUE,Ä Kˆ£ abs(x− y)/x identical(x,y)î‚u�閴ă� memory.size()ˆ£�c¦^�SŒ� RSiteSearch()|¢ http://search.r-project.orgþ�(J,) e‡�L,Ãþڐϐ