2010-09-28 サンプル R sample() x<-c(1,-1,1i,-1i) #要素 m<-10 #サンプル数 sample(x,m,replace=TRUE) #重複をゆるす場合 replace=TRUEbase<-c("A","T","C","G") m<-10 seq<-sample(base,m,replace=TRUE) print(seq,quote=FALSE)