トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
R_Primitive
をテンプレートにして作成
開始行:
[[Rの備忘録]]
演算子と呼ばれる関数群がある．
&htmlinsert(amazontext,asin=0387759352,text=Software for ...
たとえば ''1 + 2'' のという式で，引数の真ん中に書いて使え...
> `+` # ` はシフトを押しながら @ を押す
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 %...
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 h...
N, nrows), domain = NA)
if (is.atomic(value))
names(value) <- NULL
}
x[[i]] <- value
class(x) <- cl
return(x)
}
<environment: namespace:base>
ところが，data.frame() は，長いのでざっとみただけだが，オ...
> data.frame
function (..., row.names = NULL, check.rows = FALSE,
check.names = TRUE, stringsAsFactors =default.stringsAs...
...
else if (inherits(xi1, "Date") || inherits(xi1,
"POSIXct"))
xi[[j]] <- rep(xi1, length.out = nr)
...
[[RjpWiki初心者:http://www.okada.jp.org/RWiki/?%A3%D1%A1%...
> (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...
c(0, 0, 0, :
replacement has 9 rows, data has 20
はダメだけど、
> d1$b <- data.frame(t)$t
なら大丈夫．
------------
と書いて放っておいたら，何気なく R 関係のホームページをみ...
d1 <- data.frame(d1, t) とすればよいようですよ。
この人のサイトのページをみてたら，初心者への私の回答態度...
終了行:
[[Rの備忘録]]
演算子と呼ばれる関数群がある．
&htmlinsert(amazontext,asin=0387759352,text=Software for ...
たとえば ''1 + 2'' のという式で，引数の真ん中に書いて使え...
> `+` # ` はシフトを押しながら @ を押す
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 %...
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 h...
N, nrows), domain = NA)
if (is.atomic(value))
names(value) <- NULL
}
x[[i]] <- value
class(x) <- cl
return(x)
}
<environment: namespace:base>
ところが，data.frame() は，長いのでざっとみただけだが，オ...
> data.frame
function (..., row.names = NULL, check.rows = FALSE,
check.names = TRUE, stringsAsFactors =default.stringsAs...
...
else if (inherits(xi1, "Date") || inherits(xi1,
"POSIXct"))
xi[[j]] <- rep(xi1, length.out = nr)
...
[[RjpWiki初心者:http://www.okada.jp.org/RWiki/?%A3%D1%A1%...
> (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...
c(0, 0, 0, :
replacement has 9 rows, data has 20
はダメだけど、
> d1$b <- data.frame(t)$t
なら大丈夫．
------------
と書いて放っておいたら，何気なく R 関係のホームページをみ...
d1 <- data.frame(d1, t) とすればよいようですよ。
この人のサイトのページをみてたら，初心者への私の回答態度...
ページ名:
