# cleaver
<!-- badges: start -->
[](https://www.repostatus.org/#active)
[](https://github.com/sgibb/cleaver/actions)
[](https://codecov.io/github/sgibb/cleaver/?branch=master)
[](https://www.gnu.org/licenses/gpl-3.0.html)
[](https://bioconductor.org/packages/release/bioc/html/cleaver.html)
[](https://bioconductor.org/packages/stats/bioc/cleaver/)
Release: [](https://bioconductor.org/checkResults/release/bioc-LATEST/cleaver/)
Devel: [](https://bioconductor.org/checkResults/devel/bioc-LATEST/cleaver/)
<!-- badges: end -->
## Description
This package cleaves polypeptide sequences. The
cleavage rules are taken from:
https://web.expasy.org/peptide_cutter/peptidecutter_enzymes.html
cleaver is part of [Bioconductor](https://bioconductor.org/packages/release/bioc/html/cleaver.html).
## Install development version (not recommended)
```r
install.packages("devtools")
library("devtools")
install_github("sgibb/cleaver")
```
## Usage
```r
## load library
library("cleaver")
## Gastric juice peptide 1 (UniProtKB/Swiss-Prot: GAJU_HUMAN/P01358)
gaju <- "LAAGKVEDSD"
cleave(gaju, "trypsin")
# $LAAGKVEDSD
# [1] "LAAGK" "VEDSD"
cleave(gaju, "trypsin", missedCleavages=1)
# $LAAGKVEDSD
# [1] "LAAGKVEDSD"
cleave(gaju, "trypsin", missedCleavages=0:1)
# $LAAGKVEDSD
# [1] "LAAGK" "VEDSD" "LAAGKVEDSD"
cleave(gaju, "pepsin")
# $LAAGKVEDSD
# [1] "LAAGKVEDSD"
# (no cleavage)
```