# Create triplestore object
avidaDB <- triplestore_access$new()
# Set access options
avidaDB$set_access_options(
url = "https://graphdb.fortunalab.org",
user = "public_avida",
password = "public_avida",
repository = "avidaDB_test"
)
# Get sequences for genomes 1 and 2
sequence1 <- get_genome_seq_from_genome_id(
1,
triplestore = avidaDB
)$genome_seq
sequence2 <- get_genome_seq_from_genome_id(
2,
triplestore = avidaDB
)$genome_seq
# Single genome
get_tandem_id_from_genome_seq(
genome_seq = sequence1,
triplestore = avidaDB
)
# More than one genome
get_tandem_id_from_genome_seq(
genome_seq = c(sequence1, sequence2),
tandem_seq = TRUE,
triplestore = avidaDB
)
# At seed_1 and seed_2
get_tandem_id_from_genome_seq(
genome_seq = sequence2,
seed_id = c(1,2),
tandem_seq = TRUE,
tandem_pos = TRUE,
triplestore = avidaDB
)
Run the code above in your browser using DataLab