_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
FrontPage › RTip

Contents

1 螳 讓手蠍
2 charindex
3 eomonth


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]]
    #    
    # .............
    #
  }


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) )
}

3 eomonth #

ceiling_date(sub_dt, unit = "month") - days(1)
蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2022-01-09 20:05:02

磯Μ螳 伎 殊 襾朱 覿覈 蟆 譯 螳蟾 ろ 蟆企. (T.豺朱殊)