#
#
# #' @details Taken from this site on 2014-12-10 http://oceancolor.gsfc.nasa.gov/REPROCESSING/R2009/ocv6/
# #'
# OCv6 <- structure(list(sensor = structure(c(6L, 2L, 5L, 6L, 3L, 3L, 7L,
# 2L, 5L, 1L, 6L, 2L, 5L, 3L, 3L, 4L), .Label = c("CZCS", "MERIS",
# "MODIS", "MODIS (500-m)", "OCTS", "SeaWiFS", "VIIRS"), class = "factor"),
# default = structure(c(2L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L,
# 2L, 1L, 1L, 1L, 1L, 1L, 2L), .Label = c("N", "Y"), class = "factor"),
# blue = structure(c(3L, 3L, 4L, 2L, 2L, 2L, 1L, 2L, 2L, 5L,
# 7L, 7L, 7L, 7L, 7L, 6L), .Label = c("443>486", "443>489",
# "443>489>510", "443>489>516", "443>520", "469", "489"), class = "factor"),
# green = structure(c(3L, 4L, 5L, 3L, 2L, 1L, 2L, 4L, 5L, 2L,
# 3L, 4L, 5L, 2L, 1L, 3L), .Label = c("547", "550", "555",
# "560", "565"), class = "factor"), a0 = structure(c(13L, 12L,
# 14L, 10L, 6L, 6L, 2L, 11L, 5L, 15L, 9L, 4L, 3L, 7L, 8L, 1L
# ), .Label = c("0.1464", "0.2228", "0.2236", "0.2389", "0.2399",
# "0.2424", "0.2481", "0.2500", "0.2511", "0.2515", "0.2521",
# "0.3255", "0.3272", "0.3325", "0.3330"), class = "factor"),
# a1 = structure(c(15L, 13L, 14L, 8L, 11L, 12L, 9L, 6L, 4L,
# 16L, 5L, 3L, 2L, 7L, 10L, 1L), .Label = c("-1.7953", "-1.8296",
# "-1.9369", "-2.0825", "-2.0853", "-2.2146", "-2.2958", "-2.3798",
# "-2.4683", "-2.4752", "-2.5828", "-2.7423", "-2.7677", "-2.8278",
# "-2.9940", "-4.3770"), class = "factor"), a2 = structure(c(14L,
# 13L, 15L, 6L, 9L, 11L, 7L, 5L, 8L, 16L, 4L, 10L, 12L, 2L,
# 3L, 1L), .Label = c("0.9718", "1.4053", "1.4061", "1.5035",
# "1.5193", "1.5823", "1.5867", "1.6126", "1.7057", "1.7627",
# "1.8017", "1.9094", "2.4409", "2.7218", "3.0939", "7.6267"
# ), class = "factor"), a3 = structure(c(8L, 7L, 9L, 3L, 1L,
# 16L, 2L, 4L, 6L, 15L, 14L, 12L, 11L, 13L, 10L, 5L), .Label = c("-0.3415",
# "-0.4275", "-0.6372", "-0.7702", "-0.8319", "-1.0848", "-1.1288",
# "-1.2259", "-2.0917", "-2.8233", "-2.9481", "-3.0777", "-3.1299",
# "-3.1747", "-7.1457", "0.0015"), class = "factor"), a4 = structure(c(7L,
# 6L, 1L, 8L, 11L, 12L, 9L, 5L, 4L, 16L, 13L, 2L, 3L, 15L,
# 14L, 10L), .Label = c("-0.0257", "-0.1054", "-0.1718", "-0.2083",
# "-0.4291", "-0.4990", "-0.5683", "-0.5692", "-0.7768", "-0.8073",
# "-0.8818", "-1.2280", "0.3383", "0.5405", "0.6478", "1.6673"
# ), class = "factor")), .Names = c("sensor", "default", "blue",
# "green", "a0", "a1", "a2", "a3", "a4"), row.names = c("OC4",
# "OC4E", "OC4O", "OC3S", "OC3M-551", "OC3M-547", "OC3V", "OC3E",
# "OC3O", "OC3C", "OC2S", "OC2E", "OC2O", "OC2M-551", "OC2M-547",
# "OC2M-HI"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.