0

この質問は重複したものであると指摘する人もいますが (そうですが、hemmo の支援にもかかわらず、問題を解決できませんでした...)。この投稿では、1) 私が抱えている問題に関する追加情報を提供し、2) マトリックス関数の基本コードを投稿の下部に示されているコードに編集する方法を尋ねていました。

基本パッケージの行列関数を更新する方法を誰か教えてもらえますか? 私はクリーン インストール 2.15.3 を実行しています (そして、(以前のインストールから) 見つけたすべての R 関連ファイルを削除し、2.15.3 を再インストールする前にレジストリのクリーニングも試みました) が、試行するたびに次のエラーが発生し続けます。使用するmatrix:

cells <- c(1,26,24,68)
rnames <- c("R1", "R2")
cnames <- c("C1", "C2") 
mymatrix <- matrix(cells, nrow=2, ncol=2, byrow=TRUE,
dimnames=list(rnames, cnames))

Error in matrix(cells, nrow = 2, ncol = 2, byrow = TRUE, dimnames = list(rnames, : 5 arguments passed to .Internal(matrix) which requires 7

興味深いことに、入力mymatrix <- as.matrix(cells, nrow=2, ncol=2, byrow=TRUE, dimnames=list(rnames, cnames))してもエラーは発生しませんが、出力は正しくありません。

     [,1]
[1,]    1
[2,]   26
[3,]   24
[4,]   68

一人で入力するとmatrix、次のようになります。

function (data = NA, nrow = 1, ncol = 1, byrow = FALSE, dimnames = NULL) 
{
data <- as.vector(data)
if (missing(nrow)) 
    nrow <- ceiling(length(data)/ncol)
else if (missing(ncol)) 
    ncol <- ceiling(length(data)/nrow)
.Internal(matrix(data, nrow, ncol, byrow, dimnames))
}
<environment: namespace:base>

同様のエラーメッセージで見つけることができたいくつかの以前の投稿から、入力するとmatrix次のようになるはずです。

function (data = NA, nrow = 1, ncol = 1, byrow = FALSE, dimnames = NULL) 
{ 
if (is.object(data) || !is.atomic(data)) 
    data <- as.vector(data) 
.Internal(matrix(data, nrow, ncol, byrow, dimnames, missing(nrow), 
    missing(ncol))) 
} 
<environment: namespace:base>

matrix基本パッケージの関数を編集して、すぐ上のコードのように見えるようにする方法を知っている人はいますか(7 つの引数を使用)。ありがとう！

4

0 に答える 0