Commit 51ddb033 authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

Add package name.

parent c2846532
......@@ -145,7 +145,7 @@ model_opt_r <- function(k,
as.data.frame(cbind(classes[d1], matrix(p1, ncol = 2)))
sp::coordinates(pbtn1) <- c("V2", "V3")
#sp::proj4string(pbtn1) <- sp::proj4string(pbt)
crs(pbtn1) <- crs(pbt)
raster::crs(pbtn1) <- raster::crs(pbt)
poly <- rgeos::gBuffer(spgeom = pbtn1,
width = buffer,
......@@ -207,7 +207,7 @@ model_opt_r <- function(k,
as.data.frame(cbind(classes[d2], matrix(p2, ncol = 2)))
sp::coordinates(pbtn2) <- c("V2", "V3")
#sp::proj4string(pbtn2) <- sp::proj4string(pbt)
crs(pbtn2) <- crs(pbt)
raster::crs(pbtn2) <- raster::crs(pbt)
poly <- rgeos::gBuffer(spgeom = pbtn2,
width = buffer,
......
......@@ -100,7 +100,7 @@ multi_Class_Sampling <- function(in.raster,
area <- as(raster::extent(in.raster), 'SpatialPolygons')
area <- sp::SpatialPolygonsDataFrame(area, data.frame(ID = 1:length(area)))
#sp::proj4string(area) <- sp::proj4string(in.raster)
crs(area) <- crs(in.raster)
raster::crs(area) <- raster::crs(in.raster)
col <- colorRampPalette(c("lightgrey",
"orange",
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment