unique関数を使い，Heaps則をRで描く. uniqueは与えられたベクトルから，重複しない要素だけ抜き出すので， uniqueで抜き出した要素数をlengthで数えれば，Heaps則を描くことができる． ただし，時間がかかる． N <- 20000 DW <- 5000 doc <- sample(DW,N,re…