# NOT RUN {
head(data <- RLdata500[-c(2,4)])
minidata <- data[1:2,]
head(all_the_shingles <- apply(minidata,1,shingles,k=8))
head(minhash.minidata <- minhash_v2(all_the_shingles, p=10))
hash_signature(minhash.minidata, b=2)
hash_signature(minhash.minidata, b=5)
# }
Run the code above in your browser using DataLab