Description Usage Arguments Details Value Author(s) References See Also Examples

View source: R/dissmutmatrix.R

This function computes and returns the Euclidean distance matrix, where each cell represents the distance in base pairs between the chromosomal position of somatic mutations. The matrix can be used to graph the anti-Robinson matrix using the seriation technique (Hahsler and Hornik 2011). Plotting the distance matrix helps to visualize and identify mutation clusters in addition to locating the micro-clustered mutated regions within the macro-clustered mutated zones that occur during the oncogenic process.

1 |

`data` |
: somatic substitution mutations of the cancer genome data set. |

`chr` |
: chromosome where the somatic mutation is located. |

`position` |
: position of somatic mutations in the DNA sequence of the cancer genome. |

`subset` |
: chromosome where the distance between all somatic mutations will be calculated. |

`upper` |
: logical value indicating whether the upper triangle of the distance matrix should be printed. |

Color, in the posterior dissimilarity plot, is selected to visually identify hyper-mutated zones (min = 6; max=5000).

`dissmutmatrix()`

returns a symmetric dissimilarity matrix in base 10.

David Lora

Hahsler M, Hornik K and Buchta C (2008), Getting things in order: An introduction to the R package seriation. Journal of Statistical Software 25/3. Software available at http://www.jstatsoft.org/v25/i03/.

Hahsler M and Hornik K. Dissimilarity plots: A visual exploration tool for partitional clustering. Journal of Computational and Graphical Statistics, 10(2):335–354, June 2011.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | ```
require(seriation)
###Example 1:
example1<-c(1,101,201,299,301,306,307,317,318,320,418,518,528,628)
10**(dissmutmatrix(position=example1,upper=TRUE))
mut.matrix <- dissmutmatrix(position=example1)
dissplot(mut.matrix,method=NA,
options=list(col = c("white","white","orange","orange","red","red","red")))
###Example 2:
###One hypermutated zone with Two hypermutated areas sharing somatic mutations.
example2<-c(1,101,201,299,301,306,307,317,318,320,402,404,406,628)
10**(dissmutmatrix(position=example2,upper=TRUE))
mut.matrix <- dissmutmatrix(position=example2)
dissplot(mut.matrix,method=NA,
options=list(col = c("white","white","orange","orange","red","red","red")))
###Example 3:
#data(PD4107a)
###Visualizes a dissimilarity mutation matrix using seriation and matrix shading
###using the method developed by Hahsler and Hornik (2011).
###Chromosome 1;
#mut.matrix <- dissmutmatrix(data=PD4107a,chr=Chr,position=Position,subset=1)
#dissplot(mut.matrix, method=NA, options=list( col =
# c("black","navy","blue","cyan","green","yellow","orange","red",
# "darkred","darkred","white")))
###Chromosome 6;
#mut.matrix <- dissmutmatrix(data=PD4107a,chr=Chr,position=Position,subset=6)
#dissplot(mut.matrix, method=NA, options=list( col =
# c("black","navy","blue","cyan","green","yellow","orange","red","darkred",
# "darkred","white")))
###Chromosome 12;
#mut.matrix <- dissmutmatrix(data=PD4107a,chr=Chr,position=Position,subset=12)
#dissplot(mut.matrix, method=NA, options=list( col =
# c("black","navy","blue","cyan","green","yellow","orange","red","darkred",
# "darkred","white")))
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.