library(raster)
## Make up fake data
data(rlogo)
pseudoLS <- stack(rlogo, rlogo, rlogo[[1]])
names(pseudoLS) <- paste0("band_", 1:7)
## Run tasseled cap (exclude thermal band 6)
tasseledCap(pseudoLS[[c(1:5,7)]], sat = "Landsat5TM")
Run the code above in your browser using DataLab