NGLVieweR("1GZM") %>%
addRepresentation("cartoon", param = list(color = "blue")) %>%
addStructure("1U19") %>%
addRepresentation("cartoon", param = list(color = "orange")) %>%
setSuperpose(
reference = 1,
sele_reference = ":A",
sele_target = ":A",
superpose = TRUE
)
Run the code above in your browser using DataLab