From 45998a290bb7c435b45e465bdf51b0289c310f16 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 3 Feb 2022 17:32:43 +0100
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20funci=C3=B3n=20col2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/col2.R    |  3 +++
 man/col2.Rd | 12 ++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 R/col2.R
 create mode 100644 man/col2.Rd

diff --git a/R/col2.R b/R/col2.R
new file mode 100644
index 0000000..d56cff7
--- /dev/null
+++ b/R/col2.R
@@ -0,0 +1,3 @@
+col2 <- colorRampPalette(rev(c("#67001F", "#B2182B", "#D6604D", "#F4A582",
+                               "#FDDBC7", "#FFFFFF", "#D1E5F0", "#92C5DE",
+                               "#4393C3", "#2166AC", "#053061")))
diff --git a/man/col2.Rd b/man/col2.Rd
new file mode 100644
index 0000000..efa3a77
--- /dev/null
+++ b/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)
+}