- 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語(yǔ)言學(xué)習(xí)筆記7-程序結(jié)構(gòu)篇
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書(shū)系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書(shū)系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。
- 文/潘曉璐 我一進(jìn)店門(mén)，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)，“玉大人，你說(shuō)我怎么就攤上這事。” “怎么了？”我有些...
- 文/不壞的土叔 我叫張陵，是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我，道長(zhǎng)，這世上最難降的妖魔是什么？ 我笑而不...
- 正文 為了忘掉前任，我火速辦了婚禮，結(jié)果婚禮上，老公的妹妹穿的比我還像新娘。我一直安慰自己，他們只是感情好，可當(dāng)我...
- 文/花漫 我一把揭開(kāi)白布。 她就那樣靜靜地躺著，像睡著了一般。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上，一...
- 那天，我揣著相機(jī)與錄音，去河邊找鬼。 笑死，一個(gè)胖子當(dāng)著我的面吹牛，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播，決...
- 文/蒼蘭香墨 我猛地睜開(kāi)眼，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來(lái)了？” 一聲冷哼從身側(cè)響起，我...
- 序言：老撾萬(wàn)榮一對(duì)情侶失蹤，失蹤者是張志新（化名）和其女友劉穎，沒(méi)想到半個(gè)月后，有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體，經(jīng)...
- 正文 獨(dú)居荒郊野嶺守林人離奇死亡，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
- 正文 我和宋清朗相戀三年，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
- 正文 年R本政府宣布，位于F島的核電站，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜，卻給世界環(huán)境...
- 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧，春花似錦、人聲如沸。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背。 一陣腳步聲響...
- 正文 我出身青樓，卻偏偏與公主長(zhǎng)得像，于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子，可洞房花燭夜當(dāng)晚...
推薦閱讀更多精彩內(nèi)容
- R 是一種塊狀結(jié)構(gòu)的語(yǔ)言，R 語(yǔ)言的塊(block) 由大括號(hào)劃分，不過(guò)當(dāng)塊只包含一條語(yǔ)句時(shí)大括號(hào)可以省略。程序語(yǔ)...
- 跟慧相見(jiàn)，是因?yàn)轾i的突然離世。 慧和鵬我們都是老同學(xué)。 在學(xué)校時(shí)他們關(guān)系就好，工作以后兩家對(duì)兩個(gè)娃還都滿意，就確立...
