index_bands | R Documentation |
This function create vegetation indices (Esta funcao cria indices de vegetacao).
index_bands(index="NDVI",red=NULL,green=NULL,blue=NULL,nir=NULL, swir=NULL,normalize=FALSE)
index |
:Vegetation index to be estimated, default="NDVI" (Indice de vegetacao a ser estimado, default="NDVI"). |
red |
:Matrix with the red band (Matriz com a banda de vermelho). |
green |
:Matrix with the green band (Matriz com a banda de verde). |
blue |
:Matrix with the blue band (Matriz com a banda de azul). |
nir |
:Matrix with the nir band (Matriz com a banda nir). |
swir |
:Matrix with the swir band (Matriz com a banda swir). |
normalize |
:Logical value, if TRUE, the result will be normalized to vary between 0 and 1 (Valor logico, se for TRUE o resultado sera normatizado para variar entre 0 e 1). |
Return images size (Retorna o tamanho das imagens).
Alcinei Mistico Azevedo (Instituto de ciencias agrarias da UFMG)
gray_scale
, read_image
#' ######################################################## ###' Abrindo o endereco de bandas de imagens de satelite ######################################################## end1=example_image(14) #Banda de azul end2=example_image(15) #Banda de verde end3=example_image(16) #Banda de vermelho end4=example_image(17) #Banda de IR end5=example_image(18) #Banda de SWIR ######################################################## ###' Abrindo bandas de imagens de satelite ######################################################## B1=read_image(end1,plot=TRUE) B2=read_image(end2,plot=TRUE) B3=read_image(end3,plot=TRUE) B4=read_image(end4,plot=TRUE) B5=read_image(end5,plot=TRUE) ######################################################## ###' Juntando as bandas em uma imagem ######################################################## im=join_bands(imgs = list(B1,B2,B3,B4,B5)) tif_info(im) ########################################################## #### Mostrando a imagem colorida ########################################################## plot_image(im,r=3,g=2,b=1,rasterRGB = TRUE) ######################################################## ###' Calculando o NDVI ######################################################## NDVI=index_bands(index="NDVI",red =im[[3]],nir = im[[4]]) plot_image(im=NDVI,col=8,axis=TRUE,title="NDVI") ######################################################## ###' Calculando o NDWI ######################################################## NDWI=index_bands(index="NDWI",green =im[[2]],swir = im[[5]]) plot_image(im=NDWI,col=8,axis=TRUE,title="NDWI")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.