昨日の続きである。とりあえず、Rで1次元のベクトルを受け取って、2次元の配列にするには、以下のように書いてみた。 input<-c(-1,0,1,5,6,7) s<-matrix(NA,length(input),length(input)) for(i in 1:length(input)){ for(j in 1:length(input)){ k <- -1*(i…