_覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
FrontPage › RTip
|
|
[edit]
1 螳 讓手蠍 #split_n <- 20 split_row <-rep(1:split_n, rep(round(length(y)/split_n,0), split_n)) for(d in 1:split_n){ #d <- 1 tmp <- split(y, split_row)[[d]] # # ............. # } [edit]
2 charindex #--https://stackoverflow.com/questions/14249562/find-the-location-of-a-character-in-string
charindex <- function(str1,str2,startpos=1,n=1){ aa=unlist(strsplit(substring(str1,startpos),str2)) if(length(aa) < n+1 ) return(0); return(sum(nchar(aa[1:n])) + startpos+(n-1)*nchar(str2) ) }
鏤
|
覲旧 覘蟾? 磯Μ 蟷 蟆. 螻糾鍵 覓 螳譟 豺蟲. 伎 螻襷 れ讌螳蠍郁 暑. 覲旧 磯Μ 蟷 蟆れ 螳豺襯 蟆企. (襴) |