# NOT RUN {
library(r3dmol)
r3dmol() %>%
m_add_model(data = pdb_6zsl) %>%
m_set_style(style = m_style_cartoon()) %>%
m_zoom_to() %>%
m_add_style(
sel = m_sel(resi = 1:10),
style = c(
m_style_stick(),
m_style_sphere(scale = 0.3)
)
) %>%
m_add_line(
start = list(
m_sel(resi = 1, chain = "A"),
m_sel(resi = 1, chain = "A")
),
end = list(
m_sel(resi = 10, chain = "A"),
m_sel(resi = 10, chain = "B")
),
dashed = TRUE
)
# }
Run the code above in your browser using DataLab