!行列から座標と値のテーブルを得る

 temp = matrix(1:100, ncol=10) #元データ
 m = as(temp, "dgTMatrix") #dgTMatrixのクラスに変換
 d = data.frame(row=m@i+1, col=m@j+1, val=m@x) #ゼロからカウントされるので１を足す


!r-wakalangでこういう方法もあった（行と列との数を指定する）

 tibble(
  id_tdy=rep(1:10 , times = 10),
  id_tmr=rep(1:10 , each = 10),
  value=as.vector(temp)
 )