# rCUR: an R package for CUR matrix decomposition

- András Bodor
^{1}, - István Csabai
^{1}Email author, - Michael W Mahoney
^{2}and - Norbert Solymosi
^{3}

**13**:103

https://doi.org/10.1186/1471-2105-13-103

© Bodor et al.; licensee BioMed Central Ltd. 2012

**Received: **16 January 2012

**Accepted: **17 April 2012

**Published: **17 May 2012

## Abstract

### Background

Many methods for dimensionality reduction of large data sets such as those generated in microarray studies boil down to the Singular Value Decomposition (SVD). Although singular vectors associated with the largest singular values have strong optimality properties and can often be quite useful as a tool to summarize the data, they are linear combinations of up to all of the data points, and thus it is typically quite hard to interpret those vectors in terms of the application domain from which the data are drawn. Recently, an alternative dimensionality reduction paradigm, *CUR matrix decompositions*, has been proposed to address this problem and has been applied to genetic and internet data. CUR decompositions are low-rank matrix decompositions that are explicitly expressed in terms of a small number of actual columns and/or actual rows of the data matrix. Since they are constructed from actual data elements, CUR decompositions are interpretable by practitioners of the field from which the data are drawn.

### Results

We present an implementation to perform CUR matrix decompositions, in the form of a freely available, open source R-package called rCUR. This package will help users to perform CUR-based analysis on large-scale data, such as those obtained from different high-throughput technologies, in an interactive and exploratory manner. We show two examples that illustrate how CUR-based techniques make it possible to reduce significantly the number of probes, while at the same time maintaining major trends in data and keeping the same classification accuracy.

### Conclusions

The package rCUR provides functions for the users to perform CUR-based matrix decompositions in the R environment. In gene expression studies, it gives an additional way of analysis of differential expression and discriminant gene selection based on the use of statistical leverage scores. These scores, which have been used historically in diagnostic regression analysis to identify outliers, can be used by rCUR to identify the most informative data points with respect to which to express the remaining data points.

## Background

In many modern data analysis applications, the user is faced with data matrices with a huge number of columns and/or rows. Such matrices arise in disciplines ranging from astronomy through genomics and social sciences to zoology. As a specific example, let us consider gene expression microarray data. In a typical study, hundreds of thousands of probe expressions are measured for a large number of samples. This methodology has had a significant impact on gene expression research, but the publication of studies with dissimilar or contradictory results has raised concerns about the reliability of this technology, especially when all the individual values of gene expressions are requested. On the other hand, when the goal is more modest, *e.g.*, just classifying the samples into few categories, there is typically ample information available in the data, and one can hope that the huge redundancy in the data compensates for the possible errors of the technology.

In such cases, it is common to employ one of several dimensionality reduction methods in order to identify low-dimensional features for use by a downstream analyst. Many popular methods, *e.g.*, Principal Component Analysis (PCA), multidimensional scaling, recently-popular nonlinear-dimensionality reduction methods, etc., boil down to the Singular Value Decomposition (SVD). The singular vectors, or principal components, associated with the largest singular values have strong optimality properties, and they can often be quite useful as a tool to summarize and identify major patterns of the data. (See, e.g.,[1], as a nice example in the field of genomics and[2] for a fast matrix factorization algorithm.) Nevertheless, it is typically quite hard for a geneticist or downstream data analyst to interpret those vectors in terms of the application domain from which the data are drawn. The reason for this is that the singular vectors are mathematical abstractions defined for any matrix, and they are typically linear combinations of all of the input data. This has been noted most explicitly by Kuruvilla *et al.*[3]. After describing the many uses of the vectors provided by the SVD and PCA in DNA microarray analysis, they bluntly conclude that "While very efficient basis vectors, the (singular) vectors themselves are completely artificial and do not correspond to actual (DNA expression) profiles. .. Thus, it would be interesting to try to find basis vectors for all experiment vectors, using actual experiment vectors and not artificial bases that offer little insight."

*CUR matrix decomposition*method. CUR decompositions are low-rank matrix decompositions that are explicitly expressed in terms of a small number of actual columns and/or actual rows of the data matrix:

*A*is the original data matrix,

*C*consists of a small number of actual columns of

*A*,

*R*consists of a small number of actual rows of

*A*, and

*U*is a small carefully constructed matrix that guarantees that the product

*CUR*is close to

*A*. Since they are constructed from actual data elements, CUR decompositions are interpretable by practitioners of the field from which the data are drawn (to the extent that the original data are). For example, CUR decompositions have been used for interpretable data analysis of DNA single-nucleotide polymorphism data[5–7]. The theory of CUR matrix decompositions works as follows[4, 8]. To determine which columns to include in

*C*(and similarly for

*R*), one computes an "importance score" for each column of

*A*and then randomly samples a small number of columns from

*A*using that score as an "importance sampling" probability distribution. This importance score depends on the matrix

*A*and an input rank parameter

*k*. If${v}_{j}^{\xi}$ is the

*j*-th element of the

*ξ*-th right singular vector of

*A*, then the

*normalized statistical leverage scores*equal

for all *j* = 1,…,*n*. These quantities, up to scaling, equal to the diagonal elements of the so-called "hat matrix," *i.e.*, the projection matrix onto the span of the top *k* right singular vectors of *A*[9]. As such, they have a natural statistical interpretation as a "leverage score" or "influence score" associated with each of the data points; and they have been widely-used for outlier identification in diagnostic regression analysis.

*any*

*m*×

*n*matrix

*A*, a rank parameter

*k*, and an error parameter

*ε*, and then performs the following.

- 1.
First, compute

*v*^{1},…,*v*^{ k }(the top*k*right singular vectors of*A*) and the normalized statistical leverage scores of Equation (2). - 2.
Second, keep the

*j*-th column of*A*with probability ${p}_{j}=\text{min}\{1,c{\Pi}_{j}\}$, for all*j*∈ {1,…,*n*}, where $c=O(k\text{log}k/{\epsilon}^{2})$. - 3.
Third, return the matrix

*C*consisting of the selected columns of*A*.

In some applications, this restricted CUR decomposition, *A* ≈ *P*_{
C
}*A* = *CX*, where *X* = *C*^{+}*A*, is of interest and where *C*^{+} denotes a Moore-Penrose generalized inverse of the matrix *C*.^{a}

- 1.
Run ColumnSelect on

*A*with $c=O(k\text{log}k/{\epsilon}^{2})$ to choose columns of*A*and construct the matrix*C*. - 2.
Run ColumnSelect on

*A*^{ T }with $r=O(k\text{log}k/{\epsilon}^{2})$ to choose rows of*A*(columns of*A*^{ T }) and construct the matrix*R*. - 3.
Define the matrix

*U*as*U*=*C*^{+}*A**R*^{+}.

Thus, in contrast to PCA and the SVD, where the low-dimensional basis consists of singular vectors that are linear combinations of all the data vectors, here the matrices *C* and *R* consists a small number of actual columns and rows of *A*, respectively. The details of this procedure, including the use of randomness, are important for the strong underlying theory[4, 8, 10]; but in practice several variations that exploit the structure identified by the statistical leverage scores perform very well. These practical design decisions we made for our implementation will be described in the next section.

In this paper, we describe the rCUR package, which is a freely available, open source R implementation of the CUR matrix decomposition method. We will summarize functionality and features of the package that allow the user to obtain the statistical leverage scores and the matrices *C*, *U*, and *R* by simple S4 classes and methods. In certain cases, we have found that the statistical leverage scores themselves are useful directly, and thus we also describe variations to select the columns or rows that deviate from the theory described above. We will then demonstrate the strength of the technique on a microarray study. In particular, we will show that even for a very large set of heterogeneous samples with various experiments, rCUR is able to select a few percent of the probes that have the same classification capacity as the original full set.

Finally, it should be emphasized that this CUR approach is very different the classical statistical perspective, where statistical leverage scores have been used in diagnostic regression analysis to identify outliers and errors[9]; and that Bien *et al.*[11] have described the connections between CUR matrix decompositions and sparse optimization methods. See also[12] as a previous example in the genomics literature for gene selection via outliers.

## Implementation

The rCUR package was developed to allow users to easily perform CUR matrix decompositions. For this purpose, an easy to use primary function, called CUR, was implemented. The input of the function CUR is a two dimensional matrix with column and row names. If any of the column or row names is missing then the index of the dimension is assigned automatically. From the matrix *A* the function CUR calculates the *statistical leverage scores* and the matrices *C*, *U*, and *R*. Importantly, the rank parameter (typically denoted *k*) has a fundamental influence on the resulting leverage scores (and thus on the construction of *C* and *R*), since only the top *k* singular vectors of *A* are used in their calculation. Thus, it should be chosen carefully, based on domain-specific considerations. If no value is supplied for *k*, then *k* is arbitrarily set such that the sum of the top *k* singular values is more then 80% of the sum of all singular values. In our implementation the size of the resulting *C*, *U* and *R* matrices is not determined dynamically based on the error parameter *ε*. Rather the number of columns (*c*) and rows (*r*) to be selected are input parameters and the actual error of the approximation is returned if requested. The outputs of function CUR are stored as slots in a S4 class, called CURobj. In addition, in certain cases we have found that the leverage scores themselves can be used directly, and thus we also provide an implementation that selects the columns or rows without involving any randomness. In particular, this involves using the statistical leverage scores as a "ranking function" rather than as an "importance sampling" distribution, and then deterministically choosing *k* or slightly more than *k* of the the highest leverage columns/rows. Selecting data points or features (for example in gene expression studies) in this way makes the analysis more reproducible and interpretable, although we have found that in some cases the inclusion of random additional columns indeed slightly improves the precision of the approximation.

Several other column selection methods are also implemented in rCUR. These can be selected by the parameter "method".

**random** the original method described in[4] that was outlined above; this is the default.

**exact.num.random** like the default method, but it is guaranteed, that exactly as many rows and columns are selected as requested. (In the random case it is only the expectation value.)

**top.scores** the rows and columns with the highest leverage scores are returned deterministically.

**ortho.top.scores** columns and rows are selected in an iteration based on a factor that combines not just the leverage score but also the orthogonality of the next vector to the already selected subspace.

**highest.ranks** rows and columns with the highest rank of leverage score for some rank parameter are selected. Every possible value is tried up to the value of *k*.

These methods are considered experimental and they provide roughly the same precision as the default method. For certain problems with highly correlated columns/rows one method (ortho.top.score) seems to be very promising. In this way the selection of multiple similar columns/rows, which does not contain new information is avoided, hence the necessary number of columns/rows can be reduced.

To extract the matrices *C*, *U*, *R* and the statistical leverage scores from the object CURobj function, the functions getC, getU, getR and leverage, respectively, may be used. With the function top.leverage, one can get the indexes of the rows or columns with highest leverage scores as the most influential features (genes or samples, respectively). Using these indexes one can get subset of the matrix *A* for further analysis.

To improve efficiency the computation of components that are not used can be switched off. In particular, if the restricted CUR decomposition is required, the parameter *r* can be set to the actual number of rows of *A*. In this case row selection is skipped and *X* can be recovered as *UA*. (The actual matrix multiplication *UA* is not performed by the package.)

In addition, with the function plot.leverage, one can plot the statistical leverage scores themselves, highlighting the largest values and indicating the uniform level directly from CURobj.

For users who would like to test the functionalities of the package on published, real world data sets we incorporated the data used by paper[4] presenting CUR decomposition. This is a subset of a soft tissue tumor data set[13]. The 31 samples of dataset belong to three phenotypes gastrointestinal stromal tumor (GIST), leiomyosarcoma (LEIO) and synovial sarcoma (SARC). For each sample, 5520 gene expression values are stored in matrix *STTm* and annotation information in data frame *STTa*. The original, full dataset[13] is downloadable from the Gene Expression Omnibus database (GSE3443) and from Stanford Microarray Database (http://smd.stanford.edu).

## Results and discussion

We illustrate the benefits of CUR matrix decompositions and dimension reduction with the rCUR package by comparing it with two different previously-published case studies. In the first, we show that feature selection based on leverage scores can differentiate classes with a performance similar to that of the entire gene set of a microarray. In the second, we show that CUR performs well not only in the separation of classes, but in addition we can get comparable results in trend analysis with a fraction of full feature set. We provide all the code that is neccessary to reproduce these results as *Additional file*1*and Additional file*2

### Case study 1: soft tissue tumor discrimination

Here our goal is to check if it is possible to separate groups with genes filtered by CUR and obtain a performance similar to that with the total gene set. In this example we use a soft tissue tumor dataset, which is incorporated in the package as mentioned above (STTm, STTa). By using the rCUR package, we repeated the analysis that was performed in the paper publishing the CUR method[4]. After running the function CUR the genes with highest leverage scores are selected as the most influential features (see Figure1). Then, using the 27 genes with the highest normalized leverage scores, we performed a PCA, just as with the total 5520 genes of dataset. Biplots were created from the two first components from both PCAs (see Figure2).

According to biplots, one can conclude visually that using CUR as feature selection method we can discriminate the classes with many fewer variables (0.5*%* of the full dataset), obtaining performance comparable to the full set.

### Case study 2: discrimination and trends

One of the major problems of microarray studies is that the individual probe values are not always well correlated with the expression of the corresponding gene. On the other hand, it has been shown[1] that even for a very large and inhomogeneous set of microarray samples it is possible to extract reliable information and classify the samples. In that study, the authors collected 5,372 human samples representing 369 different cell and tissue types, disease states, and cell lines. The samples were part of a public international archive, which means that not only the sample parameters but the research groups doing the experiments, the goal of their studies, the sample handling, etc. were very heterogeneous. We have reconstructed their main finding in Figure3. Note that, despite the mixed origin of the samples, one can clearly identify distinct classes like hematopoietic or malignant samples. After reducing the number of probes from 22,300 to 250 with CUR, we obtain the very same trends in the first few components. Since we have several classes and many dimensions, Figure3 provides just a visual demonstration of the classification.

To make the goodness of the classification more quantitative, we apply the following metrics to measure the separation of the classes. For all group pairs all point pair Euclidean distance was calculated. We measure the separation of two groups by the median of these distances for that group pair. For all group pairs these medians were summarized as a total separation measure. In Figure4, we plot the value of the measure of separation against the reduced number of genes at different *k* values. We can see that for most of the parameter values the CUR compression not just reproduces the results of the original PCA (horizontal red line) but gives somewhat better values. It is interesting that the critical value where the separation performance of the compressed representation jumps to similar values as the full PCA is *k* = 4 which is the number of the different classes. The optimal separation performance is around 150 genes and *k* = 6, using less than 1% of the original 22,283 genes.

## Conclusions

The package rCUR provides functions for the users to perform CUR matrix decompositions in the R environment. In gene expression studies, it may give an additional way of analysis of differential expression and discriminant gene selection based on the use of statistical leverage scores. The approach proposed[4] is quite novel in the sense of interpretable dimension-reduced matrices and in handling "outliers" as the most important data points. We have also demonstrated that by using rCUR it is possible to significantly reduce the number of necessary probes in classification studies. This may open the way towards much cheaper diagnostic chips.

## Availability and requirements

**Project name:** rCUR

**Project home page:**
http://cran.r-project.org/web/packages/rCUR/index.html

**Operating system(s):** Platform independent

**Programming language:** R Other requirements: package MASS, methods, Matrix

**License:** GNU GPL Any restrictions to use by non-academics: none

## End notes

^{a}If$C={U}_{C}{\Sigma}_{C}{V}_{C}^{T}$ is the SVD of *C*, then${C}^{+}={V}_{C}{\Sigma}_{C}^{-1}{U}_{C}^{T}$.

## Declarations

### Acknowledgments

We want to thank Gábor Tusnády who suggested the usage of method for our work. The function CUR in package uses the function ginv from package *MASS*[14].

This work was supported by the National Office for Research and Technology, Hungary (NKTH TECH08:3dhist08 grant) and the project TÁMOP 4.2.1.B-11/2/KMR-2011-0003.

## Authors’ Affiliations

## References

- Lukk M, Kapushesky M, Nikkila J, Parkinson H, Goncalves A, Huber W, Ukkonen E, Brazma A: A global map of human gene expression.
*Nat Biotech*2010, 28: 322–324. 10.1038/nbt0410-322View ArticleGoogle Scholar - Nikulin V, Huang TH, Ng SK, Rathnayake SI, McLachlan GJ: A very fast algorithm for matrix factorization.
*Stat & Probability Lett*2011, 81: 773–782. 10.1016/j.spl.2011.02.001View ArticleGoogle Scholar - Kuruvilla F, Park P, Schreiber S: Vector algebra in the analysis of genome-wide expression data.
*Genome Biol*2002, 3(3):research0011.1–0011.11. 10.1186/gb-2002-3-3-research0011View ArticleGoogle Scholar - Mahoney MW, Drineas P: CUR matrix decompositions for improved data analysis.
*PNAS*2009, 103: 697–702.View ArticleGoogle Scholar - Paschou P, Mahoney MW, Javed A, Kidd JR, Pakstis AJ, Gu S, Kidd KK, Drineas P: Intra- and interpopulation genotype reconstruction from tagging SNPs.
*Genome Res*2007, 17: 96–107.PubMed CentralView ArticlePubMedGoogle Scholar - Paschou P, Ziv E, Burchard E, Choudhry S, Rodriguez-Cintron W, Mahoney M, Drineas P: PCA-Correlated SNPs for structure identification in worldwide human populations.
*PLoS Genet*2007, 3: 1672–1686.View ArticlePubMedGoogle Scholar - Javed A, Drineas P, Mahoney M, Paschou P: Efficient Genomewide selection of PCA-Correlated tSNPs for genotype imputation.
*Annals of Human Genetics*2011, 75(6):707–722. 10.1111/j.1469-1809.2011.00673.xView ArticlePubMedGoogle Scholar - Drineas P, Mahoney M, Muthukrishnan S: Relative-Error CUR matrix decompositions.
*SIAM J Matrix Anal Appl*2008, 30: 844–881. 10.1137/07070471XView ArticleGoogle Scholar - Chatterjee S, Hadi A:
*Sensitivity Analysis in Linear Regression*. New York: John Wiley & Sons; 1988.View ArticleGoogle Scholar - Mahoney MW:
*Randomized algorithms for matrices and data*. Boston: Now Publishers, Foundations and Trends in Machine Learning; 2011. [Also available at: arXiv:1104.5557] [Also available at: arXiv:1104.5557]Google Scholar - Bien J, Xu Y, Mahoney MW: CUR from a Sparse Optimization Viewpoint.
*Annual Advances in Neural Information Processing Systems 24: Proceedings of the 2010 Conference*2010.Google Scholar - MacDonald JW, Ghosh D: COPA–cancer outlier profile analysis.
*Bioinformatics*2006, 22: 2950–2951. 10.1093/bioinformatics/btl433View ArticlePubMedGoogle Scholar - Nielsen TO, West RB, Linn SC, Alter O, Knowling MA, O’Connell JX, Zhu S, Fero M, Sherlock G, Pollack JR, Brown PO, Botstein D, van de Rijn M: Molecular characterisation of soft tissue tumours: A gene expression study.
*Lancet*2002, 359: 1301–1307. 10.1016/S0140-6736(02)08270-3View ArticlePubMedGoogle Scholar - Venables WN, Ripley BD:
*Modern Applied Statistics with S*. New York: Springer; 2002. [ISBN 0–387–95457–0]. [http://www.stats.ox.ac.uk/pub/MASS4] [ISBN 0-387-95457-0]. []View ArticleGoogle Scholar

## Copyright

This article is published under license to BioMed Central Ltd. This is an Open Access article distributed under the terms of the Creative Commons Attribution License (http://creativecommons.org/licenses/by/2.0), which permits unrestricted use, distribution, and reproduction in any medium, provided the original work is properly cited.