# NOT RUN {
##Samples should be arranged columnwise.
##Input data should not contain any categorial
##data such as taxonomic assignment or barcode sequences.
##An example of the input data can be found below:
example_input_data <- as.data.frame(matrix(c(sample(1:80, 100, replace = TRUE),
sample(1:90, 100, replace = TRUE),
sample(1:100, 100, replace = TRUE)),
nrow = 100))
colnames(example_input_data) <- c("sample_1","sample_2","sample_3")
##Default settings of SRScurve.
SRScurve(example_input_data, metric = "richness", step = 50,
ylab = "Species richness",
col = c("#000000", "#E69F00", "#56B4E9"))
##SRScurve with comparison of SRS (solid lines) and repeated rarefying (dashed lines).
##Different colors correspond to indiviual samples. Cuttoff-level set to 500.
SRScurve(example_input_data, metric = "richness", step = 50,
sample = 500,
rarefy.comparison = TRUE, rarefy.repeats = 10, rarefy.comparison.legend = TRUE,
ylab = "Species richness",
col = c(rep("#000000",2), rep("#E69F00",2), rep("#56B4E9",2)),
lty = c(1,2))
# }
Run the code above in your browser using DataLab