複数の直線が２次元座標にあるとする そのｙ値の最大値のグラフを描く 実行 N<-10 As<-sample(1:N) Bs<-1:N bs<-basket(As,Bs) bs plotBasket(bs) 関数 手続は 直線の傾き・ｙ切片を与える 直線をユニークにする 始点を定める(今回は、x=0の最大値からスター…

"unique()" "duplicated()" 参考記事はこちら ２(以上)次元データでの重複除去の例 As<-c(1,2,3,4,1,2,3,4) Bs<-c(0,0,0,1,1,1,1,1) ABs<-cbind(As,Bs) ABs unique(ABs)>ABs As Bs [1,] 1 0 [2,] 2 0 [3,] 3 0 [4,] 4 1 [5,] 1 1 [6,] 2 1 [7,] 3 1 [8,] 4 1…