# install.packages("MASS") library(MASS) # Datos x <- rnorm(500) y <- rnorm(500) z <- kde2d(x, y, n = 50) plot(x, y, pch = 19) contour(z, lwd = 2, add = TRUE, col = hcl.colors(10, "Spectral")) filled.contour(volcano) filled.contour(volcano, nlevels = 10) filled.contour(volcano, color.palette = terrain.colors) filled.contour(volcano, plot.axes = { axis(1) axis(2) contour(volcano, add = TRUE, lwd = 2) } )

HW 1

Slideshow of how to perform ANOVA testing!

getwd() setwd("D:/curso_de_backend_r_y_python/python_rstudio_1242_pubs") library(raster) library(sp) library(sf) library(gstat) library(rastervis) Contour_tif1<- st_read("Contour_tif1") plot(st_geometry(Contour_tif1), graticule = TRUE, axes=TRUE) Contour_tif1 <- st_transform(Contour_tif1, crs = 4324)