Commit 9fc326ac authored by Sebastian Baltes's avatar Sebastian Baltes
Browse files

Randomize order of sample

parent a3a5e9bf
This diff is collapsed.
......@@ -37,4 +37,7 @@ sample <- papers[sampled_rows,]
nrow(sample)
# 100
# randomize order
sample <- sample[randomSequence(min=1, max=nrow(sample), col=1, check=TRUE)[,1]]
write.table(sample, file="../output/sample.csv", sep=",", col.names=TRUE, row.names=FALSE, na="", quote=TRUE, qmethod="double", fileEncoding="UTF-8")
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment