minFragCart2Polar {MetCirc} | R Documentation

## Calculate the nearest feature in polar coordinates given cartesian coordinates

### Description

Calculates the nearest feature in polar coordinates given cartesian coordinates

### Usage

    minFragCart2Polar(x, y, degreeOfFeatures)

### Arguments

`x` | cartesian x coordinate
`y` | cartesian y coordinate
`degreeOfFeatures` | list of positions of features

### Details

`minFragCart2Polar` is employed to find the feature with the smallest distance from given cartesian coordinates.

### Value

`minFragCart2Polar` returns the index of the feature that has the smallest distance to the given coordinates. As `minFragCart2Polar` is used in `shinyCircos` for the track 1 only polar r coordinates between 0.8 and 1 will be used to find the feature with smallest distance.

### Author(s)

Thomas Naake, thomasnaake@googlemail.com

### Examples

    data("spectra", package="MetCirc")
    similarityMat <- compare_Spectra(spectra_tissue[1:10],
        fun=normalizeddotproduct, binSize=0.01)
    linkDf <- createLinkDf(similarityMatrix=similarityMat,
        spectra=spectra_tissue[1:10], condition=c("SPL", "LIM", "ANT", "STY"),
        lower=0.5, upper=1)
    ## cut link data.frame (here: only display links between groups)
    linkDf_cut <- cutLinkDf(linkDf, type="inter")
    groupname <- c(as.character(linkDf_cut[, "spectrum1"]),
                    as.character(linkDf_cut[, "spectrum2"]))
    groupname <- unique(groupname)
    plotCircos(groupname, NULL, initialize=TRUE, featureNames=FALSE,
         groupName=FALSE, groupSector=FALSE, links=FALSE, highlight=FALSE)
    x <- 1
    y <- 0
    degreeFeatures <- lapply(groupname,
     function(x) mean(circlize:::get.sector.data(x)[c("start.degree", "end.degree")]))
    minFragCart2Polar(x, y, degreeOfFeatures=degreeFeatures)

[Package MetCirc version 1.18.0 Index]