- Basic
- u<-matrix(c(1,2,3,1,2,4),nrow=3)
- v<-matrix(c(8,12,20,15,10,2),nrow=3)
- for (m in c("u","v")) {
- z<-get(m)
- print(lm(z[,2]~z[,1]))
- }
- y<-if(x==2) x else x+1
- x%/%y # integer divide
- x%%y # mod
- x&y # vector and
- x|y # vector or
- |x # not
- oddcount<-function(x) {
- k<-0
- k # as return val
- }
- g<-function() {
- t<-function(x) return(x^2)
- return(t)
- }
- ls() # show current environment variable
- x<-c(13,5,12)
- sort(x) # 5 12 13
- x # not changed x
- 13 5 12
- x<-sort(x) # 5 12 13
- oddsevens<-function(v) {
- odds<-which(v%%2==1)
- evens<-which(v%%2==1)
- list(o=odds,e=evens) # return multiple values
- }
- # global variable
- f<-function() {
- x<<-...
- y<<-...
- }
- x<-...
- y<-...
- f() # x,y are changed in f
- ...<-x
- ...<-y # use new x,y
- # clojure
- counter<-function() {
- ctr<-0
- f<-function() {
- ctr<<-ctr+1
- cat("sentence",ctr,"\n")
- }
- return(f)
- }
- c1<-counter()
- c2<-counter()
- c1() # ctr=1
- c1() # ctr=2
- c2() # ctr=1
- c2() # ctr=2
- # recursion
- quicksort<-function(x) {
- if (length(x)<=1) return(x) # end condition
- pivot<-x[1]
- therest<-x[-1]
- sv1<-therest[therest<pivot]
- sv2<-therest[therest>=pivot]
- sv1<-quicksort(sv1)
- sv2<-quicksort(sv2)
- return(c(sv1,pivot,sv2))
- }
- "%a2b%"<-function(a,b) return(a+2*b) # custom operator
- 3 %a2b% 5
- y<-apply(z,1,function(x) x/c(2,8)) # anonymous function
R語言學(xué)習(xí)筆記7-程序結(jié)構(gòu)篇
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
- 文/潘曉璐 我一進(jìn)店門脚猾，熙熙樓的掌柜王于貴愁眉苦臉地迎上來，“玉大人砚哗，你說我怎么就攤上這事龙助。” “怎么了蛛芥？”我有些...
- 文/不壞的土叔 我叫張陵提鸟，是天一觀的道長。 經(jīng)常有香客問我仅淑，道長称勋，這世上最難降的妖魔是什么？ 我笑而不...
- 正文 為了忘掉前任涯竟，我火速辦了婚禮赡鲜，結(jié)果婚禮上，老公的妹妹穿的比我還像新娘庐船。我一直安慰自己银酬，他們只是感情好，可當(dāng)我...
- 文/花漫 我一把揭開白布筐钟。 她就那樣靜靜地躺著揩瞪，像睡著了一般。 火紅的嫁衣襯著肌膚如雪篓冲。 梳的紋絲不亂的頭發(fā)上李破，一...
- 文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼恶耽！你這毒婦竟也來了密任？” 一聲冷哼從身側(cè)響起，我...
- 序言：老撾萬榮一對情侶失蹤偷俭，失蹤者是張志新（化名）和其女友劉穎浪讳，沒想到半個月后，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體涌萤，經(jīng)...
- 正文 獨(dú)居荒郊野嶺守林人離奇死亡淹遵，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
- 正文 我和宋清朗相戀三年，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了负溪。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片透揣。...
- 正文 年R本政府宣布侍咱，位于F島的核電站，受9級特大地震影響密幔，放射性物質(zhì)發(fā)生泄漏楔脯。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒙蒙 一胯甩、第九天 我趴在偏房一處隱蔽的房頂上張望淤年。 院中可真熱鬧，春花似錦蜡豹、人聲如沸麸粮。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽弄诲。三九已至，卻和暖如春娇唯，著一層夾襖步出監(jiān)牢的瞬間齐遵，已是汗流浹背。 一陣腳步聲響...
- 正文 我出身青樓想许，卻偏偏與公主長得像伶授，于是被迫代替她去往敵國和親断序。 傳聞我的和親對象是個殘疾皇子，可洞房花燭夜當(dāng)晚...
推薦閱讀更多精彩內(nèi)容
- R 是一種塊狀結(jié)構(gòu)的語言糜烹，R 語言的塊(block) 由大括號劃分违诗，不過當(dāng)塊只包含一條語句時(shí)大括號可以省略。程序語...
- 跟慧相見，是因?yàn)轾i的突然離世感论。 慧和鵬我們都是老同學(xué)慎玖。 在學(xué)校時(shí)他們關(guān)系就好，工作以后兩家對兩個娃還都滿意笛粘，就確立...
