moveCloud: moveCloud

Description Usage Arguments Details Value References See Also Examples

View source: R/moveCloud.R

Description

Provides historical information on cloud cover for a set of coordinate pairs. The temporal information is adjusted to the sample observation date.

Usage

1
moveCloud(x, y, data.path = NULL, buffer.size = NULL, remove.file = FALSE)

Arguments

x

Object of class Date with observation dates of y.

y

Object of class SpatialPoints or SpatialPointsDataFrame.

data.path

Output data path for downloaded data.

buffer.size

Two element vector with temporal buffer size (expressed in days).

remove.file

Logical. Should the files be deleted after usage?

Details

This function uses daily cloud fraction data from NASA's NEO service. For each observation date in obs.dates, the function downloads the correspondent image and extracts the percent cloud cover for the corresponding samples in y. Before downloading any data, the function will look within data.path for previoulsy acquired data. If they exist, they won't be downloaded reducing the processing time required by the function. Moreover, if buffer.size is specified, for each date, the function will download all images that are within the specified temporal buffer. buffer.size requires a twoelement vector which specifies the buffer size before and after the target dates. These additional images will be used to report on the closest time step with the lowest possible cloud cover. The final output provides a data.frame ($report) with information on:

Finally, the function generates a plot ($plot) reporting on the variability of cloud cover and the number of observation registered in y for each date.

Value

A list object reporting on the variability of cloud cover within and around each observation dates.

References

https://cneos.jpl.nasa.gov/

See Also

sMoveRes tMoveRes

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
## Not run: 

 require(raster)

 # read movement data
 data(shortMove)

 # test function for 30 day buffer
 od <- as.Date(shortMove@data$date)
 c.cover <- moveCloud(shortMove, od, data.path=".", buffer.size=c(30,30))


## End(Not run)

rsMove documentation built on July 1, 2020, 6:02 p.m.