Nothing
## ---- echo = FALSE-------------------------------------------------------
library(knitr)
opts_chunk$set(tidy.opts=list(width.cutoff=60),tidy=TRUE)
knitr::opts_chunk$set(comment = "#>", collapse = TRUE)
## ------------------------------------------------------------------------
library(BaMORC)
## ------------------------------------------------------------------------
## Arguments:
sequence = paste(RefDB_data$carbonDat[[1]]$AA, collapse = "")
secondary_structure = paste(RefDB_data$carbonDat[[1]]$SS, collapse = "")
chemical_shifts_input = RefDB_data$carbonDat[[1]][, c(4,5)]
from= -5
to = 5
## Running bamorc() function:
bamorc(sequence = sequence, secondary_structure = secondary_structure,
chemical_shifts_input = chemical_shifts_input, from = -5, to = 5)
## ---- eval= FALSE--------------------------------------------------------
# ## Arguments:enerate a temperary sample NMR spectra file and later will be
# ## removed.
# sequence = "RPAFCLEPPYAGPGKARIIRYFYNAAAGAAQAFVYGGVRAKRNNFASAADALAACAAA"
# sample_file_path = system.file("extdata", "bpti_HNcoCACB.txt", package = "BaMORC")
#
# ## Running unassigned_bamorc() function:
# # unassigned_bamorc will take a while to run
# unassigned_bamorc(peakList_file_loc = sample_file_path, sequence = sequence,
# secondary_structure = NULL, from = -5, to = 5)
## ------------------------------------------------------------------------
## Arguments:
sample_file_path = system.file("extdata", "sample_input_ws.txt", package = "BaMORC")
## Running reading function
head(read_raw_file(sample_file_path, delim = "ws"))
## ------------------------------------------------------------------------
## Arguments:
sample_file_path = system.file("extdata", "sample_input.csv", package = "BaMORC")
## Running reading function
head(read_raw_file(sample_file_path, delim = "comma"))
## ------------------------------------------------------------------------
## Arguments:
sample_file_path = system.file("extdata", "sample_input_sc.txt", package = "BaMORC")
## Running reading function
head(read_raw_file(sample_file_path, delim = "semicolon"))
## ---- eval= FALSE--------------------------------------------------------
# ## Download a BMRB file
# library(BMRBr)
# bmrb_download(4020, output_dir = "./")
#
# ## Read in BMRB file and procec
# file_path = "bmr4020.str"
# head(read_nmrstar_file(file_path = file_path))
#
# ## Delete downloaded BMRB file
# unlink("./bmr4020.str")
## ------------------------------------------------------------------------
id = 4022
output <- read_db_file(id = id)
head(output[[1]])
head(output[[2]])
## ---- eval= FALSE--------------------------------------------------------
# protein_sequence <- "MQVWPIEGIKKFETLSYLPPLTVEDLLKQI"
# secondary_structure <- jpred_fetcher(protein_sequence = protein_sequence)
#
# secondary_structure
## ------------------------------------------------------------------------
calculate_aa_prob(chi_squared_stat = c(0.05, 0.1, 0.5), df = 2)
## ------------------------------------------------------------------------
calculate_chi_squared_stat(cacb_pair = c(54,45))
## ------------------------------------------------------------------------
## Arguments:
sequence = paste(RefDB_data$carbonDat[[1]]$AA, collapse = "")
secondary_structure = paste(RefDB_data$carbonDat[[1]]$SS, collapse = "")
## Function:
calculate_rcf(sequence = sequence, secondary_structure = secondary_structure)
## ------------------------------------------------------------------------
## chemicalShifts and aaFreq are predefined sample variables for demo purpose
## within the BaMORC Package.
calculate_mse(step_ca = 1, step_cb = 1, dat_cacb = chemicalShifts[, c(3,4)],
aa_Freq = aaFreq)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.