アールメカブ

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• R_Primitive へ行く。
  • 1 (2009-05-05 (火) 08:20:28)
  • 2 (2009-05-05 (火) 09:10:50)
  • 3 (2009-05-05 (火) 18:02:50)

Rの備忘録

演算子を呼ばれる関数群がある．要するに 1 + 2 の + のような使い方をする関数である．

.Primitive

> `+` # ` はシフトを押しながら @ を押す
function (e1, e2)  .Primitive("+")

既存のデータフレームに要素を追加する時は`$<-.data.frame` が呼ばれる．この定義は以下の通り．

> `$<-.data.frame`
function (x, i, value) 
{
  cl <- oldClass(x)
  class(x) <- NULL
  nrows <- .row_names_info(x, 2L)
  if (!is.null(value)) {
    N <- NROW(value)
    if (N > nrows) 
      stop(gettextf("replacement has %d rows, data has %d", 
          N, nrows), domain = NA)
    if (N < nrows && N > 0L) 
      if (nrows%%N == 0L && length(dim(value)) <= 1L) 
          value <- rep(value, length.out = nrows)
     else stop(gettextf("replacement has %d rows, data has %d", 
           N, nrows), domain = NA)
     if (is.atomic(value)) 
         names(value) <- NULL
   }
   x[[i]] <- value
   class(x) <- cl
   return(x)
}
<environment: namespace:base>

ところが，data.frame() は，長いのでざっとみただけだが，オブジェクトのクラス判定なども行っているようだ．だから，データフレームにリストである POSIXit 要素を追加しようとすると次のようなエラーに見舞われる．

> (t <- strptime(paste("1-1-2001 9", 1:20, sep=":"),
             "%m-%d-%Y  %H:%M"))
> d1 <- data.frame(a=1:20)
> d1$b <- t
以下にエラー `$<-.data.frame`(`*tmp*`, "b", value = list(sec =
 c(0, 0, 0,  : 
replacement has 9 rows, data has 20