# NOT RUN {
sta_marismas <- sta(data=marismas, freq=36)
str(sta_marismas)
plot(sta_marismas)
plot(sta_marismas, significance=0.09)
# Use of interAnnualPeriod
sta_21016 <- sta(data = marismas, freq = 36, interAnnualPeriod = c(2, 10, 16))
plot(sta_21016)
# Use of intraAnnualPeriod
sta_drySeason_218 <- sta(data = marismas, freq = 36,
interAnnualPeriod = 2:18, intraAnnualPeriod = "drySeason")
plot(sta_drySeason_218)
# Use of adhocPeriod and significance
adhoc <- list()
beginPeriod <- (1:17) * 36
endPeriod <- 2:18 * 36
adhoc$partial <- c( sapply(1:length(beginPeriod),
function(s) c(beginPeriod[s]+1, endPeriod[s]) ) )
adhoc$full <- c( sapply(1:length(beginPeriod),
function(s) (beginPeriod[s]+1):endPeriod[s]) )
sta_adhoc_218 <- sta(data = marismas, freq = 36, interAnnualPeriod = 2:18,
startYear = 2000, endYear = 2018, adhocPeriod = adhoc, significance=0.05)
plot(sta_adhoc_218)
# Use of ndmi RasterStack
# }
# NOT RUN {
ndmi_path = system.file("extdata", "ndmi.tif", package = "sta")
ndmiSTACK <- stack(ndmi_path)
dir.create(path=paste0(system.file("extdata", package="sta"), "/output_ndmi"),
showWarnings=FALSE)
outputDIR = paste0(system.file("extdata", package="sta"), "/output_ndmi")
sta_ndmi_21016 <- sta(data = ndmiSTACK, freq = 36,
numFreq = 4, delta = 0.2, intraAnnualPeriod = "wetSeason",
startYear = 2000, endYear = 2018, interAnnualPeriod = c(2,10,16),
save = TRUE, numCores = 2L, dirToSaveSTA = outputDIR)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab