2010-03-18から1日間の記事一覧

分割表を図示

TablePlot(N=100,M=100,r=0.7)TablePlot<-function(N=2,M=2,Ns=1000,r=0.5,k1=10,k2=10){ first<-sample(1:N,Ns,prob=rep(k1,N),replace=TRUE) second<-sample(1:M,Ns,prob=rep(k2,M),replace=TRUE) Nr<-Ns*r first[1:Nr]<-sort(first[1:Nr]) second[1:Nr]<-…

分割表を図表現する