Añadir función col2

R/col2.R

@@ -0,0 +1,3 @@
+col2 <- colorRampPalette(rev(c("#67001F", "#B2182B", "#D6604D", "#F4A582",
+                               "#FDDBC7", "#FFFFFF", "#D1E5F0", "#92C5DE",
+                               "#4393C3", "#2166AC", "#053061")))

man/col2.Rd

@@ -0,0 +1,12 @@
+\name{col2}
+\alias{col2}
+\title{Col2}
+\usage{
+col2(n)
+}
+\description{
+Generates a palette of blue-white-red.
+}
+\examples{
+col2(100)
+}