\documentclass[shortnames,nojss,notitle,article]{jss}
\usepackage{booktabs}
\usepackage{amssymb}
\usepackage{amsmath}
\usepackage{tablefootnote}
\usepackage[utf8]{inputenc}
%\VignetteIndexEntry{BioMedR: R/Bioconductor Package for generating various molecular representations for chemicals, proteins, DNAs/RNAs and their interactions}
%\VignetteKeywords{protein sequence, drug discovery, DNA sequence, molecular descriptor, molecular fingerprint, similarity, drug-target interaction, GO}
%\VignettePackage{BioMedR}

% header and footer
\usepackage{fancyhdr}
\pagestyle{fancy}
\fancyhead[LE]{\pkg{BioMedR} Manual}
\fancyhead[RO]{\pkg{BioMedR} Manual}
\fancyhead[RE]{}
\fancyhead[LO]{}
\cfoot{\thepage}

\author{Min-feng Zhu\\Central South University \And 
        Jie Dong\\Central South University \And
        Dong-Sheng Cao\\Central South University 
        }
\Plainauthor{Minfeng Zhu, Jie Dong, Dongsheng Cao}

\title{\pkg{BioMedR}: \proglang{R}/Bioconductor Package for generating various molecular representations for chemicals, proteins, DNAs/RNAs and their interactions}
\Plaintitle{BioMedR: R/Bioconductor Package for generating various molecular representations for chemicals, proteins, DNAs/RNAs and their interactions}
\Shorttitle{\pkg{BioMedR}: R/Bioconductor Package afor generating various molecular representations for chemicals, proteins, DNAs/RNAs and their interactions}

\Address{
  Min-feng Zhu \\
  the third xiangya hospital\\
  School of Pharmaceutical Sciences\\
  Central South University\\
  Changsha, Hunan, P. R. China\\
  E-mail: \email{wind2zhu@163.com}\\
  
  
  Jie Dong\\
  School of Pharmaceutical Sciences\\
  Central South University\\
  Changsha, Hunan, P. R. China\\
  E-mail: \email{biomed@csu.edu.cn}\\
  
  Dongsheng Cao\\
  School of Pharmaceutical Sciences\\
  Central South University\\
  Changsha, Hunan, P. R. China\\
  E-mail: \email{oriental-cds@163.com}\\
  URL: \url{http://cbdd.csu.edu.cn}\\
  
}

%
<<prelim,echo=FALSE,print=FALSE>>=
BioMedR.version = 'Release 1'
now.date = strftime(Sys.Date(), "%Y-%m-%d")
@
%

\begin{document}
\SweaveOpts{concordance=TRUE}

    \begin{center}
    \vspace*{\baselineskip}
    \rule{\textwidth}{1.6pt}\vspace*{-\baselineskip}\vspace*{2pt}
    \rule{\textwidth}{0.4pt}\\[2\baselineskip]
    {\LARGE \pkg{BioMedR}\textbf{: \proglang{R}/Bioconductor Package for generating various molecular representations for chemicals, proteins, DNAs/RNAs and their interactions}}\\[1.2\baselineskip]
    \rule{\textwidth}{0.4pt}\vspace*{-\baselineskip}\vspace{3.2pt}
    \rule{\textwidth}{1.6pt}\\[2\baselineskip]
    {\Large Minfeng Zhu, Jie Dong, Dongsheng Cao}\\[\baselineskip]
    {\large Package Version: \Sexpr{BioMedR.version}}\par
    {\large \Sexpr{now.date}}\par
    \vfill    
    \begin{figure}[h]
    \centering
    \includegraphics[width=0.6\textwidth]{fig/logo-panel-text.pdf}
    \end{figure}
    
%    {\scshape Computational Biology and Drug Design Group} \\
%    {\scshape Central South University, China}\par
    \end{center}

\thispagestyle{empty}

\clearpage

\tableofcontents

\thispagestyle{empty}

\clearpage

\setcounter{page}{1}

\section{Introduction}\label{sec:intro}\addcontentsline{toc}{section}{1. Introduction}

The \pkg{BioMedR} package  presented in this manual offers an \proglang{R}/Bioconductor package for generating various molecular representations for chemicals, proteins, DNAs/RNAs and their interactions.

\pkg{BioMedR} implemented and integrated the state-of-the-art protein sequence descriptors, molecular descriptors/fingerprints and DNA/RNAdescriptors with \proglang{R}. For small molecules, the \pkg{BioMedR} package could

\begin{itemize}
\item Calculate 307 molecular descriptors (2D/3D), including constitutional, topological, geometrical, and electronic descriptors, etc.
\item Calculate more than ten types of molecular fingerprints, including FP4 keys, E-state fingerprints, MACCS keys, etc., and parallelized chemical similarity search.
\item Parallelized pairwise similarity computation derived by fingerprints and maximum common substructure search within a list of small molecules.
\item Clustering of Molecules Based on Structural Similarities.
\end{itemize}

For protein sequences, the \pkg{BioMedR} package could

\begin{itemize}
\item Calculate six protein descriptor groups composed of fourteen types of commonly used structural and physicochemical descriptors that include 9,920 descriptors.
\item Calculate profile-based protein representation derived by PSSM (Position-Specific Scoring Matrix).
\item Calculate six types of generalized scales-based descriptors derived by various dimensionality reduction methods for proteochemometric (PCM) modeling.
\item Parallellized pairwise similarity computation derived by protein sequence alignment and Gene Ontology (GO) semantic similarity measures within a list of proteins.
\end{itemize}

For DNA sequences, the \pkg{BioMedR} package could
\begin{itemize}
\item Calculate three nucleic acid composition features describing the local sequence information by means of kmers (subsequences of DNA sequences);
\item Calculate six autocorrelation features describing the level of correlation between two oligonucleotides along a DNA sequence in terms of their specific physicochemical properties;
\item Calculate two pseudo nucleotide composition features, which can be used to represent a DNA sequence with a discrete model or vector yet still keep considerable sequence order information, particularly the global or long-range sequence order information, via the physicochemical properties of its constituent oligonucleotides.
\item Parallellized pairwise similarity computation derived by protein sequence alignment and Gene Ontology (GO) semantic similarity measures within a list of proteins.
\end{itemize}

By combining various types of descriptors for drugs, proteins and DNA/RNA in different methods, interaction descriptors representing protein-protein, compound-compound, DNA-DNA, compound-DNA compound-protein and DNA-protein interactions could be conveniently generated with \pkg{BioMedR}, including:

\begin{itemize}
\item Two types of compound-protein interaction (CPI) descriptors
\item Two types of compound-DNA interaction (CDI) descriptors
\item Two types of DNA-protein interaction (DPI) descriptors
\item Three types of protein-protein interaction (PPI) descriptors
\item Three types of compound-compound interaction (CCI) descriptors
\item Three types of DNA-DNA interaction (DDI) descriptors
\end{itemize}

Several useful auxiliary utilities are also shipped with \pkg{BioMedR}:

\begin{itemize}
\item Parallelized molecule, protein and DNA sequence retrieval from several online databases, like PubChem, ChEMBL, KEGG, DrugBank, UniProt, RCSB PDB, genBank, etc.
\item Loading molecules stored in SMILES/SDF files and loading protein/DNA/RNA sequences from FASTA/PDB files
\item Molecular file format conversion
\end{itemize}

The computed protein sequence descriptors, molecular descriptors/fingerprints, DNA/RNA sequence descriptors, interaction descriptors and pairwise similarities are widely used in various research fields relevant to drug disvery, primarily bioinformatics, chemoinformatics, proteochemometrics and chemogenomics. In this part, there are several examples using aforementioned descriptors and their detailed information are as follows: 

\begin{itemize}
\item Regression Modeling in QSAR Study of logD. A prediction model for logD based on molecular descriptors.
\item Classification Modeling in QSAR Study of hERG. A prediction model for hERG based on molecular fingerprint.
\item Chemical Similarity Searching. A similarity searching study for bcl2 database.
\item Clustering of Molecules Based on Structural Similarity. A clustering process was carried out for bcl2 and resuled in a heatmap and a hierarchical cluster result.
\item Predicting Protein Subcellular Localization. The protein descriptors and random forest were used to build a model for protein subcellular localization.
\item Predicting nucleosome positioning in genomes. The DNA descriptors and random forest were applied to construct the prediction model for the nucleosome positioning in genomes.
\item Predicting Drug-Target Interaction by Integrating Chemical and Genomic Spaces.
\end{itemize}


The \pkg{BioMedR} package is available from Bioconductor (\url{http://bioconductor.org}), visit \url{http://bioconductor.org/packages/release/bioc/html/BioMedR.html} for more details. This vignette corresponds to \pkg{BioMedR} \Sexpr{BioMedR.version} and was typeset on \Sexpr{now.date}.

To install the \pkg{BioMedR} package in \proglang{R}, simply type

\begin{CodeInput}
source('http://bioconductor.org/biocLite.R')
biocLite('BioMedR')
\end{CodeInput}

To make the \pkg{BioMedR} package fully functional (especially the Open Babel related functionalities), we recommend the users also install the \emph{Enhances} packages by using:

\begin{CodeInput}
source('http://bioconductor.org/biocLite.R')
biocLite('BioMedR', dependencies = c('Imports', 'Enhances'))
\end{CodeInput}

Several dependencies of the \pkg{BioMedR} package may require some system-level libraries, check the corresponding manuals of these packages for detailed installation guides.

\section{Miscellaneous Tools}\addcontentsline{toc}{section}{2. Miscellaneous Tools}

In this section, we will briefly introduce some useful tools provided by the \pkg{BioMedR} package.

\subsection{Retrieve small molecules from PubChem, ChEMBL, CAS, KEGG, DrugBank}\addcontentsline{toc}{subsection}{2.1 Retrieve small molecules from PubChem, ChEMBL, CAS, KEGG, DrugBank}

This function \code{BMgetDrugKEGG()} get drug molecules from KEGG by drug ID(s), The input \code{ID} is a character vector specifying the drug ID(s). The returned sequences are stored in a list:

%
\begin{CodeChunk}

\begin{CodeInput}
> ids = c('D00496', 'D00411')
> drugseq = BMgetDrugSmiKEGG(ids)
> print(drugseq)
\end{CodeInput}

\begin{CodeOutput}
[1] "C(C(C(S)(C)C)N)(O)=O"                                                                 
[2] "C=12C(CC=3C(=CC(C(NS(C=4C(=CC=CC4)C)(=O)=O)=O)=CC3)OC)=CN(C1C=CC(=C2)NC
(OC5CCCC5)=O)C"
\end{CodeOutput}
\end{CodeChunk}
%

If the connection is slow or accidentally interrupts, just try more times until success.

The functions in \pkg{BioMedR} named after \code{BMgetDrugMol...()} and \code{BMgetDrugSmi...()} supports the parallelized retrieval of (drug) molecules from PubChem, ChEMBL, CAS, KEGG, and DrugBank.


\subsection{Retrieve protein Sequences from Uniprot, KEGG, RCSBPDB}\addcontentsline{toc}{subsection}{2.2 Retrieve protein Sequences from Uniprot, KEGG, RCSBPDB}

This function \code{BMgetProtseqUniprot()} get protein sequences from uniprot.org by protein ID(s), The input \code{ID} is a character vector specifying the protein ID(s). The returned sequences are stored in a list:

%
\begin{CodeChunk}

\begin{CodeInput}
> ids = c('P00750', 'P00752')
> protseq = BMgetProtSeqUniprot(ids)
> print(protseq)
\end{CodeInput}

\begin{CodeOutput}
[[1]]
[[1]]$`sp|P00750|TPA_HUMAN`
[1] "MDAMKRGLCCVLLLCGAVFVSPSQEIHARFRRGARSYQVICRDEKTQMIYQQHQSWLRPVLRSNRVEYCWCN
SGRAQCHSVPVKSCSEPRCFNGGTCQQALYFSDFVCQCPEGFAGKCCEIDTRATCYEDQGISYRGTWSTAESGAECT
NWNSSALAQKPYSGRRPDAIRLGLGNHNYCRNPDRDSKPWCYVFKAGKYSSEFCSTPACSEGNSDCYFGNGSAYRGT
HSLTESGASCLPWNSMILIGKVYTAQNPSAQALGLGKHNYCRNPDGDAKPWCHVLKNRRLTWEYCDVPSCSTCGLRQ
YSQPQFRIKGGLFADIASHPWQAAIFAKHRRSPGERFLCGGILISSCWILSAAHCFQERFPPHHLTVILGRTYRVVP
GEEEQKFEVEKYIVHKEFDDDTYDNDIALLQLKSDSSRCAQESSVVRTVCLPPADLQLPDWTECELSGYGKHEALSP
FYSERLKEAHVRLYPSSRCTSQHLLNRTVTDNMLCAGDTRSGGPQANLHDACQGDSGGPLVCLNDGRMTLVGIISWG
LGCGQKDVPGVYTKVTNYLDWIRDNMRP"

[[2]]
[[2]]$`sp|P00752|KLK_PIG`
[1] "APPIQSRIIGGRECEKNSHPWQVAIYHYSSFQCGGVLVNPKWVLTAAHCKNDNYEVWLGRHNLFENENTAQF
FGVTADFPHPGFNLSLLKXHTKADGKDYSHDLMLLRLQSPAKITDAVKVLELPTQEPELGSTCEASGWGSIEPGPDB
FEFPDEIQCVQLTLLQNTFCABAHPBKVTESMLCAGYLPGGKDTCMGDSGGPLICNGMWQGITSWGHTPCGSANKPS
IYTKLIFYLDWINDTITENP"
\end{CodeOutput}
\end{CodeChunk}
%

The functions named after \code{BMgetProtSeq...()}, \code{BMgetProtFASTA...()} and \code{BMgetProtPDB...()} supports the parallelized retrieval of proteins from UniProt, KEGG and RCSB PDB.

\subsection{Retrieve DNA/RNA Sequences from GenBank}\addcontentsline{toc}{subsection}{2.3 Retrieve DNA/RNA Sequences from GenBank}

This function \code{BMgetDNAGenBank()} get DNA/RNA sequences from GenBank by GI ID(s), The input \code{ID} is a character vector specifying the GI ID(s). The returned sequences are stored in a list:

%
\begin{CodeChunk}

\begin{CodeInput}
> ids = c('2', '392893239')
> DNAseq = BMgetDNAGenBank(ids)
> print(DNAseq)
\end{CodeInput}

\begin{CodeOutput}
$gi_2
[1] "AATTCATGCGTCCGGACTTCTGCCTCGAGCCGCCGTACACTGGGCCCTGCAAAGCTCGTATCATCCGTTACT
TCTACAATGCAAAGGCAGGCCTGTGTCAGACCTTCGTATACGGCGGTTGCCGTGCTAAGCGTAACAACTTCAAATCC
GCGGAAGACTGCGAACGTACTTGCGGTGGTCCTTAGTAAAGCTTG"

$gi_392893239
[1] "GCCTAAAGACGACCGCGACGCGGCCGCTCGCACTCATAGACTACGCTAGTGGTGAGATACGCAGAGAAAAAG
ACGAGAGAGTATTGAGAGAATGGAGACATCACTACATCTAACATAGGGTCGCCAGTCGTCACCGAATTATTGGATTC
AAATTTAGGTCCC"
\end{CodeOutput}
\end{CodeChunk}
%

\subsection{Read FASTA, PDB Format files}\addcontentsline{toc}{subsection}{2.4 Read FASTA, PDB Format files}

The \code{readFASTA()} function provides a convenient way to read protein/DNA sequences stored in FASTA format files. See \code{?readFASTA} for details. The returned sequences are stored in a named list, whose components are named with the DNA sequences' names.

The Protein Data Bank (pdb) file format is a textual file format describing the three dimen- sional structures of protein. The \code{readPDB()} function provides the function to read protein sequences stored in PDB format files. See ?readPDB for details.

\subsection{Sanity Check of the Deoxyribonucleic Acid Types}\addcontentsline{toc}{subsection}{2.5 Sanity Check of the Deoxyribonucleic Acid Types}

The \code{checkDNA()} function checks if the DNA sequence's deoxyribonucleic acids types are in the 4 default types, which returns a \code{TRUE} if all the deoxyribonucleic acids in the sequence belongs to the 4 default types; The \code{protcheck()} function checks if the protein sequence's amino acid types are in the 20 default types, which returns a \code{TRUE} if all the amino acids in the sequence belongs to the 20 default types:

\begin{CodeInput}
require(BioMedR)
x = readFASTA(system.file('protseq/P00750.fasta', package = 'BioMedR'))[[1]]
# A real sequence
checkProt(x)
## [1] TRUE
# An artificial sequence
checkProt(paste(x, 'Z', sep = ''))
## [1] FALSE
\end{CodeInput}

\subsection{Protein Sequence Partition}\addcontentsline{toc}{subsection}{2.6 Protein Sequence Partition}

The \code{segProt()} function partitions the protein sequences to create sliding windows. This is usually required when creating feature vectors for machine learning tasks. Users could specify a sequence \code{x}, and a character \code{aa}, one of the 20 amino acid types, and a positive integer $k$, which controls the window size (half of the window).

This function returns a named list, each component contains one of the segmentations (a character string), names of the list components are the positions of the specified amino acid in the sequence. See the example below:

\begin{CodeInput}
segProt(x, aa = 'M', k = 5)
\end{CodeInput}

\begin{CodeInput}
## $`48`
## [1] "DEKTQMIYQQH"
## 
## $`242`
## [1] "LPWNSMILIGK"
## 
## $`490`
## [1] "TVTDNMLCAGD"
##
## $`525`
## [1] "LNDGRMTLVGI"
##
\end{CodeInput}

The \pkg{BioMedR} package also integrated the functionality of converting molecular file formats. For example, we could convert the SDF files to SMILES files using \code{convMolFormat()}. 

\subsection{Molecular data manipulation}\addcontentsline{toc}{subsection}{2.7 Molecular data manipulation}
we load the \pkg{BioMedR} package, and read the molecules stored in a SMILES file:

\begin{CodeInput}
smi = system.file('vignettedata/FDAMDD.smi', package = 'BioMedR')
mol = readMolFromSmi(smi, type = 'mol')
\end{CodeInput}

The \code{readMolFromSmi()} function is used for reading molecules from SMILES files, for molecules stored in SDF files, use \code{readMolFromSDF()} instead.

\subsection{Summary}\addcontentsline{toc}{subsection}{2.8 Summary}

The summary of the Retrieving data from various online databases in the \pkg{BioMedR} package is listed in table \ref{tab:dldrug}, \ref{tab:dlprot} and \ref{tab:dldna}.

\begin{table}[htbp]
  \centering
  \caption{Retrieving drug molecular data from various online databases}
  \footnotesize{
    \begin{tabular}{p{120pt}p{260pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
    \code{BMgetDrug()} & Retrieve drug molecules in MOL format and SMILES format from various online databases\\
    \code{BMgetDrugMolDrugBank()} & Retrieve drug molecules in MOL format from DrugBank\\
    \code{BMgetDrugMolPubChem()} & Retrieve drug molecules in MOL format from PubChem\\ 
    \code{BMgetDrugMolChEMBL()} & Retrieve drug molecules in MOL format from ChEMBL\\
    \code{BMgetDrugMolKEGG()} & Retrieve drug molecules in MOL format from the KEGG\\
    \code{BMgetDrugMolCAS()} & Retrieve drug molecules in InChI format from CAS\\
    \code{BMgetDrugSmiDrugBank()} & Retrieve drug molecules in SMILES format from DrugBank\\
    \code{BMgetDrugSmiPubChem()} & Retrieve drug molecules in SMILES format from PubChem\\
    \code{BMgetDrugSmiChEMBL()} & Retrieve drug molecules in SMILES format from ChEMBL\\
    \code{BMgetDrugSmiKEGG()} & Retrieve drug molecules in SMILES format from KEGG\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:dldrug}
\end{table}

\begin{table}[htbp]
  \centering
  \caption{Retrieving protein sequence data from various online databases}
  \footnotesize{
    \begin{tabular}{p{120pt}p{260pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
    \code{BMgetProt()} & Retrieve protein sequence in FASTA format or PDB format from various online databases\\
    \code{BMgetProtFASTAFUniProt()} & Retrieve protein sequence in FASTA format from UniProt\\
    \code{BMgetProtFASTAKEGG()} & Retrieve protein sequence in FASTA format from KEGG\\
    \code{BMgetProtPDBRCSBPDB()} & Retrieve protein sequence in PDB Format from RCSB PDB\\
    \code{BMgetProtSeqUniProt()} & Retrieve protein sequence from UniProt\\
    \code{BMgetProtSeqKEGG()} & Retrieve protein sequence from KEGG\\
    \code{BMgetProtSeqRCSBPDB()} & Retrieve protein sequence from RCSB PDB\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:dlprot}
\end{table}

\begin{table}[htbp]
  \centering
  \caption{Retrieving DNA/RNA sequences data from various online databases}
  \footnotesize{
    \begin{tabular}{p{120pt}p{260pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
    \code{BMgetDNAGenBank()} & Retrieve DNA/RNA sequences in FASTA format from GenBank\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:dldna}
\end{table}

The summary of the data manipulation in the \pkg{BioMedR} package is listed in table \ref{tab:miscprot} and \ref{tab:miscdrug}.
\begin{table}[htbp]
  \centering
  \caption{Protein/DNA sequence data manipulation}
    \begin{tabular}{p{140pt}p{200pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
\code{readFASTA()} & Read protein sequences in FASTA format\\
\code{readPDB()} & Read protein sequences in PDB format\\
\code{segProt()} & Protein sequence segmentation\\
\code{checkProt()} & Check if the protein sequence's amino acid types are the 20 default types\\
\code{checkDNA()} & Check if the DNA/RNA sequence's deoxyribonucleic acid types are the 4 default types\\
    \bottomrule
    \end{tabular}
  \label{tab:miscprot}
\end{table}

\begin{table}[htbp]
  \centering
  \caption{Molecular data manipulation}
    \begin{tabular}{p{140pt}p{200pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
    \code{readMolFromSDF()} & Read molecules from SDF files and return parsed Java molecular object\\
    \code{readMolFromSmi()} & Read molecules from SMILES files and return parsed Java molecular object or plain text list\\
    \code{convMolFormat()} & Chemical file formats conversion\\
    \bottomrule
    \end{tabular}
  \label{tab:miscdrug}
\end{table}


\section{Calculating Drug Molecular Descriptors and Fingerprints}\addcontentsline{toc}{section}{3. Calculating Drug Molecular Descriptors and Fingerprints}

To reasonably and conveniently use the \pkg{BioMedR} package, the users should intelligently evaluate the underlying details of the descriptors provided rather than using this package with their data blindly, especially for these more flexible descriptor types. For a drug molecule, its molecular descriptors and chemical fragments can be calculated by \pkg{rcdk} \citep{steinbeck2003chemistry} package and the \pkg{ChemmineOB} package \citep{chemmineob}.

\subsection{Calculating Drug Molecular Descriptors}\addcontentsline{toc}{subsection}{3.1 Calculating Drug Molecular Descriptors}

\textbf{\subsubsection{logP}}
The atomic parameters was developed to successfully evaluate the molecular water-octanol partition coefficient, which is a measure of hydrophobicity \citep{ghose1986atomic}; The atomic physicochemical parameters was developed to model the dispersive and hydrophobic interactions \citep{ghose1987atomic}.

\begin{CodeInput}
smi = system.file('vignettedata/FDAMDD.smi', package = 'BioMedR')
mol = readMolFromSmi(smi, type = 'mol')
logp = extrDrugALOGP(mol)
head(logp)
\end{CodeInput}

\begin{CodeInput}
##                                                           ALogP     ALogp2
## c1ccc2c(c1)oc(=O)c(C(CC(=O)C)c1ccc([N+](=O)[O-])cc1)c2O  1.4501 2.10279001
## c1(ccc(cc1)O)NC(=O)C                                    -0.2314 0.05354596
## c1ccccc1NC(=O)C                                          0.3317 0.11002489
## n1nc(S(=O)(=O)N)sc1NC(=O)C                               0.1354 0.01833316
## O=S(=O)(c1ccc(cc1)C(=O)C)NC(=O)NC1CCCCC1                -2.0362 4.14611044
## CC(=O)NO                                                -1.0852 1.17765904
##                                                             AMR
## c1ccc2c(c1)oc(=O)c(C(CC(=O)C)c1ccc([N+](=O)[O-])cc1)c2O 98.1118
## c1(ccc(cc1)O)NC(=O)C                                    44.7549
## c1ccccc1NC(=O)C                                         43.1494
## n1nc(S(=O)(=O)N)sc1NC(=O)C                              44.2004
## O=S(=O)(c1ccc(cc1)C(=O)C)NC(=O)NC1CCCCC1                76.3739
## CC(=O)NO                                                15.4305
\end{CodeInput}

This function returns three columns named \code{ALogP}, \code{ALogp2} and \code{AMR}. Note the underlying code in CDK assumes that aromaticity has been detected before evaluating this descriptor. The code also expects that the molecule will have hydrogens explicitly set. For SD files, this is usually not a problem since hydrogens are explicit. But for the case of molecules obtained from SMILES, hydrogens must be made explicit.

\textbf{\subsubsection{WienerNumbers}}
The wiener polarity number p is defined as the number of pairs of carbon atoms which are separated by three carbon-carbon bonds. The wiener path number w is defined as the sum of the tiistmces between any two carbon atoms in the molecule. They were proposed by Harry Wiener in 1947 to study the correlation between the boiling points of the paraffins and the structural variables \citep{wiener1947structural}.

\begin{CodeInput}
wiener = extrDrugWienerNumbers(mol)
head(wiener)
\end{CodeInput}

\begin{CodeInput}
##                                                         WPATH WPOL
## c1ccc2c(c1)oc(=O)c(C(CC(=O)C)c1ccc([N+](=O)[O-])cc1)c2O  1592   44
## c1(ccc(cc1)O)NC(=O)C                                      166   11
## c1ccccc1NC(=O)C                                           126    9
## n1nc(S(=O)(=O)N)sc1NC(=O)C                                257   14
## O=S(=O)(c1ccc(cc1)C(=O)C)NC(=O)NC1CCCCC1                 1176   31
## CC(=O)NO                                                   18    2
\end{CodeInput}


This descriptor calculates the Wiener numbers, including the 
Wiener Path number and the Wiener Polarity Number. Wiener path number: half the sum of all the distance matrix entries; Wiener polarity number: half the sum of all the distance matrix entries with a value of 3. 

\textbf{\subsubsection{BCUT}}
The BCUT value based on the activity-seeded and  structure-based clustering was proposed by R. S. Pearlman in 1999 \citep{pearlman1999metric}. It has been proven to be an ideal approach to validate either high- or low-dimensional chemistry-space metrics when validation by computer-graphic visualization is not possible.

\begin{CodeInput}
bcut = extrDrugBCUT(mol)
head(bcut)
\end{CodeInput}

\begin{CodeInput}
##                                                         BCUTw.1l BCUTw.1h
## c1ccc2c(c1)oc(=O)c(C(CC(=O)C)c1ccc([N+](=O)[O-])cc1)c2O 11.99616 16.00080
## c1(ccc(cc1)O)NC(=O)C                                    11.89000 15.99592
## c1ccccc1NC(=O)C                                         11.89000 15.99492
## n1nc(S(=O)(=O)N)sc1NC(=O)C                              11.89000 31.97307
## O=S(=O)(c1ccc(cc1)C(=O)C)NC(=O)NC1CCCCC1                11.90000 31.97207
## CC(=O)NO                                                11.99900 16.00115
##                                                           BCUTc.1l
## c1ccc2c(c1)oc(=O)c(C(CC(=O)C)c1ccc([N+](=O)[O-])cc1)c2O -0.3848947
## c1(ccc(cc1)O)NC(=O)C                                    -0.3607188
## c1ccccc1NC(=O)C                                         -0.2810520
## n1nc(S(=O)(=O)N)sc1NC(=O)C                              -0.2805235
## O=S(=O)(c1ccc(cc1)C(=O)C)NC(=O)NC1CCCCC1                -0.2941177
## CC(=O)NO                                                -0.3632885
##                                                          BCUTc.1h BCUTp.1l
## c1ccc2c(c1)oc(=O)c(C(CC(=O)C)c1ccc([N+](=O)[O-])cc1)c2O 0.2972769 3.726860
## c1(ccc(cc1)O)NC(=O)C                                    0.2511029 4.199143
## c1ccccc1NC(=O)C                                         0.2510941 4.191793
## n1nc(S(=O)(=O)N)sc1NC(=O)C                              0.2643700 4.464387
## O=S(=O)(c1ccc(cc1)C(=O)C)NC(=O)NC1CCCCC1                0.2858059 4.592529
## CC(=O)NO                                                0.2197801 3.520334
##                                                          BCUTp.1h
## c1ccc2c(c1)oc(=O)c(C(CC(=O)C)c1ccc([N+](=O)[O-])cc1)c2O 11.858618
## c1(ccc(cc1)O)NC(=O)C                                     8.415819
## c1ccccc1NC(=O)C                                          8.357006
## n1nc(S(=O)(=O)N)sc1NC(=O)C                              12.193660
## O=S(=O)(c1ccc(cc1)C(=O)C)NC(=O)NC1CCCCC1                11.513438
## CC(=O)NO                                                 5.198756
\end{CodeInput}

This function return a data frame, each row represents one of the molecules, each column represents one feature. This function returns 6 columns, See \code{?extrDrugBCUT} for details.

By default, the descriptor will return the highest and lowest eigenvalues for the three classes of descriptor in a single ArrayList (in the order shown above). However it is also possible to supply a parameter list indicating how many the highest and lowest eigenvalues (for each class of descriptor) are required. The descriptor works with the hydrogen depleted molecule.

A side effect of specifying the number of highest and lowest eigenvalues is that it is possible to get two copies of all the eigenvalues. That is, if a molecule has 5 heavy atoms, then specifying the 5 highest eigenvalues returns all of them, and specifying the 5 lowest eigenvalues returns all of them, resulting in two copies of all the eigenvalues.

Note that it is possible to specify an arbitrarily large number of eigenvalues to be returned. However if the number (i.e., nhigh or nlow) is larger than the number of heavy atoms, the remaining eignevalues will be \code{NaN}.

Given the above description, if the aim is to get all the eigenvalues for a molecule, you should set nlow to 0 and specify the number of heavy atoms (or some large number) for nhigh (or vice versa).

\subsection{Calculating Drug Molecular Fingerprints}\addcontentsline{toc}{subsection}{3.2 Calculating Drug Molecular Fingerprints}

\textbf{\subsubsection{Estate}}
Estate was an electrotopoligicl state indice for atom types combining the electronic, topological and valence state information proposed by Lowell H. Hall in 1995. It is useful for database characterization, molecular similarity analysis, and QSAR.

\begin{CodeInput}
estate = extrDrugEstate(mol)
head(estate)
\end{CodeInput}

\begin{CodeInput}
## $`79`
##  [1]  7  9 12 13 16 17 18 31 34 35 37
##
## $`79`
## [1]  7 12 16 17 24 34 35
##
## $`79`
## [1]  7 12 16 17 24 35
##
## $`79`
## [1]  7 16 17 21 24 29 35 51 53
##
## $`79`
## [1]  7  9 12 13 16 17 24 35 53
##
## $`79`
## [1]  7 16 24 34 35
\end{CodeInput}

\textbf{\subsubsection{MACCS}}
The MACCS fingerprint uses a dictionary of MDL keys, which contains a set of 166 mostly common substructure features. These are referred to as the MDL public MACCS keys.

\begin{CodeInput}
maccs = extrDrugEstate(mol)
head(maccs)
\end{CodeInput}

\begin{CodeInput}
## $`79`
##  [1]  7  9 12 13 16 17 18 31 34 35 37
##
## $`79`
## [1]  7 12 16 17 24 34 35
##
## $`79`
## [1]  7 12 16 17 24 35
##
## $`79`
## [1]  7 16 17 21 24 29 35 51 53
##
## $`79`
## [1]  7  9 12 13 16 17 24 35 53
##
## $`79`
## [1]  7 16 24 34 35
\end{CodeInput}

\code{extrDrugMACCS} and \code{extrDrugEstate} return a list, each component represents one of the molecules, each element in the component represents the index of which element in the fingerprint is 1. Each component's name is the length of the fingerprints.

what's more, we can calculate several selected molecular descriptors. The corresponding functions for molecular descriptor calculation are all named after \code{extrDrug...()} in \pkg{BioMedR}:

\begin{CodeInput}
# calculate selected molecular descriptors
x = suppressWarnings(cbind(
    extrDrugALOGP(mol), 
    extrDrugApol(mol), 
    extrDrugECI(mol), 
    extrDrugTPSA(mol), 
    extrDrug...(),
    ...)
\end{CodeInput}

\subsection{Summary}\addcontentsline{toc}{subsection}{3.3 Summary}

The summary of the drug molecule descriptors in the \pkg{BioMedR} package is listed in table \ref{tab:drug}.

\begin{table}[htbp]
  \centering
  \caption{Molecular descriptors}
  \scriptsize{
  \begin{tabular}{p{180pt}p{240pt}}
    \addlinespace
    \toprule
    Function name & Descriptor name \\
    \midrule
    \code{extrDrugAIO()} & All the molecular descriptors in the \pkg{BioMedR} package\\
    \code{extrDrugALOGP()} & Atom additive logP and molar refractivity values descriptor\\
    \code{extrDrugAminoAcidCount()} & Number of amino acids\\
    \code{extrDrugApol()} & Sum of the atomic polarizabilities\\
    \code{extrDrugAromaticAtomsCount()} & Number of aromatic atoms\\
    \code{extrDrugAromaticBondsCount()} & Number of aromatic bonds\\
    \code{extrDrugAtomCount()} & Number of atom descriptor\\
    \code{extrDrugAutocorrelationCharge()} & Moreau-Broto autocorrelation descriptors using partial charges\\
\code{extrDrugAutocorrelationMass()} & Moreau-Broto autocorrelation descriptors using atomic weight\\
\code{extrDrugAutocorrelationPolarizability()} & Moreau-Broto autocorrelation descriptors using polarizability\\
\code{extrDrugBCUT()} & BCUT, the eigenvalue based descriptor\\
\code{extrDrugBondCount()} & Number of bonds of a certain bond order\\
\code{extrDrugBPol()} & Sum of the absolute value of the difference between atomic polarizabilities of all bonded atoms in the molecule\\
\code{extrDrugCarbonTypes()} & Topological descriptor characterizing the carbon connectivity in terms of hybridization\\
\code{extrDrugChiChain()} & Kier \& Hall Chi chain indices of orders 3, 4, 5, 6 and 7\\
\code{extrDrugChiCluster()} & Kier \& Hall Chi cluster indices of orders 3, 4, 5 and 6\\
\code{extrDrugChiPath()} & Kier \& Hall Chi path indices of orders 0 to 7\\
\code{extrDrugChiPathCluster()} & Kier \& Hall Chi path cluster indices of orders 4, 5 and 6\\
\code{extrDrugCPSA()} & Descriptors combining surface area and partial charge information\\
\code{extrDrugDescOB()} & Molecular descriptors provided by OpenBabel\\
\code{extrDrugECI()} & Eccentric connectivity index descriptor\\
\code{extrDrugFMF()} & FMF descriptor\\
\code{extrDrugFragmentComplexity()} & Complexity of a system\\
\code{extrDrugGravitationalIndex()} & Mass distribution of the molecule\\
\code{extrDrugHBondAcceptorCount()} & Number of hydrogen bond acceptors\\
\code{extrDrugHBondDonorCount()} & Number of hydrogen bond donors\\
\code{extrDrugHybridizationRatio()} & Molecular complexity in terms of carbon hybridization states\\
\code{extrDrugIPMolecularLearning()} & Ionization potential\\
\code{extrDrugKappaShapeIndices()} & Kier \& Hall Kappa molecular shape indices\\
\code{extrDrugKierHallSmarts()} & Number of occurrences of the E-State fragments\\
\code{extrDrugLargestChain()} & Number of atoms in the largest chain\\
\code{extrDrugLargestPiSystem()} & Number of atoms in the largest Pi chain\\
\code{extrDrugLengthOverBreadth()} & Ratio of length to breadth descriptor\\
\code{extrDrugLongestAliphaticChain()} & Number of atoms in the longest aliphatic chain\\
\code{extrDrugMannholdLogP()} & LogP based on the number of carbons and hetero atoms\\
\code{extrDrugMDE()} & Molecular Distance Edge (MDE) descriptors for C, N and O\\
\code{extrDrugMomentOfInertia()} & Principal moments of inertia and ratios of the principal moments\\
\code{extrDrugPetitjeanNumber()} & Petitjean number of a molecule\\
\code{extrDrugPetitjeanShapeIndex()} & Petitjean shape indices\\
\code{extrDrugRotatableBondsCount()} & Number of non-rotatable bonds on a molecule\\
\code{extrDrugRuleOfFive()} & Number failures of the Lipinski's Rule Of Five\\
\code{extrDrugTPSA()} & Topological Polar Surface Area (TPSA)\\
\code{extrDrugVABC()} & Volume of a molecule\\
\code{extrDrugVAdjMa()} & Vertex adjacency information of a molecule\\
\code{extrDrugWeight()} & Total weight of atoms\\
\code{extrDrugWeightedPath()} & Weighted path (Molecular ID)\\
\code{extrDrugWHIM()} & Holistic descriptors described by Todeschini et al.\\
\code{extrDrugWienerNumbers()} & Wiener path number and wiener polarity number\\
\code{extrDrugXLogP()} & Prediction of logP based on the atom-type method called XLogP\\
\code{extrDrugZagrebIndex()} & Sum of the squared atom degrees of all heavy atoms\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:drug}
\end{table}

The summary of the drug molecule fingerprint in the \pkg{BioMedR} package is listed in table \ref{tab:fp}.

\begin{table}[htbp]
  \centering
  \caption{Molecular fingerprints}
  \scriptsize{
  \begin{tabular}{p{160pt}p{260pt}}
    \addlinespace
    \toprule
    Function name & Fingerprint type \\
    \midrule
    \code{extrDrugStandard()} & Standard molecular fingerprints (in compact format)\\
    \code{extrDrugStandardComplete()} & Standard molecular fingerprints (in complete format)\\
    \code{extrDrugExtended()} & Extended molecular fingerprints (in compact format)\\
    \code{extrDrugExtendedComplete()} & Extended molecular fingerprints (in complete format)\\
    \code{extrDrugGraph()} & Graph molecular fingerprints (in compact format)\\
    \code{extrDrugGraphComplete()} & Graph molecular fingerprints (in complete format)\\
    \code{extrDrugHybridization()} & Hybridization molecular fingerprints (in compact format)\\
    \code{extrDrugHybridizationComplete()} & Hybridization molecular fingerprints (in complete format)\\
    \code{extrDrugMACCS()} & MACCS molecular fingerprints (in compact format)\\
    \code{extrDrugMACCSComplete()} & MACCS molecular fingerprints (in complete format)\\
    \code{extrDrugEstate()} & E-State molecular fingerprints (in compact format)\\
    \code{extrDrugEstateComplete()} & E-State molecular fingerprints (in complete format)\\
    \code{extrDrugPubChem()} & PubChem molecular fingerprints (in compact format)\\
    \code{extrDrugPubChemComplete()} & PubChem molecular fingerprints (in complete format)\\
    \code{extrDrugKR()} & KR (Klekota and Roth) molecular fingerprints (in compact format)\\
    \code{extrDrugKRComplete()} & KR (Klekota and Roth) molecular fingerprints (in complete format)\\
    \code{extrDrugShortestPath()} & Shortest Path molecular fingerprints (in compact format)\\
    \code{extrDrugShortestPathComplete()} & Shortest Path molecular fingerprints (in complete format)\\
    \code{extrDrugOBFP2()} & FP2 molecular fingerprints\\
    \code{extrDrugOBFP3()} & FP3 molecular fingerprints\\
    \code{extrDrugOBFP4()} & FP4 molecular fingerprints\\
    \code{extrDrugOBMACCS()} & MACCS molecular fingerprints\\
    \code{extrDrugAP()} & atom pair fingerprints\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:fp}
\end{table}



\section{Calculating Commonly Used Protein Descriptors }\addcontentsline{toc}{section}{4. Calculating Commonly Used Protein Descriptors}

\textbf{Disclaimer.} Users of the \pkg{BioMedR} package need to intelligently evaluate the underlying details of the descriptors provided, instead of using BioMedR with their data blindly, especially for the descriptor types with more flexibility. It would be wise for the users to use some negative and positive control comparisons where relevant to help guide interpretation of the results.

A protein or peptide sequence with $N$ amino acid residues could be generally represented as $\{\,R_1, R_2, \ldots, R_n\,\}$, where $R_i$ represents the residue at the $i$-th position in the sequence. The labels $i$ and $j$ are used to index amino acid position in a sequence, and $r$, $s$, $t$ are used to represent the amino acid type. The computed descriptors are roughly divided into 4 groups according to their known applications described in the literature.

A protein sequence could be divided equally into segments and the methods, described as follows for the global sequence, could be applied to each segment.

\subsection{Amino Acid Composition (AAC)}\addcontentsline{toc}{subsection}{4.1 Amino Acid Composition (AAC)}

The Amino Acid Composition (AAC) is the fraction of each amino acid type within a protein. The fractions of all 20 natural amino acids are calculated as:

$$
f(r) = \frac{N_r}{N} \quad r = 1, 2, \ldots, 20.
$$

where $N_r$ is the number of the amino acid type $r$ and $N$ is the length of the sequence.

As was described above, we could use the function \code{extrProtAAC()} to extrProt the descriptors (features) from protein sequences:

\begin{CodeInput}
require(BioMedR)
x = readFASTA(system.file('protseq/P00750.fasta', package = 'BioMedR'))[[1]]
extrProtAAC(x)
\end{CodeInput}

\begin{CodeInput}
##          Q          G          H          I          L          K
## 0.04804270 0.08185053 0.03024911 0.03558719 0.07651246 0.03914591
##          M          F          P          S          T          W
## 0.01245552 0.03202847 0.05338078 0.08896797 0.04448399 0.02313167
##          Y          V
## 0.04270463 0.04982206
\end{CodeInput}

Here with the function \code{readFASTA()} we loaded a single protein sequence (P00750, Tissue-type plasminogen activator) from a FASTA format file. Then extrProted the AAC descriptors with \code{extrProtAAC()}. The result returned is a named vector, whose elements are tagged with the name of each amino acid.

\subsection{Dipeptide Composition (DC)}\addcontentsline{toc}{subsection}{4.2 Dipeptide Composition (DC)}

The Dipeptide Composition (DC) gives 400 descriptors, defined as:

$$
f(r, s) = \frac{N_{rs}}{N - 1} \quad r, s = 1, 2, \ldots, 20.
$$

where $N_{rs}$ is the number of dipeptide represented by amino acid type $r$ and type $s$. Similar to \code{extrProtAAC()}, here we use \code{extrProtDC()} to compute the descriptors:

\begin{CodeInput}
dc = extrProtDC(x)
head(dc, n = 18L)
\end{CodeInput}

\begin{CodeInput}
##          AA          RA          NA          DA          CA          EA
## 0.003565062 0.003565062 0.000000000 0.007130125 0.003565062 0.003565062
##          QA          GA          HA          IA          LA          KA
## 0.007130125 0.007130125 0.001782531 0.003565062 0.001782531 0.001782531
##          MA          FA          PA          SA          TA          WA
## 0.000000000 0.005347594 0.003565062 0.007130125 0.003565062 0.000000000
\end{CodeInput}

Here we only showed the first 30 elements of the result vector and omitted the rest of the result. The element names of the returned vector are self-explanatory as before.

\subsection{Tripeptide Composition (TC)}\addcontentsline{toc}{subsection}{4.3 Tripeptide Composition (TC)}

The Tripeptide Composition (TC) gives 8000 descriptors, defined as:

$$
f(r, s, t) = \frac{N_{rst}}{N - 2} \quad r, s, t = 1, 2, \ldots, 20
$$

where $N_{rst}$ is the number of tripeptides represented by amino acid type $r$, $s$ and $t$. With function \code{extrProtTC()}, we could easily obtain the length-8000 descriptor, to save some space, here we also omitted the tedious outputs:

\begin{CodeInput}
tc = extrProtTC(x)
head(tc, n = 12L)
\end{CodeInput}

\begin{CodeInput}
##         AAA         RAA         NAA         DAA         CAA         EAA
## 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
##         QAA         GAA         HAA         IAA         LAA         KAA
## 0.001785714 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
\end{CodeInput}

\subsection{Autocorrelation Descriptors}\addcontentsline{toc}{subsection}{4.4 Autocorrelation Descriptors}

Autocorrelation descriptors are defined based on the distribution of amino acid properties along the sequence. The amino acid properties used here are various types of amino acids index (Retrieved from AAindex Database: \url{http://www.genome.jp/dbget/aaindex.html}, see \citet{aaindex1999}, \citet{aaindex2000}, and \citet{aaindex2008}). Three types of autocorrelation descriptors are defined here and described below.

All the amino acid indices are centralized and standardized before the calculation, i.e.

$$
P_r = \frac{P_r - \bar{P}}{\sigma}
$$

where $\bar{P}$ is the average of the property of the 20 amino acids:

$$
\bar{P} = \frac{\sum_{r=1}^{20} P_r}{20} \quad \textrm{and} \quad \sigma = \sqrt{\frac{1}{2} \sum_{r=1}^{20} (P_r - \bar{P})^2}
$$

\textbf{\subsubsection{Normalized Moreau-Broto Autocorrelation Descriptors}}\label{sssec:moreaubroto}

Moreau-Broto autocorrelation descriptors application to protein sequences could be defined as:

$$
AC(d) = \sum_{i=1}^{N-d} P_i P_{i + d} \quad d = 1, 2, \ldots, \textrm{nlag}
$$

where $d$ is called the lag of the autocorrelation and $P_i$ and $P_{i+d}$ are the properties of the amino acids at position $i$ and $i+d$, respectively. $\textrm{nlag}$ is the maximum value of the lag.

The normalized Moreau-Broto autocorrelation descriptors are defined as:

$$
ATS(d) = \frac{AC(d)}{N-d} \quad d = 1, 2, \ldots, \textrm{nlag}
$$

The corresponding function for this descriptor is \code{extrProtMoreauBroto()}. A typical call could be:

\begin{CodeInput}
moreau = extrProtMoreauBroto(x)
head(moreau, n = 12L)
\end{CodeInput}

\begin{CodeInput}
##  CIDH920105.lag1  CIDH920105.lag2  CIDH920105.lag3  CIDH920105.lag4
##      0.081573213     -0.016064817     -0.015982990     -0.025739038
##  CIDH920105.lag5  CIDH920105.lag6  CIDH920105.lag7  CIDH920105.lag8
##      0.079058632     -0.042771564     -0.036320847      0.024087298
##  CIDH920105.lag9 CIDH920105.lag10 CIDH920105.lag11 CIDH920105.lag12
##     -0.005273958      0.052274763      0.082170073      0.005419919
\end{CodeInput}

The 8 default properties used here are:

\begin{itemize}
\item \textbf{AccNo. CIDH920105} --- {Normalized Average Hydrophobicity Scales}
\item \textbf{AccNo. BHAR880101} --- {Average Flexibility Indices}
\item \textbf{AccNo. CHAM820101} --- {Polarizability Parameter}
\item \textbf{AccNo. CHAM820102} --- {Free Energy of Solution in Water, kcal/mole}
\item \textbf{AccNo. CHOC760101} --- {Residue Accessible Surface Area in Tripeptide}
\item \textbf{AccNo. BIGC670101} --- {Residue Volume}
\item \textbf{AccNo. CHAM810101} --- {Steric Parameter}
\item \textbf{AccNo. DAYM780201} --- {Relative Mutability}
\end{itemize}

Users could change the property names of AAindex database with the argument \code{props}.
 The AAindex data shipped with \pkg{BioMedR} could be loaded by \code{data(AAindex)}, which has the detailed information of each property. With the argument \code{customprops} and \code{nlag}, users could specify their own properties and lag value to calculate with. For illustration, we could use:

\begin{CodeInput}
# Define 3 custom properties
myprops = data.frame(AccNo = c("MyProp1", "MyProp2", "MyProp3"),
                     A = c(0.62,  -0.5, 15),  R = c(-2.53,   3, 101),
                     N = c(-0.78,  0.2, 58),  D = c(-0.9,    3, 59),
                     C = c(0.29,    -1, 47),  E = c(-0.74,   3, 73),
                     Q = c(-0.85,  0.2, 72),  G = c(0.48,    0, 1),
                     H = c(-0.4,  -0.5, 82),  I = c(1.38, -1.8, 57),
                     L = c(1.06,  -1.8, 57),  K = c(-1.5,    3, 73),
                     M = c(0.64,  -1.3, 75),  F = c(1.19, -2.5, 91),
                     P = c(0.12,     0, 42),  S = c(-0.18, 0.3, 31),
                     T = c(-0.05, -0.4, 45),  W = c(0.81, -3.4, 130),
                     Y = c(0.26,  -2.3, 107), V = c(1.08, -1.5, 43))

# Use 4 properties in the AAindex database, and 3 cutomized properties
moreau2 = extrProtMoreauBroto(x, customprops = myprops,
                             props = c('CIDH920105', 'BHAR880101',
                                       'CHAM820101', 'CHAM820102',
                                       'MyProp1', 'MyProp2', 'MyProp3'))
head(moreau2, n = 12L)
\end{CodeInput}

\begin{CodeInput}
##  CIDH920105.lag1  CIDH920105.lag2  CIDH920105.lag3  CIDH920105.lag4
##      0.081573213     -0.016064817     -0.015982990     -0.025739038
##  CIDH920105.lag5  CIDH920105.lag6  CIDH920105.lag7  CIDH920105.lag8
##      0.079058632     -0.042771564     -0.036320847      0.024087298
##  CIDH920105.lag9 CIDH920105.lag10 CIDH920105.lag11 CIDH920105.lag12
##     -0.005273958      0.052274763      0.082170073      0.005419919
\end{CodeInput}

About the standard input format of \code{props} and \code{customprops}, see \code{?extrProtMoreauBroto} for details.

\textbf{\subsubsection{Moran Autocorrelation Descriptors}}\label{sssec:moran}

Moran autocorrelation descriptors application to protein sequence may be defined as:

$$
I(d) = \frac{\frac{1}{N-d} \sum_{i=1}^{N-d} (P_i - \bar{P}') (P_{i+d} - \bar{P}')}{\frac{1}{N} \sum_{i=1}^{N} (P_i - \bar{P}')^2} \quad d = 1, 2, \ldots, 30
$$

where $d$ and $P_i$ and $P_{i+d}$ are defined in the same way as in the first place, and $\bar{P}'$ is the considered property $P$ along the sequence, i.e.,

$$
\bar{P}' = \frac{\sum_{i=1}^N P_i}{N}
$$

$d$, $P$, $P_i$ and $P_{i+d}$, $\textrm{nlag}$ have the same meaning as above.

With \code{extrProtMoran()}, which has exactly the same arguments with \code{extrProtMoreauBroto()}, we could compute the Moran autocorrelation descriptors (only output the first 36 elements of the result):

\begin{CodeInput}
# Use the 3 custom properties defined before
# and 4 properties in the AAindex database
moran = extrProtMoran(x, customprops = myprops,
                     props = c('CIDH920105', 'BHAR880101',
                               'CHAM820101', 'CHAM820102',
                               'MyProp1', 'MyProp2', 'MyProp3'))
head(moran, n = 12L)
\end{CodeInput}

\begin{CodeInput}
##  CIDH920105.lag1  CIDH920105.lag2  CIDH920105.lag3  CIDH920105.lag4
##      0.062895724     -0.044827681     -0.045065117     -0.055955678
##  CIDH920105.lag5  CIDH920105.lag6  CIDH920105.lag7  CIDH920105.lag8
##      0.060586377     -0.074128412     -0.067308852     -0.001293384
##  CIDH920105.lag9 CIDH920105.lag10 CIDH920105.lag11 CIDH920105.lag12
##     -0.033747588      0.029392193      0.061789800     -0.023368437
\end{CodeInput}

\textbf{\subsubsection{Geary Autocorrelation Descriptors}}\label{sssec:geary}

Geary autocorrelation descriptors for protein sequence could be defined as:

$$
C(d) = \frac{\frac{1}{2(N-d)} \sum_{i=1}^{N-d} (P_i - P_{i+d})^2}{\frac{1}{N-1} \sum_{i=1}^{N} (P_i - \bar{P}')^2} \quad d = 1, 2, \ldots, 30
$$

where $d$, $P$, $P_i$ and $P_{i+d}$, $\textrm{nlag}$ have the same meaning as above.

For each amino acid index, there will be $3 \times \textrm{nlag}$ autocorrelation descriptors. The usage of \code{extrProtGeary()} is exactly the same with \code{extrProtMoreauBroto()} and \code{extrProtMoran()}:

\begin{CodeInput}
# Use the 3 custom properties defined before
# and 4 properties in the AAindex database
geary = extrProtGeary(x, customprops = myprops,
                     props = c('CIDH920105', 'BHAR880101',
                               'CHAM820101', 'CHAM820102',
                               'MyProp1', 'MyProp2', 'MyProp3'))
head(geary, n = 12L)
\end{CodeInput}

\begin{CodeInput}
##  CIDH920105.lag1  CIDH920105.lag2  CIDH920105.lag3  CIDH920105.lag4
##        0.9361830        1.0442920        1.0452843        1.0563467
##  CIDH920105.lag5  CIDH920105.lag6  CIDH920105.lag7  CIDH920105.lag8
##        0.9406031        1.0765517        1.0675786        0.9991363
##  CIDH920105.lag9 CIDH920105.lag10 CIDH920105.lag11 CIDH920105.lag12
##        1.0316555        0.9684585        0.9353130        1.0201990
\end{CodeInput}

\subsection{Composition / Transition / Distribution}\addcontentsline{toc}{subsection}{4.5 Composition / Transition / Distribution}

These descriptors are developed and described by \citet{dubchak1} and \citet{dubchak2}.

\begin{figure}[htbp]
\centering
\includegraphics[width=\textwidth]{fig/CTD.pdf}
\caption{The sequence of a hypothetic protein indicating the construction of composition, transition and distribution descriptors of a protein. Sequence index indicates the position of an amino acid in the sequence. The index for each type of amino acids in the sequence (`1', `2' or `3') indicates the position of the first, second, third, ... of that type of amino acid. 1/2 transition indicates the position of `12' or `21' pairs in the sequence (1/3 and 2/3 are defined in the same way.).} \label{fig:ctd}
\end{figure}

\textbf{Step 1: Sequence Encoding}

The amino acids are divided in three classes according to its attribute and each amino acid is encoded by one of the indices 1, 2, 3 according to which class it belonged. The attributes used here include hydrophobicity, normalized van der Waals volume polarity, and polarizability, as in the references. The corresponding division is in the table 1.

\begin{table}[htbp]
  \centering
  \caption{Amino acid attributes and the division of the amino acids into three groups for each attribute}
  \scriptsize{
    \begin{tabular}{cccc}
    \addlinespace
    \toprule
          & \textbf{Group 1} & \textbf{Group 2} & \textbf{Group 3} \\
    \midrule
    Hydrophobicity & Polar & Neutral & Hydrophobicity \\
          & R, K, E, D, Q, N & G, A, S, T, P, H, Y & C, L, V, I, M, F, W \\
          \midrule
    Normalized van der  & 0-2.78  & 2.95-4.0  & 4.03-8.08 \\
    Waals Volume    & G, A, S, T, P, D, C & N, V, E, Q, I, L  & M, H, K, F, R, Y, W \\
    \midrule
    Polarity & 4.9-6.2  & 8.0-9.2  & 10.4-13.0 \\
          & L, I, F, W, C, M, V, Y  & P, A, T, G, S  & H, Q, R, K, N, E, D \\
          \midrule
    Polarizability & 0-1.08  & 0.128-0.186  & 0.219-0.409 \\
          & G, A, S, D, T & C, P, N, V, E, Q, I, L  & K, M, H, F, R, Y, W \\
          \midrule
    Charge & Positive  & Neutral  & Negative \\
          & K, R  & \tiny{A, N, C, Q, G, H, I, L, M, F, P, S, T, W, Y, V}  & D, E \\
          \midrule
    Secondary & Helix  & Strand  & Coil \\
    Structure & E, A, L, M, Q, K, R, H  & V, I, Y, C, W, F, T  & G, N, P, S, D \\
    \midrule
    Solvent  & Buried  & Exposed  & Intermediate \\
    Accessibility & A, L, F, C, G, I, V, W  & R, K, Q, E, N, D  & M, S, P, T, H, Y \\
    \bottomrule
    \end{tabular}
  }
  \label{tab:ctd}
\end{table}

For example, for a given sequence ``MTEITAAMVKELRESTGAGA'', it will be encoded as ``32132223311311222222'' according to its hydrophobicity division.

\textbf{Step 2: Compute Composition, Transition and Distribution Descriptors}

Three descriptors, \emph{Composition} (\emph{C}), \emph{Transition} (\emph{T}), and \emph{Distribution} (\emph{D}) were calculated for a given attribute as follows.

\textbf{\subsubsection{Composition}}

It is the global percent for each encoded class in the sequence. In the above example using hydrophobicity division, the numbers for encoded classes ``1'', ``2'', ``3'' are 5, 10, 5 respectively, so the compositions for them are $5/20=25\%$, $10/20=10\%$, and $5/20=25\%$ respectively, where 20 is the length of the protein sequence. Composition can be defined as

$$
C_r = \frac{n_r}{n} \quad r = 1, 2, 3
$$

where $n_r$ is the number of amino acid type $r$ in the encoded sequence and $N$ is the length of the sequence. An example for \code{extrProtCTDC()} could be:

\begin{CodeInput}
ctdc = extrProtCTDC(x)
head(ctdc, 12L)
\end{CodeInput}

\begin{CodeInput}
##  prop1.G1  prop1.G2  prop1.G3  prop2.G1  prop2.G2  prop2.G3  prop3.G1
## 0.2971530 0.4056940 0.2971530 0.4519573 0.2971530 0.2508897 0.3398577
##  prop3.G2  prop3.G3  prop4.G1  prop4.G2  prop4.G3
## 0.3327402 0.3274021 0.3309609 0.4181495 0.2508897
\end{CodeInput}

The result shows the elements whose names are \code{PropertyNumber.GroupNumber} in the returned vector.

\textbf{\subsubsection{Transition}}

A transition from class 1 to 2 is the percent frequency with which 1 is followed by 2 or 2 is followed by 1 in the encoded sequence. Transition descriptor can be calculated as

$$
T_{rs} = \frac{n_{rs} + n_{sr}}{N - 1} \quad rs = \textrm{`12'}, \textrm{`13'}, \textrm{`23'}
$$

where $n_{rs}$, $n_{sr}$ is the numbers of dipeptide encoded as ``rs'' and ``sr'' respectively in the sequence and $N$ is the length of the sequence. An example for \code{extrProtCTDT()} could be:

\begin{CodeInput}
ctdt = extrProtCTDT(x)
head(ctdt, 12L)
\end{CodeInput}

\begin{CodeInput}
## prop1.Tr1221 prop1.Tr1331 prop1.Tr2332 prop2.Tr1221 prop2.Tr1331
##    0.2709447    0.1604278    0.2335116    0.2673797    0.2263815
## prop2.Tr2332 prop3.Tr1221 prop3.Tr1331 prop3.Tr2332 prop4.Tr1221
##    0.1711230    0.2103387    0.2049911    0.2370766    0.2727273
## prop4.Tr1331 prop4.Tr2332
##    0.1515152    0.2459893
\end{CodeInput}

\textbf{\subsubsection{Distribution}}

The ``distribution'' descriptor describes the distribution of each attribute in the sequence.

There are five ``distribution'' descriptors for each attribute and they are the position percents in the whole sequence for the first residue, 25\% residues, 50\% residues, 75\% residues and 100\% residues, respectively, for a specified encoded class. For example, there are 10 residues encoded as ``2'' in the above example, the positions for the first residue ``2'', the 2th residue ``2'' (25\%*10=2), the 5th ``2'' residue (50\%*10=5), the 7th ``2'' (75\%*10=7) and the 10th residue ``2'' (100\%*10) in the encoded sequence are 2, 5, 15, 17, 20 respectively, so the distribution descriptors for ``2'' are: 10.0 (2/20*100), 25.0 (5/20*100), 75.0 (15/20*100), 85.0 (17/20*100) , 100.0 (20/20*100), respectively.

Finally, an example for \code{extrProtCTDD()} could be:

\begin{CodeInput}
ctdd = extrProtCTDD(x)
head(ctdd, 12L)
\end{CodeInput}

\begin{CodeInput}
##   prop1.G1.residue0  prop1.G1.residue25  prop1.G1.residue50
##           0.3558719          23.1316726          50.1779359
##  prop1.G1.residue75 prop1.G1.residue100   prop1.G2.residue0
##          73.8434164          99.8220641           0.5338078
##  prop1.G2.residue25  prop1.G2.residue50  prop1.G2.residue75
##          27.4021352          47.3309609          75.2669039
## prop1.G2.residue100   prop1.G3.residue0  prop1.G3.residue25
##         100.0000000           0.1779359          19.5729537
\end{CodeInput}

\subsection{Conjoint Triad Descriptors}\addcontentsline{toc}{subsection}{4.6 Conjoint Triad Descriptors}

Conjoint triad descriptors are proposed by \citet{shenjw}. These conjoint triad descriptors abstracts the features of protein pairs based on the classification of amino acids. In this approach, each protein sequence is represented by a vector space consisting of descriptors of amino acids. To reduce the dimensions of vector space, the 20 amino acids were clustered into several classes according to their dipoles and volumes of the side chains. The conjoint triad descriptors are calculated as follows:

\textbf{Step 1: Classification of Amino Acids}

Electrostatic and hydrophobic interactions dominate protein-protein interactions. These two kinds of interactions may be reflected by the dipoles and volumes of the side chains of amino acids, respectively. Accordingly, these two parameters were calculated, respectively, by using the density-functional theory method B3LYP/6-31G and molecular modeling approach. Based on the dipoles and volumes of the side chains, the 20 amino acids could be clustered into seven classes (See Table 2). Amino acids within the same class likely involve synonymous mutations because of their similar characteristics.

\begin{table}[htbp]
  \centering
  \caption{Classification of amino acids based on dipoles and volumes of the side chains}
    \begin{tabular}{cccc}
    \addlinespace
    \toprule
    No.   & Dipole Scale\tablefootnote{Dipole Scale (Debye): $-$, Dipole < 1.0; $+$, 1.0 < Dipole < 2.0; $++$, 2.0 < Dipole < 3.0; $+++$, Dipole > 3.0; $+'+'+'$, Dipole > 3.0 with opposite orientation.} & Volume Scale\tablefootnote{Volume Scale (\AA$^3$): $-$, Volume < 50; $+$, Volume > 50.} & Class \\
    \midrule
    1     & $-$      & $-$     & Ala, Gly, Val \\
    2     & $-$      & $+$     & Ile, Leu, Phe, Pro \\
    3     & $+$      & $+$     & Tyr, Met, Thr, Ser \\
    4     & $++$     & $+$     & His, Asn, Gln, Tpr \\
    5     & $+++$    & $+$     & Arg, Lys \\
    6     & $+'+'+'$ & $+$     & Asp, Glu \\
    7     & $+$\tablefootnote{Cys is separated from class 3 because of its ability to form disulfide bonds.} & $+$     & Cys \\
    \bottomrule
    \end{tabular}
  \label{tab:ctriad}
\end{table}

\textbf{Step 2: Conjoint Triad Calculation}

The conjoint triad descriptors considered the properties of one amino acid and its vicinal amino acids and regarded any three continuous amino acids as a unit. Thus, the triads can be differentiated according to the classes of amino acids, i.e., triads composed by three amino acids belonging to the same classes, such as ART and VKS, could be treated identically. To conveniently represent a protein, we first use a binary space  $(\mathbf{V}, \mathbf{F})$ to represent a protein sequence. Here, $\mathbf{V}$ is the vector space of the sequence features, and each feature $v_i$ represents a sort of triad type; $\mathbf{F}$ is the frequency vector corresponding to $\mathbf{V}$, and the value of the $i$-th dimension of $\mathbf{F} (f_i)$ is the frequency of type $v_i$ appearing in the protein sequence. For the amino acids that have been catogorized into seven classes, the size of $\mathbf{V}$ should be $7 \times 7 \times 7$; thus $i = 1, 2, \ldots, 343$. The detailed description for ($\mathbf{V}$, $\mathbf{F}$) is illustrated in Figure \ref{fig:ctriad}.

\begin{figure}[htbp]
\centering
\includegraphics[width=\textwidth]{fig/ctriad.pdf}
\caption{Schematic diagram for constructing the vector space ($\mathbf{V}$, $\mathbf{F}$) of protein sequence. $\mathbf{V}$ is the vector space of the sequence features; each feature ($v_i$) represents a triad composed of three consecutive amino acids; $\mathbf{F}$ is the frequency vector corresponding to $\mathbf{V}$, and the value of the $i$-th dimension of $\mathbf{F} (f_i)$ is the frequency that $v_i$ triad appeared in the protein sequence.} \label{fig:ctriad}
\end{figure}

Clearly, each protein correlates to the length (number of amino acids) of protein. In general, a long protein would have a large value of $f_i$, which complicates the comparison between two heterogeneous proteins. Thus, we defined a new parameter, $d_i$, by normalizing $f_i$ with the following equation:

$$
d_i = \frac{f_i - \min\{\,f_1, f_2 , \ldots, f_{343}\,\}}{\max\{\,f_1, f_2, \ldots, f_{343}\,\}}
$$

The numerical value of $d_i$ of each protein ranges from 0 to 1, which thereby enables the comparison between proteins. Accordingly, we obtain another vector space (designated $\mathbf{D}$) consisting of $d_i$ to represent protein.

To compute conjoint triads of protein sequences, we could simply use:

\begin{CodeInput}
ctriad = extrProtCTriad(x)
head(ctriad, n = 65L)
\end{CodeInput}

\begin{CodeInput}
## VS111 VS211 VS311 VS411 VS511 VS611 VS711 VS121 VS221 VS321 VS421 VS521
##   0.1   0.3   0.6   0.2   0.4   0.0   0.3   1.0   0.6   0.5   0.0   0.2
## VS621 VS721 VS131 VS231 VS331 VS431 VS531 VS631 VS731 VS141 VS241 VS341
##   0.3   0.0   0.2   0.4   0.5   0.2   0.3   0.3   0.1   0.3   0.3   0.2
## VS441 VS541 VS641 VS741 VS151 VS251 VS351 VS451 VS551 VS651 VS751 VS161
##   0.2   0.0   0.1   0.2   0.2   0.2   0.5   0.1   0.2   0.0   0.0   0.1
## VS261 VS361 VS461 VS561 VS661 VS761 VS171 VS271 VS371 VS471 VS571 VS671
##   0.4   0.2   0.3   0.2   0.0   0.1   0.1   0.3   0.1   0.0   0.1   0.0
## VS771 VS112 VS212 VS312 VS412 VS512 VS612 VS712 VS122 VS222 VS322 VS422
##   0.1   0.8   0.4   0.4   0.6   0.1   0.5   0.2   0.8   0.5   0.2   0.3
## VS522 VS622 VS722 VS132 VS232
##   0.2   0.0   0.2   0.1   0.3
\end{CodeInput}

by which we only outputted the first 65 of total 343 dimension to save space.

\subsection{Quasi-sequence-order Descriptors}\addcontentsline{toc}{subsection}{4.7 Quasi-sequence-order Descriptors}

The quasi-sequence-order descriptors are proposed by \citet{chouqsoe}. They are derived from the distance matrix between the 20 amino acids.

\textbf{\subsubsection{Sequence-order-coupling Number}}\label{sssec:socn}

The $d$-th rank sequence-order-coupling number is defined as:

$$
\tau_d = \sum_{i=1}^{N-d} (d_{i, i+d})^2 \quad d = 1, 2, \ldots, \textrm{maxlag}
$$

where $d_{i, i+d}$ is the distance between the two amino acids at position $i$ and $i+d$.

\textbf{Note}: maxlag is the maximum lag and the length of the protein must be not less than $\textrm{maxlag}$.


The function \code{extrProtSOCN(x)} is used for computing the sequence-order-coupling numbers:

\begin{CodeInput}
socn = extrProtSOCN(x)
head(socn, 15L)
\end{CodeInput}

\begin{CodeInput}
##  Schneider.lag1  Schneider.lag2  Schneider.lag3  Schneider.lag4
##        204.2036        199.8708        206.8102        197.4828
##  Schneider.lag5  Schneider.lag6  Schneider.lag7  Schneider.lag8
##        193.3366        208.1936        195.5476        200.9789
##  Schneider.lag9 Schneider.lag10 Schneider.lag11 Schneider.lag12
##        196.7110        193.9931        199.7031        204.9389
## Schneider.lag13 Schneider.lag14 Schneider.lag15
##        187.0140        198.4702        205.4526
\end{CodeInput}

Users could also specify the maximum lag value with the \code{nlag} argument.

\textbf{Note}: In addition to Schneider-Wrede physicochemical distance matrix \citep{wrede} used by Kuo-Chen Chou, another chemical distance matrix by \citet{grantham} is also used here. So the descriptors dimension will be \code{nlag * 2}. The quasi-sequence-order descriptors described next also utilized the two matrices.

\textbf{\subsubsection{Quasi-sequence-order Descriptors}}\label{sssec:qso}

For each amino acid type, a quasi-sequence-order descriptor can be defined as:

$$
X_r = \frac{f_r}{\sum_{r=1}^{20} f_r + w \sum_{d=1}^{\textrm{maxlag}} \tau_d} \quad r = 1, 2, \ldots, 20
$$

where $f_r$ is the normalized occurrence for amino acid type $i$ and $w$ is a weighting factor ($w=0.1$). These are the first 20 quasi-sequence-order descriptors. The other 30 quasi-sequence-order are defined as:

$$
X_d = \frac{w \tau_{d-20}}{\sum_{r=1}^{20} f_r + w \sum_{d=1}^{\textrm{maxlag}} \tau_d} \quad d = 21, 22, \ldots, 20 + \textrm{maxlag}
$$

\begin{figure}[htbp]
\centering
\includegraphics[width=0.75\textwidth]{fig/QSO.png}
\caption{A schematic drawing to show (a) the 1st-rank, (b) the 2nd-rank, and (3) the 3rd-rank sequence-order-coupling mode along a protein sequence. (a) Reflects the coupling mode between all the most contiguous residues, (b) that between all the 2nd most contiguous residues, and (c) that between all the 3rd most contiguous residues. This figure is from \citet{chouqsoe}.} \label{fig:qso}
\end{figure}

An minimal example for \code{extrProtQSO()} could be:

\begin{CodeInput}
qso = extrProtQSO(x)
head(qso, 15L)
\end{CodeInput}

\begin{CodeInput}
## Schneider.Xr.A Schneider.Xr.R Schneider.Xr.N Schneider.Xr.D Schneider.Xr.C
##     0.06096218     0.06773576     0.03725467     0.04910842     0.06434897
## Schneider.Xr.E Schneider.Xr.Q Schneider.Xr.G Schneider.Xr.H Schneider.Xr.I
##     0.04572164     0.04572164     0.07789612     0.02878770     0.03386788
## Schneider.Xr.L Schneider.Xr.K Schneider.Xr.M Schneider.Xr.F Schneider.Xr.P
##     0.07281594     0.03725467     0.01185376     0.03048109     0.05080182
\end{CodeInput}

where users could also specify the maximum lag with argument \code{nlag} and the weighting factor with argument \code{w}.

\subsection{Pseudo-Amino Acid Composition (PAAC)}\addcontentsline{toc}{subsection}{4.8 Pseudo-Amino Acid Composition (PAAC)}

This groups of descriptors are proposed in \citet{choupaac}. PAAC descriptors are also called the \emph{type 1 pseudo-amino acid composition}. Let $H_1^o (i)$ , $H_2^o (i)$, $M^o (i)$ ($i=1, 2, 3, \ldots, 20$) be the original hydrophobicity values, the original hydrophilicity values and the original side chain masses of the 20 natural amino acids, respectively. They are converted to following qualities by a standard conversion:

$$
H_1 (i) = \frac{H_1^o (i) - \frac{1}{20} \sum_{i=1}^{20} H_1^o (i)}{\sqrt{\frac{\sum_{i=1}^{20} [H_1^o (i) - \frac{1}{20} \sum_{i=1}^{20} H_1^o (i) ]^2}{20}}}
$$

$H_2^o (i)$ and $M^o (i)$ are normalized as $H_2 (i)$ and $M (i)$ in the same way.

\begin{figure}[htbp]
\centering
\includegraphics[width=0.75\textwidth]{fig/PAAC.png}
\caption{A schematic drawing to show (a) the first-tier, (b) the second-tier, and (3) the third-tiersequence order correlation mode along a protein sequence. Panel (a) reflects the correlation mode between all the most contiguous residues, panel (b) that between all the second-most contiguous residues, and panel (c) that between all the third-most contiguous residues. This figure is from \citet{choupaac}.} \label{fig:paac}
\end{figure}

Then, a correlation function could be defines as

$$
\Theta (R_i, R_j) = \frac{1}{3} \bigg\{ [ H_1 (R_i) - H_1 (R_j) ]^2 + [ H_2 (R_i) - H_2 (R_j) ]^2 + [ M (R_i) - M (R_j) ]^2 \bigg\}
$$

This correlation function is actually an averaged value for the three amino acid properties: hydrophobicity value, hydrophilicity value and side chain mass. Therefore we can extend this definition of correlation function for one amino acid property or for a set of n amino acid properties.

For one amino acid property, the correlation can be defined as:

$$
\Theta (R_i, R_j) = [H_1 (R_i) - H_1(R_j)]^2
$$

where $H (R_i)$ is the amino acid property of amino acid $R_i$ after standardization.

For a set of n amino acid properties, it can be defined as: where $H_k (R_i)$ is the $k$-th property in the amino acid property set for amino acid $R_i$.

$$
\Theta (R_i, R_j) = \frac{1}{n} \sum_{k=1}^{n} [H_k (R_i) - H_k (R_j)]^2
$$

where $H_k(R_i)$ is the $k$-th property in the amino acid property set for amino acid $R_i$.

A set of descriptors called sequence order-correlated factors are defined as:

\begin{align*}
\theta_1  & = \frac{1}{N-1} \sum_{i=1}^{N-1} \Theta (R_i, R_{i+1})\\
\theta_2  & = \frac{1}{N-2} \sum_{i=1}^{N-2} \Theta (R_i, R_{i+2})\\
\theta_3  & = \frac{1}{N-3} \sum_{i=1}^{N-3} \Theta (R_i, R_{i+3})\\
          & \ldots \\
\theta_\lambda  & = \frac{1}{N-\lambda} \sum_{i=1}^{N-\lambda} \Theta (R_i, R_{i+\lambda})
\end{align*}

$\lambda$ ($\lambda < L$) is a parameter to be chosen. Let $f_i$ be the normalized occurrence frequency of the 20 amino acids in the protein sequence, a set of $20 + \lambda$ descriptors called the pseudo-amino acid composition for a protein sequence can be defines as:

$$
X_c = \frac{f_c}{\sum_{r=1}^{20} f_r + w \sum_{j=1}^{\lambda} \theta_j} \quad (1 < c < 20)
$$

$$
X_c = \frac{w \theta_{c-20}}{\sum_{r=1}^{20} f_r + w \sum_{j=1}^{\lambda} \theta_j} \quad (21 < c < 20 + \lambda)
$$

where $w$ is the weighting factor for the sequence-order effect and is set as $w = 0.05$ in \pkg{BioMedR} as suggested by Kuo-Chen Chou.

With \code{extrProtPAAC()}, we could compute the PAAC descriptors:

\begin{CodeInput}
pacc = extrProtPAAC(x)
head(pacc, 25L)
\end{CodeInput}

\begin{CodeInput}
##        Xc1.A        Xc1.R        Xc1.N        Xc1.D        Xc1.C
##   9.07025432  10.07806035   5.54293319   7.30659376   9.57415734
##        Xc1.E        Xc1.Q        Xc1.G        Xc1.H        Xc1.I
##   6.80269074   6.80269074  11.58976941   4.28317565   5.03903018
##        Xc1.L        Xc1.K        Xc1.M        Xc1.F        Xc1.P
##  10.83391488   5.54293319   1.76366056   4.53512716   7.55854527
##        Xc1.S        Xc1.T        Xc1.W        Xc1.Y        Xc1.V
##  12.59757544   6.29878772   3.27536961   6.04683621   7.05464225
## Xc2.lambda.1 Xc2.lambda.2 Xc2.lambda.3 Xc2.lambda.4 Xc2.lambda.5
##   0.02514092   0.02500357   0.02527773   0.02553159   0.02445265
\end{CodeInput}

The \code{extrProtPAAC()} fucntion also provides the \code{props} and \code{customprops} arguments, which is similar to the functions for Moreau-Broto/Moran/Geary autocorrelation descriptors. For minor differences, see \code{?extrPAAC}. Users could specify the lambda parameter and the weighting factor with arguments \code{lambda} and \code{w}.

\textbf{Note}: In the work of Kuo-Chen Chou, the definition for ``normalized occurrence frequency'' was not given. In this work, we define it as the occurrence frequency of amino acid in the sequence normalized to $100\%$ and hence our calculated values are not the same as values by them.

\subsection{Profile-based Descriptors}\addcontentsline{toc}{subsection}{4.9 Profile-based Descriptors}

The profile-based descriptors for protein sequences are available in the \pkg{BioMedR} package. The feature vectors of profile-based methods were based on the PSSM by running PSI-BLAST, and often show good performance. See \cite{ye2011assessment} and \cite{rangwala2005profile} for details. The functions \code{extrProtPSSM()}, \code{extrProtPSSMAcc()} and \code{extrProtPSSMFeature()} are used to generate these descriptors. Users need to install the NCBI-BLAST+ software package first to make the functions fully functional.

\subsection{Descriptors for Proteochemometric Modeling}\addcontentsline{toc}{subsection}{4.10 Descriptors for Proteochemometric Modeling}

Proteochemometric (PCM) modeling utilizes statistical modeling techniques to model ligand-target interaction space. The below descriptors implemented in \pkg{BioMedR} are extensively used in Proteochemometric modeling.

\begin{itemize}
\item Scales-based descriptors derived by Principal Components Analysis
\begin{itemize}
\item Scales-based descriptors derived by Amino Acid Properties from AAindex (Protein Fingerprint)
\item Scales-based descriptors derived by 20+ classes of 2D and 3D molecular descriptors (Topological, WHIM, VHSE, etc.)
\end{itemize}
\item Scales-based descriptors derived by Factor Analysis
\item Scales-based descriptors derived by Multidimensional Scaling
\item BLOSUM and PAM matrix-derived descriptors
\end{itemize}

Note that each of the scales-based descriptor functions are freely to combine with the more than 20 classes of 2D and 3D molecular descriptors to construct highly customized scales-based descriptors. Of course, these functions are designed to be flexible enough that users could provide totally self-defined property matrices to construct scales-based descriptors.

For example, to compute the ``topological scales'' derived by PCA (using the first 5 principal components), one could use \code{extrProtDescScales()}:

\begin{CodeInput}
x = readFASTA(system.file('protseq/P00750.fasta', package = 'BioMedR'))[[1]]
descscales = extrPCMDescScales(x, propmat = 'AATopo',
                               index = c(37:41, 43:47),
                               pc = 5, lag = 7, silent = FALSE)
\end{CodeInput}

\begin{CodeInput}
## Summary of the first 5 principal components:
##                             PC1      PC2       PC3       PC4        PC5
## Standard deviation     2.581537 1.754133 0.4621854 0.1918666 0.08972087
## Proportion of Variance 0.666430 0.307700 0.0213600 0.0036800 0.00080000
## Cumulative Proportion  0.666430 0.974130 0.9954900 0.9991700 0.99998000
\end{CodeInput}

the argument \code{propmat} involkes the \code{AATopo} dataset shipped with \pkg{BioMedR} package, and the argument \code{index} selects the 37 to 41 and the 43 to 47 columns (molecular descriptors) in the \code{AATopo} dataset to use, the parameter \code{lag} was set for the Auto Cross Covariance (ACC) for generating scales-based descriptors of the same length. At last, we printed the summary of the first 5 principal components (standard deviation, proportion of variance, cumulative proportion of variance).

The result is a length 175 named vector, which is consistent with the descriptors before:

\begin{CodeInput}
length(descscales)
## [1] 175
head(descscales, 15)
\end{CodeInput}

\begin{CodeInput}
##     scl1.lag1     scl2.lag1     scl3.lag1     scl4.lag1     scl5.lag1
## -2.645644e-01 -1.717847e-02  1.975438e-02 -7.930659e-05 -3.710597e-05
##     scl1.lag2     scl2.lag2     scl3.lag2     scl4.lag2     scl5.lag2
##  3.548612e-01  1.343712e-01  5.699395e-03 -5.489472e-04 -6.364577e-05
##     scl1.lag3     scl2.lag3     scl3.lag3     scl4.lag3     scl5.lag3
##  2.011431e-02 -9.211136e-02 -1.461755e-03  6.747801e-04  2.386782e-04
\end{CodeInput}

For another example, to compute the descriptors derived by BLOSUM62 matrix and use the first 5 scales, one could use:

\begin{CodeInput}
x = readFASTA(system.file('protseq/P00750.fasta', package = 'BioMedR'))[[1]]
blosum = extrPCMBLOSUM(x, submat = 'AABLOSUM62',
                       k = 5, lag = 7, scale = TRUE, silent = FALSE)
\end{CodeInput}

\begin{CodeInput}
## Relative importance of all the possible 20 scales:
##  [1]  1.204960e+01  7.982007e+00  6.254364e+00  4.533706e+00  4.326286e+00
##  [6]  3.850579e+00  3.752197e+00  3.538207e+00  3.139155e+00  2.546405e+00
## [11]  2.373286e+00  1.666259e+00  1.553126e+00  1.263685e+00  1.024699e+00
## [16]  9.630187e-01  9.225759e-01  7.221636e-01  1.020085e-01 -4.714220e-16
\end{CodeInput}

The result is a length 175 named vector:

\begin{CodeInput}
length(blosum)
## [1] 175
head(blosum, 15)
\end{CodeInput}

\begin{CodeInput}
##     scl1.lag1     scl2.lag1     scl3.lag1     scl4.lag1     scl5.lag1
##  0.0042370555 -0.0021502057  0.0005993291  0.0006456375  0.0014849592
##     scl1.lag2     scl2.lag2     scl3.lag2     scl4.lag2     scl5.lag2
## -0.0014919096  0.0032873726  0.0011734162 -0.0021758536 -0.0018127568
##     scl1.lag3     scl2.lag3     scl3.lag3     scl4.lag3     scl5.lag3
## -0.0029413528  0.0001494193  0.0003298806 -0.0017877430 -0.0051044133
\end{CodeInput}

\textbf{Dealing with gaps.} In proteochemometrics, (sequence alignment) gaps can be very useful, since a gap in a certain position contains information. The \pkg{BioMedR} package has built-in support for such gaps. We deal with the gaps by using a dummy descriptor to code for the 21\textsuperscript{st} type of amino acid. The function \code{extrPCMScalesGap()} and \code{extrPCMPropscaleGap()} could be used to deal with such gaps. See \code{?extrPCMScalesGap} and \code{?extrPCMPropscaleGap} for details.

\subsection{Summary}\addcontentsline{toc}{subsection}{4.11 Summary}

The summary of the protein descriptors in the \pkg{BioMedR} package is listed in table \ref{tab:protein}.

\begin{table}[htbp]
  \centering
  \caption{List of commonly used descriptors in \pkg{BioMedR}}
  \scriptsize{
    \begin{tabular}{p{130pt}p{130pt}p{80pt}p{80pt}}
    \addlinespace
    \toprule
    Descriptor Group & Descriptor Name & Descriptor Dimension & Function Name\\
    \midrule
    Amino Acid Composition & Amino Acid Composition & 20 & \code{extrProtAAC()} \\
          & Dipeptide Composition & 400 & \code{extrProtDC()} \\
          & Tripeptide Composition & 8000 & \code{extrProtTC()} \\
    Autocorrelation & Normalized Moreau-Broto Autocorrelation & 240\footnotemark[1]  & \code{extrProtMoreauBroto()} \\
          & Moran Autocorrelation & 240\footnotemark[1] & \code{extrProtMoran()} \\
          & Geary Autocorrelation & 240\footnotemark[1] & \code{extrProtGeary()} \\
    CTD   & Composition & 21  & \code{extrProtCTDC()}, \code{extrProtCTDCClass()} \\
          & Transition & 21 & \code{extrProtCTDT()}, \code{extrProtCTDTClass()} \\
          & Distribution & 105 & \code{extrProtCTDD()}, \code{extrProtCTDDClass()} \\
    Conjoint Triad & Conjoint Triad & 343 & \code{extrProtCTriad()}, \code{extrProtCTriadClass()} \\
    Quasi-Sequence-Order & Sequence-Order-Coupling Number & 60\footnotemark[2] & \code{extrProtSOCN()} \\
          & Quasi-Sequence-Order Descriptors & 100\footnotemark[2] & \code{extrProtQSO()} \\
    Pseudo-Amino Acid Composition & Pseudo-Amino Acid Composition & 50\footnotemark[3] & \code{extrProtPAAC()} \\
          & Amphiphilic Pseudo-Amino Acid Composition & 80\footnotemark[4] & \code{extrProtAPAAC()} \\
    \bottomrule
    \end{tabular}
  }
  \label{tab:protein}
\end{table}

\footnotetext[1]{The number depends on the choice of the number of properties of amino acids and the choice of the maximum values of the \code{lag}. The default is use 8 types of properties and \code{lag} = 30.}
\footnotetext[2]{The number depends on the maximum value of \code{lag}. By default \code{lag} = 30. And two distance matrices were used, so the descriptor dimension is $30 \times 2 = 60$ and $(20 + 30) \times 2 = 100$.}
\footnotetext[3]{The number depends on the choice of the number of the set of amino acid properties and the choice of the $\lambda$ value. The default is use 3 types of properties proposed by Kuo-Chen Chou and $\lambda = 30$.}
\footnotetext[4]{The number depends on the choice of the $\lambda$ vlaue. The default is that $\lambda = 30$.}

The summary of the scales-based PCM descriptors in the \pkg{BioMedR} package is listed in table \ref{tab:pcm}.

\begin{table}[htbp]
  \centering
  \caption{List of PCM descriptors in \pkg{BioMedR}}
  \footnotesize{
    \begin{tabular}{p{130pt}p{200pt}p{90pt}}
    \addlinespace
    \toprule
    Derived by & Descriptor Class & Function Name \\
    \midrule
    Principal Components Analysis & Scales-based descriptors derived by Principal Components Analysis & \code{extrPCMScales()}, \code{extrPCMScalesGap()} \\
          & Scales-based descriptors derived by amino acid properties from AAindex  (a.k.a. Protein Fingerprint) & \code{extrPCMPropScales()}, \code{extrProtFPGap()}\\
          & Scales-based descriptors derived by 2D and 3D molecular descriptors (Topological, WHIM, VHSE, etc.) & \code{extrPCMDescScales()} \\
    Factor Analysis & Scales-based descriptors derived by Factor Analysis & \code{extrPCMFAScales()} \\
    Multidimensional Scaling & Scales-based descriptors derived by Multidimensional Scaling & \code{extrPCMMDSScales()} \\
    Substitution Matrix & BLOSUM and PAM matrix-derived descriptors & \code{extrPCMBLOSUM()} \\
   & Auto cross covariance (ACC) for generating scales-based descriptors of the same length & \code{acc()} \\
    \bottomrule
    \end{tabular}
  }
  \label{tab:pcm}
\end{table}

The summary of the amino acid descriptor sets used by scales-based descriptors provided in the \pkg{BioMedR} package is listed in table \ref{tab:pcm}. Note that the non-informative descriptors (like the descriptors have only one value across all the 20 amino acids) in these datasets have already been filtered out.

\begin{table}[htbp]
  \centering
  \caption{List of the pre-calculated descriptor sets of the 20 amino acids in \pkg{BioMedR}}
  \footnotesize{
    \begin{tabular}{lccc}
    \addlinespace
    \toprule
    Dataset Name & Descriptor Set Name & Dimensionality & Calculated by \\
    \midrule
    \code{AA2DACOR} & 2D Autocorrelations Descriptors & 92 & Dragon \\
    \code{AA3DMoRSE} & 3D-MoRSE Descriptors & 160 & Dragon \\
    \code{AAACF} & Atom-Centred Fragments Descriptors & 6 & Dragon \\
    \code{AABurden} & Burden Eigenvalues Descriptors & 62 & Dragon \\
    \code{AAConn} & Connectivity Indices Descriptors & 33 & Dragon \\
    \code{AAConst} & Constitutional Descriptors & 23 & Dragon \\
    \code{AAEdgeAdj} & Edge Adjacency Indices Descriptors & 97 & Dragon \\
    \code{AAEigIdx} & Eigenvalue-Based Indices Descriptors & 44 & Dragon \\
    \code{AAFGC} & Functional Group Counts Descriptors & 5 & Dragon \\
    \code{AAGeom} & Geometrical Descriptors & 41 & Dragon \\
    \code{AAGETAWAY} & GETAWAY Descriptors & 194 & Dragon \\
    \code{AAInfo} & Information Indices Descriptors & 47 & Dragon \\
    \code{AAMolProp} & Molecular Properties Descriptors & 12 & Dragon \\
    \code{AARandic} & Randic Molecular Profiles Descriptors & 41 & Dragon \\
    \code{AARDF} & RDF Descriptors & 82 & Dragon \\
    \code{AATopo} & Topological Descriptors & 78 & Dragon \\
    \code{AATopoChg} & Topological Charge Indices Descriptors & 15 & Dragon \\
    \code{AAWalk} & Walk and Path Counts Descriptors & 40 & Dragon \\
    \code{AAWHIM} & WHIM Descriptors & 99 & Dragon \\
    \code{AACPSA} & CPSA Descriptors & 41 & Accelrys Discovery Studio \\
    \code{AADescAll} & All the 2D Descriptors Calculated by Dragon & 1171 & Dragon \\
    \code{AAMOE2D} & All the 2D Descriptors Calculated by MOE & 148 & MOE \\
    \code{AAMOE3D} & All the 3D Descriptors Calculated by MOE & 143 & MOE \\
    \bottomrule
    \end{tabular}
  }
  \label{tab:data}
\end{table}


\section{Calculating DNA/RNA Commonly Used Descriptors}\label{sec:descriptors}\addcontentsline{toc}{section}{5. Calculating DNA/RNA Commonly Used Descriptors}

\textbf{Disclaimer.} Users of the \pkg{BioMedR} package need to intelligently evaluate the underlying details of the descriptors provided, instead of using BioMedR with their data blindly, especially for the descriptor types with more flexibility. It would be wise for the users to use some negative and positive control comparisons where relevant to help guide interpretation of the results.

A DNA or deoxyribonucleic acid sequence with $N$ deoxyribonucleic acid could be generally represented as $\{\,R_1, R_2, \ldots, R_n\,\}$, where $R_i$ represents the residue at the $i$-th position in the sequence. The labels $i$ and $j$ are used to index deoxyribonucleic acid position in a sequence, and $r$, $s$, $t$ are used to represent the Deoxyribonucleic acid type . 

A DNA sequence could be divided equally into segments and the methods, described as follows for the global sequence, could be applied to each segment.

\subsection{Kmer}\addcontentsline{toc}{subsection}{5.1 Kmer}

Basic kmer is the simplest approach to represent the DNAs, in which the DNA sequences are represented as the occurrence frequencies of k neighboring nucleic acids. This approach has been successfully applied to human gene regulatory sequence prediction \citep{noble2005predicting}, enhancer identification \citep{lee2011discriminative}, etc.

$$
f(r, s) = \frac{N_{rs}}{N - 1} \quad r, s = 1, 2, \ldots, 16.
$$

where $N_{rs}$ is the number of dipeptide represented by deoxyribonucleic acid $r$ and type $s$.  here we use \code{kmer()} to compute the descriptors:

\begin{CodeInput}
require(BioMedR)
x = "GGAGTATGAGGCCGAATCTCATCCTCTAGTCCCAAGCCTCTCCACTACCAGGGCT"
extrDNAkmer(x)
\end{CodeInput}

\begin{CodeInput}
## AA AC AG AT CA CC CG CT GA GC GG GT TA TC TG TT
##  2  2  5  3  4  7  1  7  3  3  4  2  3  7  1  0
\end{CodeInput}

if reverse is TRUE, we can use \code{extrDNAkmer()} to compute the reverse compliment kmer.The reverse compliment kmer is a variant of the basic kmer, in which the kmers are not expected to be strand-specific, so reverse complements are collapsed into a single feature. For example, if k=2, there are totally 16 basic kmers (`AA', `AC', `AG', `AT', `CA', `CC', `CG', `CT', `GA', `GC', `GG', `GT', `TA', `TC', `TG', `TT'), but by removing the reverse compliment kmers, there are only 10 distinct kmers in the reverse compliment kmer approach (`AA', `AC', `AG', `AT', `CA', `CC', `CG', `GA', `GC', `TA'). For more information of this approach, please refer to \citep{noble2005predicting} \citep{gupta2008predicting}.

\begin{CodeInput}
extrDNAkmer(x, k = 2, reverse = TRUE)
\end{CodeInput}

\begin{CodeInput}
## AA AC AG AT CA CC CG GA GC TA
##  2  4 12  3  5 11  1 10  3  3
\end{CodeInput}

\subsection{Increment of diversity}\label{subsec:IncDiv}

The increment of diversity has been successfully applied in the prediction of exonintron splice sites for several model genomes \cite{zhang2003splice}, transcription start site prediction, and studying the organization of nucleosomes around splice sites \cite{lu2008prediction}.
In this method, the sequence features are converted into the increment of diversity \textbf(ID), defined by the relation of sequence X with standard source S:

$$
ID = Diversity(X + S ) - Diversity(S) - Diversity(X)
$$

Given a sequence $X$ with $r$ feature variables ($ID_1$ to $IDr$), we obtain an r-dimensional
feature vector \textbf{R} = ($ID_1$, $ID_2$, \ldots, $ID_r$) . The feature vector \textbf{R} is designed by the
following considerations. The kmers are responsible for the discrimination between positive samples and negative samples, and therefore they construct the diversity sources. Based on this, 2 kmer-based increments of diversities $ID_1$ ($ID_2$) between sequence \code{X} and the standard source in positive (negative) training set can be easily introduced as the feature vectors.
9
For more information of this approach, please refer to \citep{chen2010organization} and \citep{liu2012sequence}.

\begin{CodeInput}
pos = readFASTA(system.file('dnaseq/hs.fasta', package = 'BioMedR'))
neg = readFASTA(system.file('dnaseq/non-hs.fasta', package = 'BioMedR'))
extrDNAIncDiv(k = 6, x, pos, neg)
\end{CodeInput}

\begin{CodeInput}
## [[1]]
##  [1]    1.253961    3.582857 -175.436114 -175.249244 -261.305425
##  [6] -261.542600 -290.422865 -290.422865 -287.293692 -287.293692
## [11] -282.192809 -282.192809
\end{CodeInput}

\subsection{Dinucleotide-based auto covariance}\addcontentsline{toc}{subsection}{5.2 Dinucleotide-based auto covariance}

Suppose a DNA sequence \textbf{D} with \boldmath $L$ nucleic acid residues; i.e.

$$
\textbf{D} = {R_1} {R_2}{R_3}{R_4}{R_5}{R_6}{R_7} \ldots {R_L}
$$

where ${R_1}$ represents the nucleic acid residue at the sequence position 1, ${R_2}$ the
nucleic acid residue at position 2 and so forth.
The \code{DAC} measures the correlation of the same physicochemical index between two dinucleotide separated by a distance of lag along the sequence, which can be calculated as:

$$
DAC(u,lag)=\sum_{i=1}^{L-lag - 1} \frac{({P_u} ({R_{i} R_{i+1}}) - \bar{P_u}) ({{P_u} ({R_{i+lag} R_{i+lag+1}}) - \bar{P_u}})} {L-lag - 1}
$$

where $u$ is a physicochemical index, \boldmath $L$ is the length of the DNA sequence, ${P_u} ({R_{i} R_{i+1}})$ means the numerical value of the physicochemical index $u$ for the dinucleotide ${R_{i} R_{i+1}}$ at position $i$, $\bar{P_u}$ sequence: is the average value for physicochemical index $u$ along the whole sequence:

$$
\bar{P_u} = \sum_{j=1}^{L - 1}\frac{{P_u} ({R_{j} R_{j+1}})}{L -1}
$$

In such a way, the length of \code{DAC} feature vector is N $\ast$ LAG, where N is the number of physicochemical indices and LAG is the maximum of lag (lag = 1, 2,  $\ldots$, LAG).
This \code{DAC} approach is similar as the approach used for DNA fold recognition \citep{dong2009new}.

\begin{CodeInput}
extrDNADAC(x)
\end{CodeInput}

\begin{CodeInput}
## Twist.lag1 Twist.lag2  Tilt.lag1  Tilt.lag2
##     -0.223     -0.087     -0.123     -0.043
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust1 = c(2.26, 3.03, 2.03, 3.83, 1.78, 1.65, 2.00, 
2.03, 1.93, 2.61, 1.65, 3.03, 1.20, 1.93, 1.78, 2.26), cust2 = c(7.65, 8.93, 
7.08, 9.07, 6.38, 8.04, 6.23, 7.08, 8.56, 9.53, 8.04, 8.93, 6.23, 8.56, 6.38, 
7.65))
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(2, alphabet = "ACGT")
extrDNADAC(x, normaliztion = TRUE, customprops = customprops)
\end{CodeInput}

\begin{CodeInput}
## Twist.lag1 Twist.lag2  Tilt.lag1  Tilt.lag2 cust1.lag1 cust1.lag2
##     -0.223     -0.087     -0.123     -0.043     -0.223     -0.061
## cust2.lag1 cust2.lag2
##     -0.247     -0.019
\end{CodeInput}

\subsection{Dinucleotide-based cross covariance}\label{subsec:DCC}

Given a DNA sequence D, the DCC approach measures the correlation of two different physicochemical indices between two dinucleotides separated by lag nucleic acids along the sequence, which can be calculated by:

$$
DCC(u_1, u_2, lag)=\sum_{i=1}^{L-lag - 1} \frac{({P_{u_1}} ({R_{i} R_{i+1}}) - \bar{P_{u_1}}) ({{P_{u_2}} ({R_{i+lag} R_{i+lag+1}}) - \bar{P_{u_2}}})} {L-lag - 1}
$$

where $u_1$, $u_2$ are two different physicochemical indices, \boldmath $L$ is the length of the DNA sequence, $ {P_{u_1}} ({R_{i} R_{i+1}}) ({P_{u_2}} ({R_{i} R_{i+1}})) $ is the numerical value of the physicochemical index $ {u_1} ({u_2})$ for the dinucleotide  at position $i$, $\bar{P_{u_1}}(\bar{P_{u_2}})$ is the average value for physicochemical index value $ u_1 $, $u_2$  along the whole sequence:

In such a way, the length of the DCC feature vector is N$\ast$(N-1)$\ast$LAG, where N is the number of physicochemical indices and LAG is the maximum of lag (lag=1, 2, $\ldots $, LAG).

This DCC approach is similar as the approach used for DNA fold recognition \citep{dong2009new}.

\begin{CodeInput}
extrDNADCC(x)
\end{CodeInput}

\begin{CodeInput}
## Twist.Tilt.lag.1 Twist.Tilt.lag.2 Tilt.Twist.lag.1 Tilt.Twist.lag.2
##           -0.134           -0.107           -0.305           -0.036
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust1 = c(2.26, 3.03, 2.03, 3.83, 1.78, 1.65, 2.00, 
2.03, 1.93, 2.61, 1.65, 3.03, 1.20, 1.93, 1.78, 2.26), cust2 = c(7.65, 8.93, 
7.08, 9.07, 6.38, 8.04, 6.23, 7.08, 8.56, 9.53, 8.04, 8.93, 6.23, 8.56, 6.38, 
7.65))
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(2, alphabet = "ACGT")
extrDNADCC(x, normaliztion = TRUE, customprops = customprops)
\end{CodeInput}

\begin{CodeInput}
##  Twist.Tilt.lag.1  Twist.Tilt.lag.2  Tilt.Twist.lag.1  Tilt.Twist.lag.2
##            -0.134            -0.107            -0.305            -0.036
## Twist.cust1.lag.1 Twist.cust1.lag.2 cust1.Twist.lag.1 cust1.Twist.lag.2
##            -0.289            -0.035            -0.140            -0.079
## Twist.cust2.lag.1 Twist.cust2.lag.2 cust2.Twist.lag.1 cust2.Twist.lag.2
##            -0.081            -0.007            -0.177            -0.086
##  Tilt.cust1.lag.1  Tilt.cust1.lag.2  cust1.Tilt.lag.1  cust1.Tilt.lag.2
##            -0.354             0.035            -0.035            -0.056
##  Tilt.cust2.lag.1  Tilt.cust2.lag.2  cust2.Tilt.lag.1  cust2.Tilt.lag.2
##            -0.206             0.075            -0.003            -0.117
## cust1.cust2.lag.1 cust1.cust2.lag.2 cust2.cust1.lag.1 cust2.cust1.lag.2
##            -0.045            -0.059            -0.338             0.055
\end{CodeInput}

\subsection{Dinucleotide-based auto-cross covariance}\label{subsec:DACC}

DACC is a combination of DAC and DCC. Therefore, the length of the DACC feature vector is N$\ast$N$\ast$LAG, where N is the number of physicochemical indices and LAG is the maximum of lag (lag = 1, 2, $\ldots $, LAG).

\begin{CodeInput}
extrDNADACC(x)
\end{CodeInput}

\begin{CodeInput}
##       Twist.lag1       Twist.lag2        Tilt.lag1        Tilt.lag2
##           -0.223           -0.087           -0.123           -0.043
## Twist.Tilt.lag.1 Twist.Tilt.lag.2 Tilt.Twist.lag.1 Tilt.Twist.lag.2
##           -0.134           -0.107           -0.305           -0.036
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust1 = c(2.26, 3.03, 2.03, 3.83, 1.78, 1.65, 2.00, 
2.03, 1.93, 2.61, 1.65, 3.03, 1.20, 1.93, 1.78, 2.26), cust2 = c(7.65, 8.93, 
7.08, 9.07, 6.38, 8.04, 6.23, 7.08, 8.56, 9.53, 8.04, 8.93, 6.23, 8.56, 6.38, 
7.65))
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(2, alphabet = "ACGT")
extrDNADACC(x, normaliztion = TRUE, customprops = customprops)
\end{CodeInput}

\begin{CodeInput}
##        Twist.lag1        Twist.lag2         Tilt.lag1         Tilt.lag2
##            -0.223            -0.087            -0.123            -0.043
##        cust1.lag1        cust1.lag2        cust2.lag1        cust2.lag2
##            -0.223            -0.061            -0.247            -0.019
##  Twist.Tilt.lag.1  Twist.Tilt.lag.2  Tilt.Twist.lag.1  Tilt.Twist.lag.2
##            -0.134            -0.107            -0.305            -0.036
## Twist.cust1.lag.1 Twist.cust1.lag.2 cust1.Twist.lag.1 cust1.Twist.lag.2
##            -0.289            -0.035            -0.140            -0.079
## Twist.cust2.lag.1 Twist.cust2.lag.2 cust2.Twist.lag.1 cust2.Twist.lag.2
##            -0.081            -0.007            -0.177            -0.086
##  Tilt.cust1.lag.1  Tilt.cust1.lag.2  cust1.Tilt.lag.1  cust1.Tilt.lag.2
##            -0.354             0.035            -0.035            -0.056
##  Tilt.cust2.lag.1  Tilt.cust2.lag.2  cust2.Tilt.lag.1  cust2.Tilt.lag.2
##            -0.206             0.075            -0.003            -0.117
## cust1.cust2.lag.1 cust1.cust2.lag.2 cust2.cust1.lag.1 cust2.cust1.lag.2
##            -0.045            -0.059            -0.338             0.055
\end{CodeInput}

\subsection{Trinucleotide-based auto covariance}\addcontentsline{toc}{subsection}{5.3 Trinucleotide-based auto covariance}

Given a DNA sequence $D$, the TAC approach measures the correlation of the same physicochemical index between two trinucleotides separated by \boldmath $lag$ nucleic acids along the sequence, which can be calculated as:

$$
TAC(u,lag)=\sum_{i=1}^{L-lag - 2} \frac{({P_u} ({R_{i} R_{i+1}R_{i+2}}) - \bar{P_u}) ({{P_u} ({R_{i+lag} R_{i+lag+1}R_{i+lag+2}}) - \bar{P_u}})} {L-lag - 2}
$$

where $u$ is a physicochemical index, \boldmath $L$ is the length of the DNA sequence, ${P_u} ({R_{i} R_{i+1}R_{i+2}})$ represents the numerical value of the physicochemical index $u$ for the trinucleotide ${R_{i} R_{i+1}R_{i+2}}$ at position $i$, $\bar{P_u}$ is the average value for physicochemical index $u$ value along the whole sequence:

$$
\bar{P_u} = \sum_{j=1}^{L - 2}\frac{{P_u} ({R_{j} R_{j+1}R_{j+2}})}{L -2}
$$

In such a way, the length of TAC feature vector is N$\ast$LAG, where N is the number of physicochemical indices and LAG is the maximum of lag (lag=1, 2, $\ldots $, LAG).

\begin{CodeInput}
extrDNATAC(x)
\end{CodeInput}

\begin{CodeInput}
##    Dnase I.lag1    Dnase I.lag2 Nucleosome.lag1 Nucleosome.lag2
##          -0.033          -0.023           0.276          -0.015
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust = c(7.176, 6.272, 4.736, 7.237, 3.810, 4.156, 
4.156, 6.033, 3.410, 3.524, 4.445, 6.033, 1.613, 5.087, 2.169, 7.237, 3.581, 
3.239, 1.668, 2.169, 6.813, 3.868, 5.440, 4.445, 3.810, 4.678, 5.440, 4.156, 
2.673, 3.353, 1.668, 4.736, 4.214, 3.925, 3.353, 5.087, 2.842, 2.448, 4.678, 
3.524, 3.581, 2.448, 3.868, 4.156, 3.467, 3.925, 3.239, 6.272, 2.955, 3.467, 
2.673, 1.613, 1.447, 3.581, 3.810, 3.410, 1.447, 2.842, 6.813, 3.810, 2.955, 
4.214, 3.581, 7.176))
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(3, alphabet = "ACGT")
extrDNATAC(x, normaliztion = TRUE, customprops = customprops)
\end{CodeInput}

\begin{CodeInput}
##    Dnase I.lag1    Dnase I.lag2 Nucleosome.lag1 Nucleosome.lag2
##          -0.033          -0.023           0.271          -0.015
##       cust.lag1       cust.lag2
##          -0.003          -0.004
\end{CodeInput}

\subsection{Trinucleotide-based cross covariance}\label{subsec:TCC}

Given a DNA sequence $D$, the TCC approach measures the correlation of two different physicochemical indices between two trinucleotides separated by lag nucleic acids along the sequence, which can be calculated by:

$$
TCC(u_1, u_2, lag)=\sum_{i=1}^{L-lag - 2} \frac{({P_{u_1}} ({R_{i} R_{i+1}R_{i+2}}) - \bar{P_{u_1}}) ({{P_{u_2}} ({R_{i+lag} R_{i+lag+1}R_{i+lag+2}}) - \bar{P_{u_2}}})} {L-lag - 2}
$$

where $u_1$, $u_2$ are two physicochemical indices, \boldmath $L$  is the length of the DNA sequence,${P_{u_1}} ({R_{i} R_{i+1}R_{i+2}})$ $({P_{u_2}} ({R_{i} R_{i+1}R_{i+2}}))$ represents the numerical value of the physicochemical index $u_1 (u_2)$ for the trinucleotide $R_{i} R_{i+1} R_{i+2}$ at position $i$, 

$$
\bar{P_u} = \sum_{j=1}^{L - 2}\frac{{P_u} ({R_{j} R_{j+1}R_{j+2}})}{L - 2}
$$

In such a way, the length of TCC feature vector is N$\ast$(N-1)$\ast$LAG, where N is the number of physicochemical index and LAG is the maximum of lag (lag = 1, 2,  $\ldots $, LAG).

\begin{CodeInput}
extrDNATCC(x)
\end{CodeInput}

\begin{CodeInput}
## Dnase I.Nucleosome.lag.1 Dnase I.Nucleosome.lag.2 Nucleosome.Dnase I.lag.1
##                   -0.186                   -0.043                   -0.079
## Nucleosome.Dnase I.lag.2
##                   -0.082
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust = c(7.176, 6.272, 4.736, 7.237, 3.810, 4.156, 
4.156, 6.033, 3.410, 3.524, 4.445, 6.033, 1.613, 5.087, 2.169, 7.237, 3.581, 
3.239, 1.668, 2.169, 6.813, 3.868, 5.440, 4.445, 3.810, 4.678, 5.440, 4.156, 
2.673, 3.353, 1.668, 4.736, 4.214, 3.925, 3.353, 5.087, 2.842, 2.448, 4.678, 
3.524, 3.581, 2.448, 3.868, 4.156, 3.467, 3.925, 3.239, 6.272, 2.955, 3.467, 
2.673, 1.613, 1.447, 3.581, 3.810, 3.410, 1.447, 2.842, 6.813, 3.810, 2.955, 
4.214, 3.581, 7.176))
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(3, alphabet = "ACGT")
extrDNATCC(x, normaliztion = TRUE, customprops = customprops)
\end{CodeInput}

\begin{CodeInput}
## Dnase I.Nucleosome.lag.1 Dnase I.Nucleosome.lag.2 Nucleosome.Dnase I.lag.1
##                   -0.183                   -0.043                   -0.078
## Nucleosome.Dnase I.lag.2       Dnase I.cust.lag.1       Dnase I.cust.lag.2
##                   -0.081                   -0.004                    0.018
##       cust.Dnase I.lag.1       cust.Dnase I.lag.2    Nucleosome.cust.lag.1
##                   -0.062                   -0.117                   -0.061
##    Nucleosome.cust.lag.2    cust.Nucleosome.lag.1    cust.Nucleosome.lag.2
##                    0.055                   -0.123                   -0.102
\end{CodeInput}

\subsection{Trinucleotide-based auto-cross covariance}\label{subsec:TACC}

TACC is a combination of TAC and TCC. Therefore, the length of the TACC feature vector is N$\ast$N$\ast$LAG, where N is the number of physicochemical indices and LAG is the maximum of lag (lag = 1, 2, $\ldots $, LAG).

\begin{CodeInput}
extrDNATACC(x)
\end{CodeInput}

\begin{CodeInput}
##             Dnase I.lag1             Dnase I.lag2          Nucleosome.lag1
##                   -0.033                   -0.023                    0.276
##          Nucleosome.lag2 Dnase I.Nucleosome.lag.1 Dnase I.Nucleosome.lag.2
##                   -0.015                   -0.186                   -0.043
## Nucleosome.Dnase I.lag.1 Nucleosome.Dnase I.lag.2
##                   -0.079                   -0.082
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust = c(7.176, 6.272, 4.736, 7.237, 3.810, 4.156,
4.156, 6.033, 3.410, 3.524, 4.445, 6.033, 1.613, 5.087, 2.169, 7.237, 3.581, 
3.239, 1.668, 2.169, 6.813, 3.868, 5.440, 4.445, 3.810, 4.678, 5.440, 4.156, 
2.673, 3.353, 1.668, 4.736, 4.214, 3.925, 3.353, 5.087, 2.842, 2.448, 4.678, 
3.524, 3.581, 2.448, 3.868, 4.156, 3.467, 3.925, 3.239, 6.272, 2.955, 3.467, 
2.673, 1.613, 1.447, 3.581, 3.810, 3.410, 1.447, 2.842, 6.813, 3.810, 2.955, 
4.214, 3.581, 7.176))
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(3, alphabet = "ACGT")
extrDNATACC(x, normaliztion = TRUE, customprops = customprops)
\end{CodeInput}

\begin{CodeInput}
##             Dnase I.lag1             Dnase I.lag2          Nucleosome.lag1
##                   -0.033                   -0.023                    0.271
##          Nucleosome.lag2                cust.lag1                cust.lag2
##                   -0.015                   -0.003                   -0.004
## Dnase I.Nucleosome.lag.1 Dnase I.Nucleosome.lag.2 Nucleosome.Dnase I.lag.1
##                   -0.183                   -0.043                   -0.078
## Nucleosome.Dnase I.lag.2       Dnase I.cust.lag.1       Dnase I.cust.lag.2
##                   -0.081                   -0.004                    0.018
##       cust.Dnase I.lag.1       cust.Dnase I.lag.2    Nucleosome.cust.lag.1
##                   -0.062                   -0.117                   -0.061
##    Nucleosome.cust.lag.2    cust.Nucleosome.lag.1    cust.Nucleosome.lag.2
##                    0.055                   -0.123                   -0.102
\end{CodeInput}

\subsection{Pseudo dinucleotide composition}\addcontentsline{toc}{subsection}{5.4 Pseudo dinucleotide composition}

PseDNC is an approach incorporating the contiguous local sequence-order information and the global sequence-order information into the feature vector of the DNA sequence.

Given a DNA sequence $\mathbf{D}$, the feature vector of $\mathbf{D}$ is defined:

$$
\mathbf{D} =[d_1 d_2 \ldots d_{16} d_{16+1}  \ldots d_{16+\lambda}]^{T}
$$

where

$$
d_{k} = \left\{ \begin{array}{lcl}
\displaystyle\frac{f_{k}}{\sum_{i=1}^{16}{f_{i}} + w \sum_{j = 1}^{\lambda}{\theta_{j}}} & \textrm{$1 \leq k \leq 16$}\\
\displaystyle\frac{w \theta_{k - 16}}{\sum_{i=1}^{16}{f_{i}} + w \sum_{j = 1}^{\lambda}{\theta_{j}}} & \textrm{$17 \leq k \leq {16+\lambda}$}\\
  \end{array} \right.
$$

where $f_{k}$ (k = 1, 2, $\ldots$, 16) is the normalized occurrence frequency of dinucleotide in the DNA sequence; the parameter $\lambda$ is an integer, representing the highest counted rank(or tier) of the correlation along a DNA sequence; $w$ is the weight factor ranged from 0 to 1; $\theta_{j}$ (j = 1, 2, $\ldots$, $\lambda$) is called the j-tier correlation factor that reflects the sequence order correlation between all the most contiguous dinucleotide along a DNA sequence, which is defined:

$$
\left\{ \begin{array}{ll}
\displaystyle\theta_{1} = \frac{1}{L-2}\sum_{i=1}^{L-2}\Theta(R_{i} R_{i+1}, R_{i+1} R_{i+2})\\
\displaystyle\theta_{2} = \frac{1}{L-3}\sum_{i=1}^{L-3}\Theta(R_{i} R_{i+1}, R_{i+2} R_{i+3}) \\
 & \textrm{$\lambda < L$}\\
\displaystyle\theta_{3} = \frac{1}{L-4}\sum_{i=1}^{L-4}\Theta(R_{i} R_{i+1}, R_{i+3} R_{i+4}) \\
\displaystyle\ldots\\
\displaystyle\theta_{1} = \frac{1}{L-1-\lambda}\sum_{i=1}^{L-1- \lambda}\Theta(R_{i} R_{i+1}, R_{i+\lambda} R_{i+\lambda+1})\\
  \end{array} \right.
$$

where the correlation function is given by

$$
\Theta(R_{i} R_{i+1}, R_{j} R_{j+1}) = \frac{1}{u}\sum_{u=1}^{u}[P_{u}(R_{i} R_{i+1}) - P_{u}(R_{j} R_{j+1})]^{2}
$$

where $\mu$ is the number of physicochemical indices, in this study, 6 indices reflecting the local DNA structural properties were employed to generate the PseDNCfeature vector;$P_{u}(R_{i} R_{i+1})$ represents the numerical value of the u-th (u = 1, 2, $\ldots$, $\mu$) physicochemical index of the dinucleotide $R_{i} R_{i+1}$ at position $i$ and $P_{u}(R_{j} R_{j+1})$ represents the corresponding value of the dinucleotide $R_{j} R_{j+1}$ at position $j$. For more information about this approach, please refer to \citep{chen2013irspot}.

\begin{CodeInput}
extrDNAPseDNC(x)
\end{CodeInput}

\begin{CodeInput}
##       Xc1.AA       Xc1.AC       Xc1.AG       Xc1.AT       Xc1.CA
##        0.030        0.030        0.076        0.046        0.061
##       Xc1.CC       Xc1.CG       Xc1.CT       Xc1.GA       Xc1.GC
##        0.106        0.015        0.106        0.046        0.046
##       Xc1.GG       Xc1.GT       Xc1.TA       Xc1.TC       Xc1.TG
##        0.061        0.030        0.046        0.106        0.015
##       Xc1.TT Xc2.lambda.1 Xc2.lambda.2 Xc2.lambda.3
##        0.000        0.067        0.059        0.053
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust1 = c(1.019, -0.918, 0.488, 0.567, 0.567, 
-0.070, -0.579, 0.488, - 0.654, -2.455,-0.070, -0.918, 1.603, -0.654, 
0.567, 1.019)) 
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(2, alphabet = "ACGT")
extrDNAPseDNC(x, normalize = TRUE, customprops = customprops, lambda = 2, 
w = 0.1)
\end{CodeInput}

\begin{CodeInput}
##       Xc1.AA       Xc1.AC       Xc1.AG       Xc1.AT       Xc1.CA
##        0.027        0.027        0.067        0.040        0.054
##       Xc1.CC       Xc1.CG       Xc1.CT       Xc1.GA       Xc1.GC
##        0.094        0.013        0.094        0.040        0.040
##       Xc1.GG       Xc1.GT       Xc1.TA       Xc1.TC       Xc1.TG
##        0.054        0.027        0.040        0.094        0.013
##       Xc1.TT Xc2.lambda.1 Xc2.lambda.2
##        0.000        0.143        0.128
\end{CodeInput}

\subsection{Pseudo k-tupler composition}\label{subsec:pseKNC}

PseKNC improved the PseDNC approach by incorporating k-tuple nucleotide composition.
Given a DNA sequence $\mathbf{D}$, the feature vector of $\mathbf{D}$ is defined:

$$
\mathbf{D} =[d_1 d_2 \ldots d_{4^{k}} d_{4^{k}+1}  \ldots d_{4^{k}+\lambda}]^{T}
$$

$$
d_{u} = \left\{ \begin{array}{lcl}
\displaystyle\frac{f_{u}}{\sum_{i=1}^{4^{k}}{f_{i}} + w \sum_{j = 1}^{\lambda}{\theta_{j}}} & \textrm{$1 \leq u \leq 4^{k}$}\\
\displaystyle\frac{w \theta_{u - 4^{k}}}{\sum_{i=1}^{4^{k}}{f_{i}} + w \sum_{j = 1}^{\lambda}{\theta_{j}}} & \textrm{$4^{k} \leq u \leq {4^{k}+\lambda}$}\\
  \end{array} \right.
$$

where $\lambda$ is the number of the total counted ranks (or tiers) of the correlations along a DNA sequence; $f_{u}$ (u = 1, 2, $\ldots$, $4^{k}$) is the frequency of oligonucleotide that is normalized to  $\sum_{i = 1}^{4^{k}}{f_{i} = 1}$; $w$  is a weight factor; $\theta_{j}$ is given by:

$$
\theta_{j} = \frac{1}{L-j-1}\sum_{i=1}^{L-j-1}{\Theta(R_{i} R_{i_1}, R_{i+j} R_{i+j+1})} \qquad
\textrm{$j = 1, 2, \ldots, \lambda; \lambda < L$}
$$

which represents the j-tier structural correlation factor between all the $j^{th}$ most contiguous dinucleotides. The correlation function $\Theta(R_{i} R_{i_1}, R_{i+j} R_{i+j+1})$ is defined by 

$$
\Theta(R_{i} R_{i+1}, R_{i+j} R_{i+j+1}) = \frac{1}{u}\sum_{v=1}^{u}[P_{v}(R_{i} R_{i+1}) - P_{v}(R_{i+j} R_{i+j+1})]^{2}
$$

where $\mu$ is the number of physicochemical indices, in this study, 6 indices reflecting the local DNA structural properties were employed to generate the PseKNC feature vector; $P_{v}(R_{i} R_{i+1})$ represents the numerical value of the $v$-th (u = 1, 2, $\ldots, \mu$) physicochemical indices for the dinucleotide $R_{i} R_{i+1}$ at position $i$ and $P_{v}(R_{i+j} R_{i+j+1})$ represents the corresponding value for the dinucleotide $R_{i+j} R_{i+j+1}$ atposition $i+j$. For more information about this approach, please refer to \citep{guo2014inuc}.

\begin{CodeInput}
pseknc = extrDNAPseKNC(x)
head(pseknc)
\end{CodeInput}

\begin{CodeInput}
## Xc1.AAA Xc1.AAC Xc1.AAG Xc1.AAT Xc1.ACA Xc1.ACC 
##    0.00    0.00    0.01    0.01    0.00    0.01 
\end{CodeInput}

\begin{CodeInput}
phyche_index = data.frame(cust1 = c(1.019, -0.918, 0.488, 0.567, 0.567, 
-0.070, -0.579, 0.488, - 0.654, -2.455,-0.070, -0.918, 1.603, -0.654, 
0.567, 1.019)) 
customprops = t(phyche_index)
colnames(customprops) = make_kmer_index(2, alphabet = "ACGT")
extrDNAPseKNC(x, normalize = TRUE, customprops = customprops, lambda = 1, 
w = 0.05, k = 2)
\end{CodeInput}

\begin{CodeInput}
##       Xc1.AA       Xc1.AC       Xc1.AG       Xc1.AT       Xc1.CA
##        0.034        0.034        0.085        0.051        0.068
##       Xc1.CC       Xc1.CG       Xc1.CT       Xc1.GA       Xc1.GC
##        0.119        0.017        0.119        0.051        0.051
##       Xc1.GG       Xc1.GT       Xc1.TA       Xc1.TC       Xc1.TG
##        0.068        0.034        0.051        0.119        0.017
##       Xc1.TT Xc2.lambda.1
##        0.000        0.085
\end{CodeInput}

\subsection{Summary}\addcontentsline{toc}{subsection}{5.5 Summary}

The summary of the DNA/RNA descriptors in the \pkg{BioMedR} package is listed in table \ref{tab:dna1}.

\begin{table}[htbp]
  \centering
  \caption{List of commonly used descriptors in \pkg{BioMedR}}
  \scriptsize{
    \begin{tabular}{p{100pt}p{150pt}p{80pt}p{70pt}}
    \addlinespace
    \toprule
    Descriptor Group & Descriptor Name & Descriptor Dimension & Function Name\\
    \midrule
    Nucleic acid composition & Basic kmer & 16\footnotemark[1] & \code{extrDNAkmer()} \\
          & Reverse compliment kmer & 10\footnotemark[1] & \code{extrDNAkmer()} \\
          & Increment of diversity  & 12\footnotemark[2] & \code{extrDNAIncDiv()} \\
    Autocorrelation & Dinucleotide-based auto covariance  & 4\footnotemark[3]  & \code{extrDNADAC()} \\
          & Dinucleotide-based cross covariance  & 4\footnotemark[3] & \code{extrDNADCC()} \\
          & Dinucleotide-based auto-cross covariance & 8\footnotemark[3] & \code{extrDNADACC()} \\
          & Trinucleotide-based auto covariance & 4\footnotemark[3]  & \code{extrDNATAC()} \\
          & Trinucleotide-based cross covariance & 4\footnotemark[3] & \code{extrDNATCC()} \\
          & Trinucleotide-based auto-cross covariance & 8\footnotemark[3] & \code{extrDNATACC()} \\
    Pseudo nucleotide composition & Pseudo dinucleotide composition  & 19\footnotemark[4] & \code{extrDNAPseDNC()} \\
          & Pseudo k-tupler nucleotide composition & 65\footnotemark[5] & \code{extrDNAPseKNC()} \\
    \bottomrule
    \end{tabular}
  }
  \label{tab:dna1}
\end{table}

\footnotetext[1]{The number depends on the choice of the k value of kmer. The default is $k$ = 2.}

\footnotetext[2]{The number depends on the choice of the k value of kmer. The default is $k$ = 6.}

\footnotetext[3]{The number depends on the maximum value of \code{lag}. By default \code{lag} = 2. And the number of the physicochemical indices, By default the length of \code{index} = 2.}

\footnotetext[4]{The number depends on the maximum value of \code{lambda}. By default \code{lambda} = 3.}

\footnotetext[5]{The number depends on the maximum value of \code{lambda}. By default \code{lambda} = 1.}

The summary of the names of the 38 physicochemical indices for dinucleotides. in the \pkg{BioMedR} package is listed in table \ref{tab:data2}.

\begin{table}[htbp]
  \centering
  \caption{The names of the 38 physicochemical indices for dinucleotides}
  \footnotesize{
    \begin{tabular}{p{130pt}p{130pt}p{130pt}}
    \toprule
    Base stacking & DNA induced deformability & B-DNA twist \\
    Propeller twist & Propeller twist & Duplex stability: (freeenergy) \\
    DNA denaturation & Bending stiffness & DNA DNA twist \\
    Aida\_BA\_transition & Breslauer\_dG & Breslauer\_dH \\
    Electron\_interaction & Hartman\_trans\_free\_energy & Helix-Coil\_transition \\
    Lisser\_BZ\_transition & Polar\_interaction & SantaLucia\_dG \\
    SantaLucia\_dS &  Sarai\_flexibility & Stability \\
    Sugimoto\_dG & Sugimoto\_dH & Sugimoto\_dS \\
    Duplex tability (disruptenergy) & Stabilising energy of Z-DNA & Breslauer\_dS \\
    Ivanov\_BA\_transition & SantaLucia\_dH & Stacking\_energy \\
    Watson-Crick\_interaction & Dinucleotide GC Content & Twist \\
    Tilt & Roll & Shift \\
    Slide & Rose \\
    
    \bottomrule
    \end{tabular}
  }
  \label{tab:data2}
\end{table}

The summary of the names of the 12 physicochemical indices for trinucleotides. in the \pkg{BioMedR} package is listed in table \ref{tab:data3}.

\begin{table}[htbp]
  \centering
  \caption{The names of the 12 physicochemical indices for trinucleotides.}
  \footnotesize{
    \begin{tabular}{p{130pt}p{130pt}p{130pt}}
    \toprule
    Bendability (DNAse) & Bendability (consensus) & Trinucleotide GC Content \\
    Consensus\_roll & Consensus-Rigid & Dnase I \\
    MW-Daltons & MW-kg & Nucleosome \\
    Nucleosome positioning & Dnase I-Rigid & Nucleosome-Rigid \\ 
    \bottomrule
    \end{tabular}
  }
  \label{tab:data3}
\end{table}

The summary of the names of the 6 physicochemical indices for dinucleotides. in the \pkg{BioMedR} package is listed in table \ref{tab:data4}.

\begin{table}[!htbp]
  \centering
  \caption{The names of the 6 physicochemical indices for dinucleotides.}
  \footnotesize{
    \begin{tabular}{p{130pt}p{130pt}p{130pt}}
    \toprule
    Twist & Tilt & Roll \\
    Shift & Slide & Rise \\
    \bottomrule
    \end{tabular}
  }
  \label{tab:data4}
\end{table}

\section{Generating Interaction Descriptors between Drug, Protein and DNA/RNA}\addcontentsline{toc}{section}{6. Generating Interaction Descriptors between Drug, Protein and DNA/RNA}

For chemogenomics modeling, \pkg{BioMedR} calculates compound-protein interaction (CPI) descriptors, compound-DNA descriptors (CDI), DNA-protein descriptors (DPI), DNA-DNA descriptors (DDI), compound-compound descriptors (CCI) and protein-protein interaction (PPI) descriptors.

\subsection{Generating Drug-Target Interaction Descriptors}\addcontentsline{toc}{subsection}{6.1 Generating Drug-Target Interaction descriptors}

The prediction of novel interactions between drugs and target proteins is a key area in genomic drug discovery. 

A drug-target interaction network can be naturally modeled as a bipartite graph, where the nodes are target proteins or drug molecules and edges (only drugs and proteins could be connected by edges) represent drug-target interactions. They are constructed as follows: 

\begin{enumerate}
\item Separate the pairs in the above positive samples into single drugs and proteins;
\item Re-couple these singles into pairs in a way that none of them occurs in the corresponding positive dataset.
\end{enumerate}

Ten generated negative sets were used in \cite{cao2012large}, here we only use one of them for a demonstration. The drug ID and target ID is stored in \code{GPCR.csv}. The first column is KEGG protein ID, and the second column is KEGG drug ID. The first 635 rows is the positive set, and the last 635 rows is the negative set.

\begin{CodeInput}
require(BioMedR)

gpcr = read.table(system.file('vignettedata/GPCR.csv', package = 'BioMedR'), 
                  header = FALSE, as.is = TRUE)
\end{CodeInput}

Get a glimpse of the data:

\begin{CodeInput}
head(gpcr)
\end{CodeInput}

\begin{CodeOutput}
##          V1     V2
## 1 hsa:10161 D00528
## 2 hsa:10800 D00411
## 3 hsa:10800 D01828
## 4 hsa:10800 D05129
## 5 hsa:11255 D00234
## 6 hsa:11255 D00300
\end{CodeOutput}

Next, we will download the target protein sequences (in FASTA format) and drug molecule (in SMILES format) from the KEGG database, in parallel:

\begin{CodeInput}
gpcr   = read.table(system.file('vignettedata/GPCR.csv', package = 'BioMedR'), 
                    header = FALSE, as.is = TRUE)
protid = unique(gpcr[, 1])
drugid = unique(gpcr[, 2])

protseq = BMgetProtSeqKEGG(protid, parallel = 5)
drugseq = BMgetDrugSmiKEGG(drugid, parallel = 5)
x0.prot = cbind(t(sapply(unlist(protseq), extrProtAPAAC)), 
                t(sapply(unlist(protseq), extrProtCTriad)))

x0.drug = cbind(extrDrugEstateComplete(readMolFromSmi(textConnection(drugseq))), 
                extrDrugMACCSComplete(readMolFromSmi(textConnection(drugseq))))
\end{CodeInput}

If the connection is slow or accidentally interrupts, just try more times until success.

Since the descriptors is only for the \emph{uniqued} drug and target list, we need to generate the full descriptor matrix for the training data:

\begin{CodeInput}
x.prot = matrix(NA, nrow = nrow(gpcr), ncol = ncol(x0.prot))
x.drug = matrix(NA, nrow = nrow(gpcr), ncol = ncol(x0.drug))
for (i in 1:nrow(gpcr)) x.prot[i, ] = x0.prot[which(gpcr[, 1][i] == protid), ]
for (i in 1:nrow(gpcr)) x.drug[i, ] = x0.drug[which(gpcr[, 2][i] == drugid), ]
\end{CodeInput}

Generate drug-target interaction descriptors using \code{getCPI()}.

\begin{CodeInput}
x = getCPI(x.prot, x.drug, type = 'combine')
head(x[, 1:5])
\end{CodeInput}

\begin{CodeInput}
##          [,1]     [,2]      [,3]     [,4]     [,5]
## [1,] 13.37680 11.59323 19.619312 7.134295 13.37680
## [2,] 13.68312 10.03428 13.683115 9.122077 11.85870
## [3,] 13.68312 10.03428 13.683115 9.122077 11.85870
## [4,] 13.68312 10.03428 13.683115 9.122077 11.85870
## [5,] 43.48494 25.22126  9.566686 7.827289 10.43638
## [6,] 43.48494 25.22126  9.566686 7.827289 10.43638
\end{CodeInput}

The pairwise interaction is another useful type of representation in drug-target , drug-DNA/RNA, DNA/RNA-protein, DNA/RNA-DNA/RNA, drug-drug and protein-protein interaction prediction and related research. \pkg{BioMedR} also provides \code{getPPI()} to generate protein-protein interaction descriptors. \code{getPPI()}, \code{getDDI()} and \code{getCCI()} provides three types of interactions while \code{getCPI()}, \code{getCDI()} and \code{getDPI()} provides two types. The argument \code{type} is used to control this:

\begin{itemize}
\item Compound-Protein Interaction (CPI) Descriptors

For compound descriptor vector $d_1^{1 \times p_1}$ and the protein descriptor vector $d_2^{1 \times p_2}$, there are two methods for construction of descriptor vector $d$ for compound-protein interaction:

\begin{enumerate}
  \item \verb|'combine'| - combine the two feature matrix, $d$ has $p_1 + p_2$ columns;
  \item \verb|'tensorprod'| - column-by-column (pseudo)-tensor product type interactions, $d$ has $p_1 \times p_2$ columns.
\end{enumerate}

\item Protein-Protein Interaction (PPI) Descriptors

For interaction protein A and protein B, let $d_1^{1 \times p}$ and $d_2^{1 \times p}$ be the descriptor vectors. There are three methods to construct the protein-protein interaction descriptor $d$:

\begin{enumerate}
  \item \verb|'combine'| - combine the two descriptor matrix, $d$ has $p + p$ columns;
  \item \verb|'tensorprod'| - column-by-column (pseudo)-tensor product type interactions, $d$ has $p \times p$ columns;
  \item \verb|'entrywise'| - entrywise product and entrywise sum of the two matrices, then combine them, $d$ has $p + p$ columns.
\end{enumerate}

\end{itemize}

\subsection{Summary}\addcontentsline{toc}{subsection}{6.2 Summary}

The summary of the compound protein DNA/RNA interation descriptors in the \pkg{BioMedR} package is listed in table \ref{tab:cpi}.

\begin{table}[htbp]
  \centering
  \caption{Compound protein DNA/RNA interation descriptors}
  \footnotesize{
    \begin{tabular}{p{140pt}p{220pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
    \code{getPPI()} & Generating protein-protein interaction descriptors\\
    \code{getCCI()} & Generating compound-compound interaction descriptors\\
    \code{getDDI()} & Generating DNA-DNA interaction descriptors\\
    \code{getCPI()} & Generating compound-protein interaction descriptors\\
    \code{getCDI()} & Generating compound-DNA interaction descriptors\\
    \code{getDPI()} & Generating DNA-protein interaction descriptors\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:cpi}
\end{table}

\section{Clustering}\addcontentsline{toc}{section}{7. Clustering}

Apart from supervised methods (classification and regression), unsupervised approaches, like clustering, is also widely applied in the quantitative research of drugs.

In reality, there are usually too many chemical compounds available for identifying drug-like molecules. Thus it would be attractive using clustering methods to aid the selection of a representative subset of all available compounds. For a clustering approach that groups compounds together by their structural similarity, applying the principle \emph{similar compounds have similar properties} means that we only need to test the representative compounds from each individual cluster, rather than do the time-consuming complete set of experiments, and this should be sufficient to understand the structure-activity relationships of the whole compound set.

\subsection{Binning Clustering}\addcontentsline{toc}{subsection}{7.1 Binning Clustering}

Compound libraries can be clustered into discrete similarity groups with the binning clustering function \code{clusterCMP}. The function accepts as input an atom pair (\code{APset}) or a fingerprint (\code{FPset}) descriptor database as well as a similarity threshold. The binning clustering result is returned in form of a data frame. Single linkage is used for cluster joining. The function calculates the required compound-to-compound distance information on the fly, while a memory-intensive distance matrix is only created upon user request via the \code{save.distances} argument (see below).

Because an optimum similarity threshold is often not known, the \code{clusterCMP} function can calculate cluster results for multiple cutoffs in one step with almost the same speed as for a single cutoff. This can be achieved by providing several cutoffs under the cutoff argument. The clustering results for the different cutoffs will be stored in one data frame.

One may force the \code{clusterCMP} function to calculate and store the distance matrix by supplying a file name to the \code{save.distances} argument. The generated distance matrix can be loaded and passed on to many other clustering methods available in R, such as the hierarchical clustering function \code{hclust} (see below).

If a distance matrix is available, it may also be supplied to \code{clusterCMP} via the \code{save.distances} argument. This is useful when one has a pre-computed distance matrix either from a previous call to \code{clusterCMP} or from other distance calculation subroutines.  

Single-linkage binning clustering with one or multiple cutoffs:

\begin{CodeInput}
data(sdfbcl)
apbcl = convSDFtoAP(sdfbcl)
clusters <- clusterCMP(db = apbcl, cutoff = c(0.7, 0.8, 0.9), 
                                                  quiet = TRUE)
head(clusters)
\end{CodeInput}

\begin{CodeInput}
##      ids CLSZ_0.7 CLID_0.7 CLSZ_0.8 CLID_0.8 CLSZ_0.9 CLID_0.9
## 38 CMP38       10       38        5       38        3       38
## 39 CMP39       10       38        5       38        1       39
## 40 CMP40       10       38        5       38        1       40
## 41 CMP41       10       38        5       38        3       38
## 44 CMP44       10       38        5       38        3       38
## 42 CMP42       10       38        2       42        1       42
\end{CodeInput}

Clustering of \code{FPset} objects with multiple cutoffs:

\begin{CodeInput}
fpbcl = convAPtoFP(apbcl)
clusters2 <- clusterCMP(fpbcl, cutoff=c(0.5, 0.7, 0.9), 
                           method = "Tanimoto", quiet = TRUE)
head(clusters2)
\end{CodeInput}

\begin{CodeInput}
##    ids CLSZ_0.5 CLID_0.5 CLSZ_0.7 CLID_0.7 CLSZ_0.9 CLID_0.9
## 1 CMP1       50        1       47        1       18        1
## 2 CMP2       50        1       47        1       18        1
## 3 CMP3       50        1       47        1       18        1
## 4 CMP4       50        1       47        1        1        4
## 5 CMP5       50        1       47        1       18        1
## 6 CMP6       50        1       47        1       18        1
\end{CodeInput}

Sames as above, but using Tversky similarity measure:

\begin{CodeInput}
clusters3 <- clusterCMP(fpbcl, cutoff = c(0.5, 0.7, 0.9),
                        method = "Tversky", alpha = 0.3, beta = 0.7, quiet = TRUE)

head(clusters3)
\end{CodeInput}

\begin{CodeInput}
##    ids CLSZ_0.5 CLID_0.5 CLSZ_0.7 CLID_0.7 CLSZ_0.9 CLID_0.9
## 1 CMP1       50        1       50        1       50        1
## 2 CMP2       50        1       50        1       50        1
## 3 CMP3       50        1       50        1       50        1
## 4 CMP4       50        1       50        1       50        1
## 5 CMP5       50        1       50        1       50        1
## 6 CMP6       50        1       50        1       50        1
\end{CodeInput}

Return cluster size distributions for each cutoff:

\begin{CodeInput}
clusterStat(clusters, cluster.result=1)
\end{CodeInput}

\begin{CodeInput}
##   cluster size count
## 1            1     8
## 2            2     3
## 3            3     2
## 4            4     2
## 5            6     2
## 6           10     1
\end{CodeInput}

\subsection{Jarvis-Patrick Clustering}\addcontentsline{toc}{subsection}{7.2 Jarvis-Patrick Clustering}

The Jarvis-Patrick clustering algorithm is widely used in cheminformatics \citep{jarvis1973clustering}. It requires a nearest neighbor table, which consists of $j$ nearest neighbors for each item. The nearest neighbor table is then used to join items into clusters when they meet the following requirements: 
    (a) they are contained in each other's neighbor list and 
    (b) they share at least $k$ nearest neighbors. The values for $j$ and $k$ are user-defined parameters. The \code{clusterJP} function implemented in \pkg{BioMedR} takes a nearest neighbor table generated by \code{NNeighbor}, which works for \code{APset} and \code{FPset} objects. This function takes either the standard Jarvis-Patrick $j$ parameter (as the \code{numNbrs} parameter), or else a \code{cutoff} value, which is an extension to the basic algorithm that we have added. Given a cutoff value, the nearest neighbor table returned contains every neighbor with a similarity greater than the cutoff value, for each item. This allows one to generate tighter clusters and to minimize certain limitations of this method, such as false joins of completely unrelated items when operating on small data sets. 


The \code{clusterJP} function also allows one to relaxsome of the requirements of the algorithm through the \code{mode} parameter. When set to ``a1a2b", then all requirements are used. If set to ``a1b", then (a) is relaxed to a unidirectional requirement. Lastly, if \code{mode} is set to ``b", then only requirement (b) is used, which means that all pairs of items will be checked to see if (b) is satisfied between them. The size of the clusters generated by the different methods increases in this order: ``a1a2b" < ``a1b" < ``b". The run time of method ``a1a2b" follows a close to linear relationship, while it is nearly quadratic for the much more exhaustive method ``b". Only methods ``a1a2b" and ``a1b" are suitable for clustering very large data sets (e.g. > 50,000 items) in a reasonable amount of time.

An additional extension to the algorithm is the ability to set the
linkage mode. The \code{linkage} parameter can be one of
``single", ``average", or ``complete", for single linkage, average linkage
and complete linkage merge requirements, respectively. In the context of
Jarvis-Patrick, average linkage means that at least half of the pairs
between the clusters under consideration must meet requirement (b).
Similarly, for complete linkage, all pairs must requirement (b). Single
linkage is the normal case for Jarvis-Patrick and just means that at
least one pair must meet requirement (b).

The output is a cluster \code{vector} with the item labels in the name slot and the cluster IDs in the data slot. There is a utility function called \code{byCluster}, which takes out cluster vector output by \code{clusterJP} and transforms it into a list of vectors. Each slot of the list is named with a cluster id and the vector contains the cluster members. By default the function excludes singletons from the output, but they can be included by setting \code{excludeSingletons} is \code{FALSE}.

Standard Jarvis-Patrick clustering on \code{APset} and \code{FPset} objects:

\begin{CodeInput}
jpap = clusterJP(NNeighbors(apbcl, numNbrs = 6), k = 5, mode = "a1a2b")
head(jpap)
\end{CodeInput}

\begin{CodeInput}
## CMP1 CMP2 CMP3 CMP4 CMP5 CMP6 
##    1    1    1    2    2    2 
\end{CodeInput}

\begin{CodeInput}
jpfp = clusterJP(NNeighbors(fpbcl, numNbrs = 6), k = 5, mode = "a1a2b")
head(jpfp)
\end{CodeInput}

\begin{CodeInput}
## CMP1 CMP2 CMP3 CMP4 CMP5 CMP6 
##    1    2    2    3    4    5 
\end{CodeInput}

Jarvis-Patrick clustering with a minimum similarity cutoff value (here Tanimoto coefficient). In addition, it uses the much more exhaustive ``b" method that generates larger cluster sizes, but significantly increased the run time. For more details, consult the corresponding help file with ?\code{clusterJP}.

\begin{CodeInput}
require(ChemmineR)
cl <- clusterJP(NNeighbors(fpbcl, cutoff = 0.6,
                         method = "Tanimoto"), k = 2 ,mode = "b")
byCluster(cl) 
\end{CodeInput}

\begin{CodeInput}
## $`1`
##  [1] "CMP1"  "CMP2"  "CMP3"  "CMP4"  "CMP5"  "CMP6"  "CMP7"  "CMP8"
##  [9] "CMP9"  "CMP10" "CMP13" "CMP14" "CMP15" "CMP16" "CMP17" "CMP18"
## [17] "CMP19" "CMP20" "CMP21" "CMP22" "CMP23" "CMP24" "CMP25" "CMP26"
## [25] "CMP27" "CMP28" "CMP30" "CMP31" "CMP32" "CMP33" "CMP34" "CMP35"
## [33] "CMP36" "CMP37" "CMP38" "CMP39" "CMP40" "CMP41" "CMP42" "CMP43"
## [41] "CMP44" "CMP45" "CMP46" "CMP47" "CMP48" "CMP49" "CMP50"
\end{CodeInput}

\subsection{Multi-Dimensional Scaling (MDS)}\addcontentsline{toc}{subsection}{7.3 Multi-Dimensional Scaling (MDS)}

To visualize and compare clustering results, the \code{clusterPlot} function can be used. The function performs Multi-Dimensional Scaling (MDS) and visualizes the results in form of a scatter plot. It requires as input an \code{APset}, a clustering result from \code{clusterCMP}, and a cutoff for the minimum cluster size to consider in the plot. To help determining a proper cutoff size, the \code{clusterStat} function is provided to generate cluster size statistics.

MDS clustering and scatter plot: 

\begin{CodeInput}
mds = clusterMDS(apbcl, clusters, size.cutoff = 2, quiet = TRUE) 
head(mds)
\end{CodeInput}

\begin{CodeInput}
##                V1         V2 CLID_0.7 Clicked
## CMP38 -0.08110183 -0.3937917       38       0
## CMP39 -0.07078328 -0.4024284       38       0
## CMP40 -0.08319071 -0.4019104       38       0
## CMP41 -0.09350389 -0.4038405       38       0
## CMP44 -0.09595493 -0.4041470       38       0
## CMP42 -0.11566290 -0.3686453       38       0
\end{CodeInput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.6\textwidth]{fig/mds.pdf}
\caption{Multi-Dimensional Scaling (MDS)} \label{fig:mds}
\end{figure}

\subsection{Kohonen's self-organising map (SOM)}\addcontentsline{toc}{subsection}{7.4 Kohonen's self-organising map (SOM)}

Self-organizing maps \citep{kohonen2001self} tackle the problem in a way similar to MDS, but instead of trying to reproduce distances they aim at reproducing topology, or in other words, they try to keep the same neighbours. So if two high-dimensional objects are very similar, then their position in a two-dimensional plane should be very similar as well. Rather than mapping objects in a continuous space, SOMs use a regular grid of units onto which objects are mapped. The differences with MDS can be seen as both strengths and weaknesses: where in a 2D MDS plot a distance – also a large distance – can be directly interpreted as an estimate of the true distance, in a SOM plot this is not the case: one can only say that objects mapped to the same, or neighbouring, units are very similar. In other words, SOMs concentrate on the largest similarities, whereas MDS concentrates on the largest dissimilarities. Which of these is more useful depends on the application.

There is an example: we collected 80 drugs binding to bcl2 protein and 300 compounds unbinding to bcl2 protein. Firstly, we analyze the global character for total 380 compounds and maped them to 5 $\times$ 5 lattices. Secondly, we analyzed the structral characters for 80 drugs and maped them to these 5 $\times$ 5 lattices and counted the drugs in each lattice. From the result, we can choose some negative compouds for bcl2 protein with chemical structures similar to its positive drugs.  The R code to generate the plot is as follows:

\begin{CodeInput}
require(kohonen)
data(bcl)
bcl2 = scale(bcl)
som.bcl <- som(bcl2, grid = somgrid(5, 5, "rectangular"), rlen = 100)

idx = unique(som.bcl$unit.classif[1:80])
bgcols <- c("gray", "lightgreen")
index = rep(1, 5 * 5)
index[idx]  = 2
bgcol = bgcols[as.integer(index)]
label = c()
for (i in 1:length(idx)) {
  label[i] = length(which(som.bcl$unit.classif[1:80] == idx[i]))
  }
opar <- par(no.readonly = TRUE)
par(mfrow=c(1,2))
clusterPlotSOMmap(som.bcl, pchs = 1)
clusterPlotSOMmap(som.bcl, index = idx, label = label, bgcol = bgcol)
par(opar)
\end{CodeInput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.85\textwidth]{fig/somplot.pdf}
\caption{Kohonen's self-organising map (SOM)} \label{fig:somplot}
\end{figure}

\subsection{Summary}\addcontentsline{toc}{subsection}{7.5 Summary}

The summary of the cluster methods in the \pkg{BioMedR} package is listed in table \ref{tab:cluster}.

\begin{table}[htbp]
  \centering
  \caption{Clustering}
  \footnotesize{
    \begin{tabular}{p{120pt}p{260pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
    \code{clusterCMP()} & Binning Clustering\\
    \code{clusterMDS()} & Multi-Dimensional Scaling (MDS)\\
    \code{clusterJP()} & Jarvis-PatrickClustering\\ 
    \code{clusterSOMPlot()} & Kohonen’sself-organisingmap(SOM)\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:cluster}
\end{table}

\section{Similarity}\addcontentsline{toc}{section}{8. Similarity}

\subsection{Structure-Based Chemical Similarity Searching}\addcontentsline{toc}{subsection}{8.1 Structure-Based Chemical Similarity Searching}

Structure-based chemical similarity searching ranks molecules in a database by their similarity degree to one query molecule structure. The numerical similarity value is usually computed based on the molecular fingerprints with selected metrics or by maximum common structure search. It is one of the core techniques for ligand-based virtual screening in drug discovery.

\begin{CodeInput}
mol   = system.file('compseq/example.sdf', package = 'BioMedR')
moldb = system.file('compseq/bcl.sdf', package = 'BioMedR')
\end{CodeInput}

We could do parallelized drug molecular similarity search with the \code{searchDrug()} function in \pkg{BioMedR}. Here we choose the search criterion to be MACCS keys with cosine similarity, FP2 fingerprints with tanimoto similarity, and maximum common substructure search with tanimoto similarity.

\begin{CodeInput}

rank1 = searchDrug(mol, moldb, cores = 4, method = 'fp', 
                   fptype = 'maccs', fpsim = 'tanimoto')
rank2 = searchDrug(mol, moldb, cores = 4, method = 'fp', 
                   fptype = 'fp2', fpsim = 'cosine')
\end{CodeInput}

The returned search result is stored as a numerical vector, each element's name is the molecule number in the database, and the value is the similarity value between the query molecule and this molecule. We shall print the top search results here:

The \pkg{BioMedR} package also integrated the functionality of converting molecular file formats. For example, we could convert the SDF files to SMILES files using \code{convMolFormat()}. Since the No. 50 molecule ranks the highest in the three searches performed, we will calculate the similarity derived by maximum common substructure search between the query molecule and the No. 50 molecule using \code{calcDrugMCSSim()}:

The MCS search result is stored in a list, which contains the original MCS result provided by the \pkg{fmcsR} package \citep{wang2013fmcsr}, the Tanimoto coefficient and the overlap coefficient.



\subsection{Similarity Calculation by Sequence Alignment}\addcontentsline{toc}{subsection}{8.2 Similarity Calculation by Sequence Alignment}

Similarity computation derived by local or global protein/DNA sequence alignment between a list of protein/DNA sequences is great need in the protein/DNA related research and applications. However, this sort of pairwise similarity computation often computationally intensive, especially when there exists many protein/DNA sequences. Luckily, this process is also highly parallelizable, the \pkg{BioMedR} package integrates the function of parallelized similarity computation derived by local or global protein/DNA sequence alignment between a list of protein/DNA sequences.

The function \code{twoSeqSim()} calculates the alignment result between two protein/DNA sequences, and the function \code{parSeqSim()} calculates the pairwise similarity calculation with a list of protein/DNA sequences in parallel:

\begin{CodeInput}
> s1 = readFASTA(system.file('protseq/P00750.fasta', package = 'BioMedR'))[[1]]
> s2 = readFASTA(system.file('protseq/P08218.fasta', package = 'BioMedR'))[[1]]
> s3 = readFASTA(system.file('protseq/P10323.fasta', package = 'BioMedR'))[[1]]
> s4 = readFASTA(system.file('protseq/P20160.fasta', package = 'BioMedR'))[[1]]
> s5 = readFASTA(system.file('protseq/Q9NZP8.fasta', package = 'BioMedR'))[[1]]
> plist   = list(s1, s2, s3, s4, s5)
> psimmat = parSeqSim(plist, cores = 4, type = 'local', submat = 'BLOSUM62')
> print(psimmat)
\end{CodeInput}

\begin{CodeOutput}
           [,1]       [,2]       [,3]       [,4]       [,5]
[1,] 1.00000000 0.11825938 0.10236985 0.04921696 0.03943488
[2,] 0.11825938 1.00000000 0.18858241 0.12124217 0.06391103
[3,] 0.10236985 0.18858241 1.00000000 0.05819984 0.06175942
[4,] 0.04921696 0.12124217 0.05819984 1.00000000 0.05714638
[5,] 0.03943488 0.06391103 0.06175942 0.05714638 1.00000000
\end{CodeOutput}

It should be noted that for a small number of proteins, calculating their pairwise similarity scores derived by sequence alignment in parallel may not significantly reduce the overall computation time, since each of the task only requires a relatively small time to finish, thus, computational overheads may exist and affect the performance. In testing, we used about 1,000 protein sequences on 64 CPU cores, and observed significant performance improvement comparing to the sequential computation.

Users should install the packages \pkg{foreach} and \pkg{doParallel} before using \code{parSeqSim()}, according to their operation system. The \pkg{BioMedR} package will automatically decide which backend to use.

\subsection{Similarity Calculation by GO Semantic Similarity Measures}\addcontentsline{toc}{subsection}{8.3 Similarity Calculation by GO Semantic Similarity Measures}

The \pkg{BioMedR} package also integrates the function of similarity score computation derived by Gene Ontology (GO) semantic similarity measures between a list of GO terms / Entrez Gene IDs.

The function \code{twoGOSim()} calculates the similarity derived by GO-terms semantic similarity measures between two GO terms / Entrez Gene IDs, and the function \code{parGOSim()} calculates the pairwise similarity with a list of GO terms / Entrez Gene IDs:

\begin{CodeInput}
# by GO Terms
> go1 = c('GO:0005215', 'GO:0005488', 'GO:0005515',
+         'GO:0005625', 'GO:0005802', 'GO:0005905')  # AP4B1
> go2 = c('GO:0005515', 'GO:0005634', 'GO:0005681',
+         'GO:0008380', 'GO:0031202')                # BCAS2
> go3 = c('GO:0003735', 'GO:0005622', 'GO:0005840',
+         'GO:0006412')                              # PDE4DIP
> glist = list(go1, go2, go3)
> gsimmat1 = parGOSim(glist, type = 'go', ont = 'CC')
> print(gsimmat1)
\end{CodeInput}

\begin{CodeOutput}
      [,1]  [,2]  [,3]
[1,] 1.000 0.077 0.055
[2,] 0.077 1.000 0.220
[3,] 0.055 0.220 1.000
\end{CodeOutput}

\begin{CodeInput}
# by Entrez gene id
> genelist = list(c('150', '151', '152', '1814', '1815', '1816'))
> gsimmat2 = parGOSim(genelist, type = 'gene')
> print(gsimmat2)
\end{CodeInput}

\begin{CodeOutput}
       150   151   152  1814  1815  1816
150  0.689 0.335 0.487 0.133 0.169 0.160
151  0.335 0.605 0.441 0.171 0.198 0.274
152  0.487 0.441 0.591 0.151 0.178 0.198
1814 0.133 0.171 0.151 0.512 0.401 0.411
1815 0.169 0.198 0.178 0.401 0.619 0.481
1816 0.160 0.274 0.198 0.411 0.481 0.819
\end{CodeOutput}

\subsection{Summary}\addcontentsline{toc}{subsection}{8.4 Summary}

The summary of the similarity in the \pkg{BioMedR} package is listed in table \ref{tab:sim}.

\begin{table}[htbp]
  \centering
  \caption{Similarity and similarity searching}
  \footnotesize{
    \begin{tabular}{p{140pt}p{220pt}}
    \addlinespace
    \toprule
    Function name & Function description\\
    \midrule
    \code{calcDrugFPSim()} & Calculate drug molecule similarity derived by molecular fingerprints\\
    \code{calcDrugMCSSim()} & Calculate drug molecule similarity derived by maximum common substructure search\\
    \code{searchDrug()} & Parallelized drug molecule similarity search by molecular fingerprints similarity or maximum common substructure search\\
    \code{calcTwoProtSeqSim()} & Similarity calculation based on sequence alignment for a pair of protein sequences\\
    \code{calcParProtSeqSim()} & Parallellized protein sequence similarity calculation based on sequence alignment\\
    \code{calcTwoProtGOSim()} & Similarity calculation based on Gene Ontology (GO) similarity between two proteins\\
    \code{calcParProtGOSim()} & Protein similarity calculation based on Gene Ontology (GO) similarity\\
    \bottomrule
    \end{tabular}
  }
  \label{tab:sim}
\end{table}

\section{Applications}\addcontentsline{toc}{section}{9. Applications}

\subsection{Regression Modeling in QSRR Study of logD}\addcontentsline{toc}{subsection}{9.1 Regression Modeling in QSRR Study of logD}

In 2015, 1130 compounds with LogD7.4 values were collected from different literatures by our group \citep{wang2015silico}. And then, partial least squares (PLS) and support vector machine (SVM) regressions were employed to build prediction models with 30 molecular descriptors selected by genetic algorithm. Here we choose the molecules and logD  as our benchmark dataset.

Just like the last section, we load the \pkg{BioMedR} package, and read the molecules stored in a SMILES file:

\begin{CodeInput}
x.mol = readMolFromSmi(system.file('vignettedata/logD.smi', 
package = 'BioMedR'), type = 'mol')
x.tab = read.csv(system.file('vignettedata/logD.csv', 
package = 'BioMedR'), sep = ';', header = TRUE)
y = x.tab$logD
\end{CodeInput}

The \code{readMolFromSmi()} function is used for reading molecules from SMILES files, for molecules stored in SDF files, use \code{readMolFromSDF()} instead.

The CSV file \code{logD.csv} contains the smiles structures and experimental values of 1310 compounds, Here we only extracted the logD values by calling \code{x.tab$logD}.

After the molecules were properly loaded, we calculate several selected molecular descriptors. 

\begin{CodeInput}
# calculate selected molecular descriptors
x = suppressWarnings(cbind(
    extrDrugBCUT(x.mol), extrDrugTPSA(x.mol),
    extrDrugKierHallSmarts(x.mol),
    extrDrugALOGP(x.mol),
    extrDrugLogP(x.mol),
    extrDrugMannholdLogP(x.mol)
    ))
\end{CodeInput}

After the descriptors were calculated, the result \code{x} would be an \proglang{R} data frame, each row represents one molecule, and each column is one descriptor (predictor).

Next, a partial least squares(PLS) and random forest(RF) model will be 

\begin{CodeInput}
# regression on training set
require(pls)
require(randomForest)

# feature selection
result <- rf.fs(x, y)
with(result, plot(n.var, error.cv, type = "l", lwd = 2))
\end{CodeInput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.6\textwidth]{fig/ex1-1.pdf}
\caption{Random Forest Cross-Valdidation for feature selection} 
\label{fig:ex1-1}
\end{figure}

We see that the error of the randomForest regression model was decreasing when the n.var was increasing. In general, we select the features with which the error value decrease at the fastest rate, here we selected 17 features for further study. 

\begin{CodeInput}
xtr = x[, order(result$res[[75]], decreasing = T)[1:17]]
\end{CodeInput}

\begin{CodeInput}
# split training and test set
seed(1002)
index = sample(1:1096, 872)
trainX = xtr[index, ]
trainy = y[index]
testX = xtr[-index, ]
testy = y[-index]
\end{CodeInput}

\begin{CodeInput}
# cross-validation of RF model
rf = rf.cv(trainX, trainy, mtrysize = 4)

# cross-validation of pls model
pls = pls.cv(trainX, trainy, maxcomp = 5)
\end{CodeInput}

The cross-validation result is:
\begin{CodeInput}
rf$Q2
\end{CodeInput}

\begin{CodeOutput}
## [1,] 0.8286205
\end{CodeOutput}

\begin{CodeInput}
pls$Q2
\end{CodeInput}

\begin{CodeOutput}
## [1] 0.6849623
\end{CodeOutput}

\begin{CodeInput}
# predict test set 
rf.out = randomForest(trainy ~ ., data = data.frame(trainy, trainX), mtry = 4)
rf.pred = predict(rf.out, testX)

xcal <- scale(trainX, center = TRUE, scale = TRUE)
xcen <- attributes(xcal)$'scaled:center'
xsca <- attributes(xcal)$'scaled:scale'
xtest <- scale(testX, xcen, xsca)
ycal <- scale(trainy, center = TRUE, scale = FALSE)
ycen <- attributes(ycal)$'scaled:center'
    
mvrout <- plsr(ycal ~ ., ncomps = 5, data = data.frame(xcal, ycal), 
                 scale = FALSE, method = 'simpls')
pls.pred <- predict(mvrout, comps = 1:5, xtest) + ycen                
\end{CodeInput}


\begin{CodeInput}
# plot experimental logD vs predicted logD
require(ggplot2)
predict <- c(rf$RFpred, rf.pred, pls$plspred, pls.pred)
ytrain <- rep(c(trainy, testy), 2)
methods <- c(rep("RF", 1096), rep("PLS", 1096))
Ind <- rep(c(rep("training", 872), rep("test", 224)), 2)
Expre <- data.frame(Predicted = predict, ytrain = ytrain, 
                         Methods = methods, Ind = Ind)
p <- ggplot(Expre, aes(x = ytrain, y = Predicted, shape = Ind, 
                       colour = Ind)) + geom_point() +
  geom_abline(intercept = 0, slope = 1, colour = "#CCCCCC") +
  scale_shape_manual(values = c(17,16)) +
  xlim(range(y)) + ylim(range(y)) 

p+facet_wrap(~ Methods, nrow = 1)+
  facet_wrap(~ Methods, nrow = 1)+
  xlab("Experimental logD") + ylab("Predicted logD")+
  labs(colour = "Data", shape = "Data")
\end{CodeInput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.85\textwidth]{fig/ex1-2.pdf}
\caption{Experimental logD vs. Predicted logD} \label{fig:ex1-2}
\end{figure}

\subsection{Classification Modeling in QSRR Study of hERG}\addcontentsline{toc}{subsection}{9.2 Classification Modeling in QSRR Study of hERG}

In the perspective of quantitative pharmacology, the successful discovery of novel drugs depends on the pharmacokinetics properties, like \textbf{a}bsorption, \textbf{d}istribution, \textbf{m}etabolism, and \textbf{e}xcretion. In addition, the potential \textbf{t}oxicity of chemical compounds is taken into account. QSAR or QSPR methods are usually employed to predict the ADME/T qualities of potential drug candidates.

During cardiac depolarization and repolarization, a voltage-gated potassium channel encoded by the human ether-a-go-go related gene (hERG) plays a major role in the regulation of the exchange of cardiac action potential and resting potential. The hERG blockade may cause long QT syndrome (LQTS), arrhythmia, and Torsade de Pointes (TdP), which lead to palpitations, fainting, or even sudden death. Therefore, assessment of hERG-related cardiotoxicity has become an important step in the drug design/discovery pipeline. In this study, we collected 655 hERG blocker from Hou’s study published in 2016.

First, load the drug molecules stored in a SMILES file into \proglang{R}:

\begin{CodeInput}
require(BioMedR)

cpdbas.smi = system.file('vignettedata/CPDBAS.smi', package = 'BioMedR')
cpdbas.csv = read.csv(system.file('vignettedata/CPDBAS.csv', package = 
                    'BioMedR'), header = TRUE, sep = ';')

x.mol = readMolFromSmi(cpdbas.smi, type = 'mol')
x.smi = readMolFromSmi(cpdbas.smi, type = 'text')
y    = as.factor(cpdbas.csv[, 3])
\end{CodeInput}

The object \code{x.mol} is used for computing the MACCS and E-state fingerprints, the object \code{x.smi} is used for computing the FP4 fingerprints. The 0-1 class labels stored in \code{FDAMDD.csv} indicates whether the drug molecule has high toxicity or not.

Then we calculate three different types of molecular fingerprints (E-state and MACCS) for the drug molecules:

\begin{CodeInput}
# calculate molecular fingerprints
x1 = extrDrugEstateComplete(x.mol)
x2 = extrDrugMACCSComplete(x.mol) 
\end{CodeInput}

As the nature of fingerprint-based structure representation, the calculated 0-1 matrix \code{x1}, \code{x2}, and \code{x3} will be very sparse. Since there are several columns have nearly exactly the same value for all the molecules, we should remove them with \code{nearZeroVar()} in \pkg{caret} before modeling, and split our training set and test set:

\begin{CodeInput}
name1 = c()
for (i in 1:dim(x1)[2]) {
  name1 = c(name1, paste('X', i, sep = ''))
}
colnames(x1) = name1

name2 = c()
for (i in 1:dim(x2)[2]) {
  name2 = c(name2, paste('X', i, sep = ''))
}
colnames(x2) = name2

\end{CodeInput}

\begin{CodeInput}
# Remove near zero variance variables
require(caret)
x1 = x1[, -nearZeroVar(x1)]
x2 = x2[, -nearZeroVar(x2)]

# split training and test set
set.seed(1003)
tr.idx = sample(1:nrow(x1), round(nrow(x1) * 0.8))
te.idx = setdiff(1:nrow(x1), tr.idx)
x1.tr  = x1[tr.idx, ]
x1.te  = x1[te.idx, ]
x2.tr  = x2[tr.idx, ]
x2.te  = x2[te.idx, ]
y.tr   = y[tr.idx]
y.te   = y[te.idx]
\end{CodeInput}

On the training sets, we will train three classification models separately using PLS and randomForest. The cross-validation setting is 5-fold repeated CV. Then print the cross-validation result.

\begin{CodeInput}
rf.x1 = rf.cv(x1.tr, y.tr, type = 'classification', mtrysize = 5)

rf.x2 = rf.cv(x2.tr, y.tr, type = 'classification', mtrysize = 11)
\end{CodeInput}

The training result when using E-state fingerprints:

\begin{CodeInput}
# print cross-validation result
# accuracy
rf.x1$ACC
\end{CodeInput}

\begin{CodeInput}
## [1] 0.7368421
\end{CodeInput}

\begin{CodeInput}
# sensitivity
rf.x1$SE
\end{CodeInput}

\begin{CodeInput}
## [1] 0.7472924
\end{CodeInput}

\begin{CodeInput}
# specificity
rf.x1$SP
\end{CodeInput}

\begin{CodeInput}
## [1] 0.7254902
\end{CodeInput}

We could see that after removing the near zero variance predictors, there are only 21 predictors left for the original length 79 E-state fingerprints.

The training result when using MACCS keys:

\begin{CodeInput}
# accuracy
rf.x2$ACC
\end{CodeInput}

\begin{CodeInput}
## [1] 0.7706767
\end{CodeInput}

\begin{CodeInput}
# sensitivity
rf.x2$SE
\end{CodeInput}

\begin{CodeInput}
## [1] 0.8050542
\end{CodeInput}

\begin{CodeInput}
# specificity
rf.x2$SP
\end{CodeInput}

\begin{CodeInput}
## [1] 0.7333333
\end{CodeInput}

There are 111 predictors left for the original length 166 MACCS keys after removing the near zero variance predictors. The model performance by ACC values is slightly better than using the E-state fingerprints.

We predict on the test sets with the established models, and plot the ROC curves in one figure, as is shown in figure \ref{fig:ex2-1}.

\footnotesize
\begin{CodeInput}
# predict on test set
rf.model1 = randomForest(y.tr ~ ., data = data.frame(x1.tr, y.tr), mtry = 5,
                         ntree = 500)
rf.pred1 = predict(rf.model1, x1.te, type = "prob")[, 2]

rf.model2 = randomForest(y.tr ~ ., data = data.frame(x2.tr, y.tr), mtry = 11,
                         ntree = 500)
rf.pred2 = predict(rf.model2, x2.te, type = "prob")[, 2]
 
# generate colors
require(RColorBrewer)
pal = brewer.pal(3, 'Set1')

# ROC curves of different fingerprints
require(pROC)

# cross-validation
opar <- par(no.readonly = TRUE)
par(mfrow=c(1,2))
plot(smooth(roc(y.tr, rf.x1$prob[, 2])), col = pal[1], grid = TRUE, 
                                 main = 'Cross Validation')
plot(smooth(roc(y.tr, rf.x2$prob[, 2])), col = pal[2], grid = TRUE, add = TRUE)

# prediction 
plot(smooth(roc(y.te, rf.pred1)), col = pal[1], grid = TRUE, 
                                 main = 'Prediction')
plot(smooth(roc(y.te, rf.pred2)), col = pal[2], grid = TRUE, add = TRUE)
par(opar)

\end{CodeInput}
\normalsize

\begin{figure}[htbp]
\centering
\includegraphics[width=0.85\textwidth]{fig/ex2-1.pdf}
\caption{Smoothed ROC curves for different fingerprint types} 
\label{fig:ex2-1}
\end{figure}


\subsection{Chemical Similarity Searching}\addcontentsline{toc}{subsection}{9.3 Chemical Similarity Searching}

Structure-based chemical similarity searching ranks molecules in a database by their similarity degree to one query molecule structure. The numerical similarity value is usually computed based on the molecular fingerprints with selected metrics or by maximum common structure search. It is one of the core techniques for ligand-based virtual screening in drug discovery.

\begin{CodeInput}
mol   = system.file('compseq/example.sdf', package = 'BioMedR')
moldb = system.file('compseq/bcl.sdf', package = 'BioMedR')
\end{CodeInput}

We could do parallelized drug molecular similarity search with the \code{searchDrug()} function in \pkg{BioMedR}. Here we choose the search criterion to be MACCS keys with cosine similarity, FP2 fingerprints with tanimoto similarity, and maximum common substructure search with tanimoto similarity.

\begin{CodeInput}

rank1 = searchDrug(mol, moldb, cores = 4, method = 'fp', 
                   fptype = 'maccs', fpsim = 'tanimoto')
rank2 = searchDrug(mol, moldb, cores = 4, method = 'fp', 
                   fptype = 'fp2', fpsim = 'cosine')
\end{CodeInput}

The returned search result is stored as a numerical vector, each element's name is the molecule number in the database, and the value is the similarity value between the query molecule and this molecule. We shall print the top search results here:

\begin{CodeInput}
head(rank1)
##        50        15        13        19        16        17 
## 0.9532710 0.9439252 0.9351852 0.9351852 0.9266055 0.9266055 

head(rank2)
##        50        20        14         1         6         8 
## 0.9706932 0.9233684 0.9130435 0.9071174 0.9025330 0.9014839 

\end{CodeInput}

\begin{CodeInput}
require(ChemmineR)
sdf1 = read.SDFset(system.file('compseq/example.sdf', package = 'BioMedR'))
sdf2 = read.SDFset(system.file('compseq/bcl.sdf', package = 'BioMedR'))

opar <- par(no.readonly = TRUE)
par(mfrow=c(1,2))
plotStructure(sdf2[[50]])
plotStructure(sdf1[[1]])
par(opar)
\end{CodeInput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.85\textwidth]{fig/ex3-1.pdf}
\caption{Maximum common structure of the query molecule and No.50 molecule in the drug database (SDF file)} \label{fig:ex3-1}
\end{figure}

\subsection{Clustering of Molecules Based on Structural Similarities}\addcontentsline{toc}{subsection}{9.4 Clustering of Molecules Based on Structural Similarities}

Apart from supervised methods (classification and regression), unsupervised approaches, like clustering, is also widely applied in the quantitative research of drugs.

In reality, there are usually too many chemical compounds available for identifying drug-like molecules. Thus it would be attractive using clustering methods to aid the selection of a representative subset of all available compounds. For a clustering approach that groups compounds together by their structural similarity, applying the principle \emph{similar compounds have similar properties} means that we only need to test the representative compounds from each individual cluster, rather than do the time-consuming complete set of experiments, and this should be sufficient to understand the structure-activity relationships of the whole compound set.

The \pkg{BioMedR} package provides easy-to-use functions for computing the similarity between small molecules derived by molecular fingerprints and maximum common substructure search.

As a example, the SDF file \code{bcl.sdf} below is a database composed by searching UniProt \emph{P10415} in ChEMBL. We load this SDF file into R using \code{readMolFromSDF()}:

\begin{CodeInput}
require(BioMedR)
mols = readMolFromSDF(system.file('compseq/bcl.sdf', package = 'BioMedR'))
\end{CodeInput}

Then compute the E-state fingerprints for all the molecules using \code{extrDrugEstate()}, and calculate their pairwise similarity matrix with \code{calcDrugFPSim()}:

\begin{CodeInput}
simmat = diag(length(mols))

for (i in 1:length(mols)) {
 for (j in i:length(mols)) {
   fp1 = extrDrugEstate(mols[[i]])
   fp2 = extrDrugEstate(mols[[j]])
   tmp = calcDrugFPSim(fp1, fp2, fptype = 'compact', metric = 'tanimoto')
   simmat[i, j] = tmp
   simmat[j, i] = tmp
 }
}
\end{CodeInput}

For the computed similarity matrix \code{simmat}, we will try to do hierarchical clustering with it, then visualize the clustering result:

\begin{CodeInput}
mol.hc = hclust(as.dist(1 - simmat), method = 'ward.D')

require(ape)  # for tree-like visualization
clus5 = cutree(mol.hc, 5)  # cut dendrogram into 5 clusters

# generate colors
require(RColorBrewer)
pal5 = brewer.pal(5, 'Set1')
plot(as.phylo(mol.hc), type = 'fan', tip.color = pal5[clus5], 
     label.offset = 0.1, cex = 0.7)
\end{CodeInput}

The clustering result for these molecules is shown in figure \ref{fig:ex4-1}.

\begin{figure}[htbp]
\centering
\includegraphics[width=0.6\textwidth]{fig/ex4-1.pdf}
\caption{Tree visualization of molecular clustering result} \label{fig:ex4-1}
\end{figure}

\pkg{BioMedR} allows the user to take advantage of the wide spectrum of clustering utilities available in R. An example on how to perform hierarchical clustering with the hclust function is given below.

\begin{CodeInput}
# Clustering with other algorithms
require(gplots)
data(sdfbcl)
apbcl = convSDFtoAP(sdfbcl)
dummy = clusterCMP(db = apbcl, cutoff = 0, save.distances = 'distmat.rda', 
                        quiet = TRUE)
load('distmat.rda') 
# Hierarchical clustering

hc <- hclust(as.dist(distmat), method = 'single') 
 
heatmap.2(1-distmat, Rowv = as.dendrogram(hc), Colv = as.dendrogram(hc), 
  		  col = colorpanel(40, 'darkblue', 'yellow', 'white'), 
			  density.info = 'none', trace = 'none') 
\end{CodeInput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.7\textwidth]{fig/ex4-2.pdf}
\caption{heatmap visualization of molecular clustering result} \label{fig:ex4-2}
\end{figure}

\subsection{Predicting Protein Subcellular Localization}\addcontentsline{toc}{subsection}{9.5 Predicting Protein Subcellular Localization}

Protein subcellular localization prediction involves the computational prediction of where a protein resides in a cell. It is an important component of bioinformatics-based prediction of protein function and genome annotation, and could also aid us to identify novel drug targets.

First, we load the \pkg{BioMedR} package, then read the protein sequences stored in two separated FASTA files with \code{readFASTA()}:

\begin{CodeInput}
# load FASTA files
Cytoplasm = readFASTA(system.file('vignettedata/Cytoplasm.fasta', 
                                   package = 'BioMedR'))
Nuclear = readFASTA(system.file('vignettedata/Nuclear.fasta', 
                                   package = 'BioMedR'))
\end{CodeInput}

To read protein sequences stored in PDB format files, use \code{readPDB()} instead. The loaded sequences will be stored as two lists in R, and each component in the list is a character string representing one protein sequence. In this case, there are 300 \emph{Cytoplasm} protein sequences and 300 \emph{Nuclear} protein sequences:

To assure that the protein sequences only have the twenty standard amino acid types which is required for the descriptor computation, we use the \code{checkProt()} function in \pkg{BioMedR} to do the amino acid type sanity checking and remove the \emph{non-standard} sequences:

\begin{CodeInput}
Cytoplasm = Cytoplasm[(sapply(Cytoplasm, checkProt))]
Nuclear = Nuclear[(sapply(Nuclear, checkProt))]
\end{CodeInput}

Two protein sequences were removed from each class. For the remaining sequences, we calculate the amphiphilic pseudo amino acid composition (APAAC) descriptor \citep{chouapaac} and make class labels for classification modeling.

\begin{CodeInput}
# calculate APAAC descriptors
x1 = t(sapply(Cytoplasm, function(x) {c(extrProtCTDC(x), 
                                        extrProtCTDD(x), 
                                        extrProtCTDT(x))}))
x2 = t(sapply(Nuclear, function(x) {c(extrProtCTDC(x), 
                                      extrProtCTDD(x), 
                                      extrProtCTDT(x))}))
                                        
x  = rbind(x1, x2)
na.idx = which(is.na(x), arr.ind = TRUE)
x = x[, -unique(na.idx[, 2])]

# make class labels
labels = as.factor(c(rep(0, length(Cytoplasm)), rep(1, length(Nuclear))))
\end{CodeInput}

In \pkg{BioMedR}, the functions of commonly used descriptors for protein sequences and proteochemometric (PCM) modeling descriptors are named after \code{extrProt...()} and \code{extrPCM...()}.

Next, we will split the data into a $75\%$ training set and a $25\%$ test set.

\begin{CodeInput}
# split training and test set
set.seed(1001)
tr.idx = c(sample(1:nrow(x1), round(nrow(x1) * 0.75)),
           sample(nrow(x1) + 1:nrow(x2), round(nrow(x2) * 0.75)))
te.idx = setdiff(1:nrow(x), tr.idx)
x.tr   = x[tr.idx, ]
x.te   = x[te.idx, ]
y.tr   = labels[tr.idx]
y.te   = labels[te.idx]
\end{CodeInput}

We will train a random forest classification model on the training set with 5-fold cross-validation.

\begin{CodeInput}
rf.prot = rf.cv(x.tr, y.tr, type = 'classification', cv.fold = 5)
\end{CodeInput}

The training result is:

\begin{CodeInput}
# print cross-validation result
# accuracy
rf.prot$ACC
\end{CodeInput}

\begin{CodeInput}
## [1] 0.8066667
\end{CodeInput}

\begin{CodeInput}
# sensitivity
rf.prot$SE
\end{CodeInput}

\begin{CodeInput}
## [1] 0.82
\end{CodeInput}

\begin{CodeInput}
# specificity
rf.prot$SP
\end{CodeInput}

\begin{CodeInput}
## [1] 0.7933333
\end{CodeInput}


With the model trained on the training set, we predict on the test set and plot the ROC curve with the \pkg{pROC} package, as is shown in figure \ref{fig:ex5-1}.

\begin{CodeInput}
# predict on test set
require(randomForest)
rf.p = randomForest(y.tr ~ ., data = data.frame(y.tr, x.tr))
rf.pred = predict(rf.p, newdata = x.te, type = 'prob')[, 1]

# plot ROC curve
require(RColorBrewer)
pal = brewer.pal(3, 'Set1')
require(pROC)
opar <- par(no.readonly = TRUE)
par(mfrow=c(1,2))
plot.roc(y.tr, rf.prot$prob[, 1], col = pal[2], grid = TRUE, 
          print.auc = TRUE, main = 'Cross Validation')
plot.roc(y.te, rf.pred, col = pal[1], grid = TRUE, print.auc = TRUE, 
          main = 'prediction')
par(opar)
\end{CodeInput}

The area under the ROC curve (AUC) is:

\begin{CodeOutput}
# cross validation
## Call:
## plot.roc.default(x = y.tr, predictor = rf.prot$prob[, 1], col = pal[2], grid 
##                    = TRUE, print.auc = TRUE, main = "prediction")
##
## Data: rf.prot$prob[, 1] in 150 controls (y.tr 0) > 150 cases (y.tr 1).
## Area under the curve: 0.881
\end{CodeOutput}

\begin{CodeOutput}
# predict
## Call:
## plot.roc.default(x = y.te, predictor = rf.pred, col = pal[1], grid = TRUE, 
##                   print.auc = TRUE, main = "Cross Validation")
##
## Data: rf.pred in 50 controls (y.te 0) > 50 cases (y.te 1).
## Area under the curve: 0.823
\end{CodeOutput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.85\textwidth]{fig/ex5-1.pdf}
\caption{ROC curve for protein subcellular localization data} \label{fig:ex5-1}
\end{figure}

\subsection{Predicting nucleosome positioning in genomes}\addcontentsline{toc}{subsection}{9.6 Predicting nucleosome positioning in genomes}

In the living cell nucleus, genomic DNA is packaged into chromatin. DNA sequences that regulate transcription and other chromosomal processes are associated with local disruptions, or openings, in chromatin structure caused by the cooperative action of regulatory proteins \citep{noble2005predicting},

Nucleosome positioning participates in many cellular activities and plays significant roles in regulating cellular processes \citep{guo2014inuc}. Computational methods that can predict nucleosome positioning based on the DNA sequences is highly desired. Here, a computational predictor was constructed by using dinucleotide-based auto covariance and \code{randomForest}, and its performance was evaluated by 5-fold cross-validation.

\begin{CodeInput}
# load FASTA files
neg = readFASTA(system.file('vignettedata/H_sapiens_neg.fasta', 
                                   package = 'BioMedR'))
pos = readFASTA(system.file('vignettedata/H_sapiens_pos.fasta', 
                                   package = 'BioMedR'))
\end{CodeInput}

each component in the list is a character string representing one protein sequence. In this case, there are 300 \emph{neg} DNA sequences and 300 \emph{pos} DNA sequences:

To assure that the protein sequences only have the twenty standard amino acid types which is required for the descriptor computation, we use the \code{checkDNA()} function in \pkg{BioMedR} to do the amino acid type sanity checking and remove the \emph{non-standard} sequences:

\begin{CodeInput}
neg = neg[(sapply(neg, checkDNA))]
pos = pos[(sapply(pos, checkDNA))]
\end{CodeInput}

Two protein sequences were removed from each class. For the remaining sequences, we calculate the amphiphilic pseudo amino acid composition (APAAC) descriptor \citep{chouapaac} and make class labels for classification modeling.

\begin{CodeInput}
# calculate APAAC descriptors
x1 = t(sapply(neg, function(x) {c(extrDNAkmer(x), 
                                  extrDNADAC(x), 
                                  extrDNADCC(x))}))
x2 = t(sapply(pos, function(x) {c(extrDNAkmer(x), 
                                  extrDNADAC(x), 
                                  extrDNADCC(x))}))
                                        
x  = rbind(x1, x2)

# make class labels
labels = as.factor(c(rep(0, length(neg)), rep(1, length(pos))))
\end{CodeInput}

In \pkg{BioMedR}, the functions of commonly used descriptors for protein sequences and proteochemometric (PCM) modeling descriptors are named after \code{extrProt...()} and \code{extrPCM...()}.

Next, we will split the data into a $75\%$ training set and a $25\%$ test set.

\begin{CodeInput}
# split training and test set
set.seed(1001)
tr.idx = c(sample(1:nrow(x1), round(nrow(x1) * 0.75)),
           sample(nrow(x1) + 1:nrow(x2), round(nrow(x2) * 0.75)))
te.idx = setdiff(1:nrow(x), tr.idx)
x.tr   = x[tr.idx, ]
x.te   = x[te.idx, ]
y.tr   = labels[tr.idx]
y.te   = labels[te.idx]
rownames(x.tr) = NULL
rownames(x.te) = NULL
\end{CodeInput}

We will train a random forest classification model on the training set with 5-fold cross-validation.

\begin{CodeInput}
rf.dna = rf.cv(x.tr, y.tr, type = 'classification', cv.fold = 5)
\end{CodeInput}

With the model trained on the training set, we predict on the test set and plot the ROC curve with the \pkg{pROC} package, as is shown in figure \ref{fig:ex6-1}.

\begin{CodeInput}
# predict on test set
rf.d = randomForest(y.tr ~ ., data = data.frame(y.tr, x.tr))
rf.pred = predict(rf.d, newdata = x.te, type = 'prob')[, 1]

# plot ROC curve
require(RColorBrewer)
pal = brewer.pal(3, 'Set1')
require(pROC)
opar <- par(no.readonly = TRUE)
par(mfrow=c(1,2))
plot.roc(y.tr, rf.dna$prob[, 1], col = pal[2], grid = TRUE, 
          print.auc = TRUE, main = 'Cross Validation')
plot.roc(y.te, rf.pred, col = pal[1], grid = TRUE, print.auc = TRUE, 
          main = 'prediction')
par(opar)
\end{CodeInput}

The area under the ROC curve (AUC) is:

\begin{CodeOutput}
# cross validation
## Call:
## plot.roc.default(x = y.tr, predictor = rf.dna$prob[, 1], col = pal[2], grid 
##                      = TRUE, print.auc = TRUE, main = "Cross Validation")
##
## Data: rf.dna$prob[, 1] in 225 controls (y.tr 0) > 225 cases (y.tr 1).
## Area under the curve: 0.81
\end{CodeOutput}

\begin{CodeOutput}
# predict
## Call:
## plot.roc.default(x = y.te, predictor = rf.pred, col = pal[1], grid = TRUE, 
##                   print.auc = TRUE, main = "prediction")
## 
## Data: rf.pred in 75 controls (y.te 0) > 75 cases (y.te 1).
## Area under the curve: 0.8047
\end{CodeOutput}

\begin{figure}[htbp]
\centering
\includegraphics[width=0.85\textwidth]{fig/ex6-1.pdf}
\caption{ROC curve for nucleosome positioning data} \label{fig:ex6-1}
\end{figure}

\subsection{Predicting Drug-Target Interaction by Integrating Chemical and Genomic Spaces}\addcontentsline{toc}{subsection}{9.7 Predicting Drug-Target Interaction by Integrating Chemical and Genomic Spaces}

In this example, we use the G protein-coupled receptor (GPCR) dataset provided by \cite{yamanishi2008prediction} as our benchmark dataset.

A drug-target interaction network can be naturally modeled as a bipartite graph, where the nodes are target proteins or drug molecules and edges (only drugs and proteins could be connected by edges) represent drug-target interactions. Initially, the graph only contains edges describing the \emph{real} drug-target interactions determined by experiments or other ways. In this example, all real drug-target interaction pairs (i.e., 635 drug-target interactions) are used as the positive samples. For negative samples we select random, non-interacting pairs from these drugs and proteins. 

Ten generated negative sets were used in \cite{cao2012large}, here we only use one of them for a demonstration. The drug ID and target ID is stored in \code{GPCR.csv}. The first column is KEGG protein ID, and the second column is KEGG drug ID. The first 635 rows is the positive set, and the last 635 rows is the negative set.

we will download the target protein sequences (in FASTA format) and drug molecule (in SMILES format) from the KEGG database, in parallel:

\begin{CodeInput}
gpcr   = read.table(system.file('vignettedata/GPCR.csv', package = 'BioMedR'), 
                    header = FALSE, as.is = TRUE)
protid = unique(gpcr[, 1])
drugid = unique(gpcr[, 2])

protseq = BMgetProtSeqKEGG(protid, parallel = 5)
drugseq = BMgetDrugSmiKEGG(drugid, parallel = 5)

x0.prot = cbind(t(sapply(unlist(protseq), extrProtMoreauBroto)), 
                t(sapply(unlist(protseq), extrProtCTDC)))

x0.drug = cbind(extrDrugGraphComplete(readMolFromSmi(textConnection(drugseq))), 
                extrDrugPubChemComplete(readMolFromSmi(textConnection(drugseq))))
\end{CodeInput}

If the connection is slow or accidentally interrupts, just try more times until success.

Since the descriptors is only for the \emph{uniqued} drug and target list, we need to generate the full descriptor matrix for the training data:

\begin{CodeInput}
x.prot = matrix(NA, nrow = nrow(gpcr), ncol = ncol(x0.prot))
x.drug = matrix(NA, nrow = nrow(gpcr), ncol = ncol(x0.drug))
for (i in 1:nrow(gpcr)) x.prot[i, ] = x0.prot[which(gpcr[, 1][i] == protid), ]
for (i in 1:nrow(gpcr)) x.drug[i, ] = x0.drug[which(gpcr[, 2][i] == drugid), ]

y = as.factor(c(rep('pos', nrow(gpcr)/2), rep('neg', nrow(gpcr)/2)))
\end{CodeInput} 

Generate drug-target interaction descriptors using \code{getCPI()}.

\begin{CodeInput}
x = getCPI(x.prot, x.drug, type = 'combine')
\end{CodeInput}

Train a random forest classification model with 5-fold repeated CV:

\begin{CodeInput}
require(caret)
x = x[, -nearZeroVar(x)]
# cross-validation settings
ctrl = trainControl(method = 'cv', number = 5, repeats = 10, 
                    classProbs = TRUE, 
                    summaryFunction = twoClassSummary)

# train a random forest classifier
require(randomForest)
set.seed(1006)
rf.fit = train(x, y, method = 'rf', trControl = ctrl,
               metric = 'ROC', preProc = c('center', 'scale'))
\end{CodeInput}

Print the cross-validation result:

\begin{CodeInput}
print(rf.fit)
\end{CodeInput}

\begin{CodeOutput}

\end{CodeOutput}

Predict on the training set (for demonstration purpose only) and plot ROC curve.

\begin{CodeInput}
rf.pred = predict(rf.fit$finalModel, x, type = 'prob')[, 1]

require(pROC)
plot(smooth(roc(y, rf.pred)), col = '#0080ff', grid = TRUE, print.auc = TRUE)
\end{CodeInput}

The ROC curve is shown in figure \ref{fig:ex7-2}.

\begin{figure}[htbp]
\centering
\includegraphics[width=0.4\textwidth]{fig/ex7-2.pdf}
\caption{ROC curve for predicting on the training set of the GPCR drug-target interaction dataset using random forest} \label{fig:ex7-2}
\end{figure}


\section*{Acknowledgments}\addcontentsline{toc}{section}{Acknowledgments}

The authors thank all members of the Computational Biology and Drug Design (CBDD) Group (\url{http://www.scbdd.com/}) of Central South University for their support.

This work is financially supported by the National Natural Science Foundation of China (Grants No. 81402853), the Central South University Innovation Foundation for Postgraduate (2016zzts498), the Project of Innovation-driven Plan in Central South University, and the Postdoctoral Science Foundation of Central South University, the Chinese Postdoctoral Science Foundation (2014T70794, 2014M562142). The studies meet with the approval of the university's review board.

\clearpage

\nocite{*} % list uncited bibs
\addcontentsline{toc}{section}{References}
\bibliography{BioMedR}


\vspace*{-0.35cm}

\end{document}
