行列の出力をRコードに変換する

Question

このような行列を生成するRコードがない紙やチュートリアルで、このようないくつかの行列を見つけたとします。 Rを使ってこれらの行列を再生成（あるいは別の関数で使用すること）したいとします。したがって、行列の出力をRコードに変換する簡単な方法はありますか？つまり、次の行列がある場合、どのようにRコードに変換できるかです。

> Matrix 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 5 0 0 0 0 
[2,] 2 2 0 0 0 
[3,] 3 3 3 0 0 
[4,] 1 4 4 4 0 
[5,] 4 1 1 1 1 

Answer 1

私はあなたの目標が何であるかわからないんだけど、コピーしたい場合は/（チュートリアルから例えば）行列出力を貼り付け、あなたが

mat_string <- "  [,1] [,2] [,3] [,4] [,5] 
[1,] 5 0 0 0 0 
[2,] 2 2 0 0 0 
[3,] 3 3 3 0 0 
[4,] 1 4 4 4 0 
[5,] 4 1 1 1 1" 

mat_list <- strsplit(strsplit(string,"\n")[[1]][-1]," ") 
mat <- do.call("rbind",mat_list)[,-1] 
class(mat) <- "numeric" 

mat 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 5 0 0 0 0 
[2,] 2 2 0 0 0 
[3,] 3 3 3 0 0 
[4,] 1 4 4 4 0 
[5,] 4 1 1 1 1 

ような何かを行うことができ、マトリックスオブジェクトに変換