## Not run:
# result <- primersearch(rdp_ex_data,
# forward = c("U519F" = "CAGYMGCCRCGGKAAHACC"),
# reverse = c("Arch806R" = "GGACTACNSGGGTMTCTAAT"),
# mismatch = 10)
#
# heat_tree(result,
# node_size = n_obs,
# node_label = name,
# node_color = prop_amplified,
# node_color_range = c("red", "yellow", "green"),
# node_color_trans = "linear",
# node_color_interval = c(0, 1),
# layout = "fruchterman-reingold")
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace