vignettes/Lab1.R

In BMasinde/bioinfo:

## ----include=FALSE-------------------------------------------------------
library(seqinr)
library(knitr)
library(kableExtra)

## ----echo=FALSE----------------------------------------------------------

text_tbl <- data.frame(
  Alleles = c("", "A(p)", "a(q)"),
  Combination1 = c(
    "A(p)",
    "AA(p^2)", 
    "Aa(qp)"
  ),
  Combination1 = c(
    "A(p)",
    "AA(p^2) ", 
    "Aa(qp)"
  )
)

kable(text_tbl)%>%
  kable_styling(full_width = T) %>%
  column_spec(1, bold = T, border_right = T) %>% column_spec(2, bold = T, border_right = T)%>% column_spec(3, bold = T, border_right = T)


## ----blastn, out.width="550px", out.height="600px"-----------------------
knitr::include_graphics("c_elagan_blastn.png")

## ----blasn2, out.width="550px", out.height="600px"-----------------------
knitr::include_graphics("c_elagans_blastn2.png")