# R/MapToInterval.r In useful: A Collection of Handy, Useful Functions

#### Documented in mappingMapToInterval

```## maps a given set of numbers to the specified interval
## @nums: (vector) the numbers to be mapped
## @start (numeric) the beginging of the mapping
## @stop (numeric) the end of the mapping

#' Map numbers to interval
#'
#' Maps a range of numbers to a given interval
#'
#' formula: a + (x - min(x)) * (b - a) / (max(x) - min(x))
#'
#' @aliases MapToInterval mapping
#' @param nums The vector of numbers to be mapped
#' @param start The start of the interval
#' @param stop The end of the interval
#' @return The original numbers mapped to the given interval
#' @author Jared P. Lander
#' www.jaredlander.com
#' @export MapToInterval mapping
#' @keywords numbers mapping interval
#' @examples
#'
#' MapToInterval(1:10, start=0, stop=1)
#' mapping(1:10, start=0, stop=1)
#'
MapToInterval <- function(nums, start=1, stop=10)
{
#do the mapping: a + (x - min(x)) * (b - a) / (max(x) - min(x))
mapped <- start + (nums - min(nums)) * (stop - start) / diff(range(nums))
return(mapped)
}

# just a better name for the function
mapping <- function(nums, start=1, stop=10)
{
return(MapToInterval(nums=nums, start=start, stop=stop))
}
```

## Try the useful package in your browser

Any scripts or data that you put into this service are public.

useful documentation built on June 10, 2018, 1:04 a.m.