rm(list=ls()
)
Sweave("adehabitatMA2")
Sweave("adehabitatMA2")
rm(list=ls())
Sweave("toto.Rnw")
utils::Sweave("toto.Rnw")
q("no")
version
version
q("no")
1
utils::Sweave("toto.Rnw")
version
ls()
rm(list=ls()
)
version
utils::Sweave("toto.Rnw")
sessionInfo()
?Sweave
library(adehabitatMA)
?morphology
     data(meuse.grid)
     a <- SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")],
                                 data = meuse.grid)
     
     
     ## dilatation
     toto1 <- morphology(a, operation = "dilate", nt = 1)
     toto2 <- morphology(a, operation = "dilate", nt = 2)
     toto3 <- morphology(a, operation = "dilate", nt = 3)
     toto5 <- morphology(a, operation = "dilate", nt = 5)
     colo <- grey((1:5)/6)
     image(toto5, col = colo[1])
     image(toto3, add = TRUE, col = colo[2])
     image(toto2, add = TRUE, col = colo[3])
     image(toto1, add = TRUE, col = colo[4])
     image(a, add = TRUE)

     colo <- grey((1:12)/13)
     image(a, col = 1)
     for (i in 1:12) {
       toto <- morphology(a, operation = "erode", nt = i)
       image(toto, add = TRUE, col = colo[i])
     }

colo
toto
image(toto)
     data(meuse.grid)
     a <- SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")],
                                 data = meuse.grid)
     
     
     ## dilatation
     toto1 <- morphology(a, operation = "dilate", nt = 1)
     toto2 <- morphology(a, operation = "dilate", nt = 2)
     toto3 <- morphology(a, operation = "dilate", nt = 3)
     toto5 <- morphology(a, operation = "dilate", nt = 5)
     colo <- grey((1:5)/6)
     image(toto5, col = colo[1])
     image(toto3, add = TRUE, col = colo[2])
     image(toto2, add = TRUE, col = colo[3])
     image(toto1, add = TRUE, col = colo[4])
     image(a, add = TRUE)

     image(toto1, add = TRUE, col = colo[4])
     image(toto1, add = TRUE)
dev.off()
     image(toto1, add = TRUE)
toto1
     image(toto1)
install.packages("sp")
q("no")
install.packages("sp")
library(adehabitatMA)
?morphology
     data(meuse.grid)
     a <- SpatialPixelsDataFrame(points = meuse.grid[c("x", "y")],
                                 data = meuse.grid)
     
     
     ## dilatation
     toto1 <- morphology(a, operation = "dilate", nt = 1)
     toto2 <- morphology(a, operation = "dilate", nt = 2)
     toto3 <- morphology(a, operation = "dilate", nt = 3)
     toto5 <- morphology(a, operation = "dilate", nt = 5)
     colo <- grey((1:5)/6)
     image(toto5, col = colo[1])
     image(toto3, add = TRUE, col = colo[2])
     image(toto2, add = TRUE, col = colo[3])
     image(toto1, add = TRUE, col = colo[4])
     image(a, add = TRUE)

     ## erosion
     colo <- grey((1:12)/13)
     image(a, col = 1)
     for (i in 1:12) {
       toto <- morphology(a, operation = "erode", nt = i)
       image(toto, add = TRUE, col = colo[i])
     }

     image(a, col = 1)
     image(a, col = 0.99)
     image(a, col = rgb(0.99))
     image(a, col = "black")
     image(a, col = grey(1))
     colo <- grey((1:12)/13)
     image(a, col = "black")
     for (i in 1:12) {
       toto <- morphology(a, operation = "erode", nt = i)
       image(toto, add = TRUE, col = colo[i])
     }

q("no")
