## Not run:
# # Search for nx3tvs data from 5 May 2006 to 6 May 2006
# swdi(dataset='nx3tvs', startdate='20060505', enddate='20060506')
#
# # Get all 'nx3tvs' within 15 miles of latitude = 32.7 and longitude = -102.0
# swdi(dataset='nx3tvs', startdate='20060506', enddate='20060507',
# radius=15, center=c(-102.0,32.7))
#
# # use an id
# swdi(dataset='warn', startdate='20060506', enddate='20060507', id=533623)
#
# # Get all 'plsr' within the bounding box (-91,30,-90,31)
# swdi(dataset='plsr', startdate='20060505', enddate='20060510',
# bbox=c(-91,30,-90,31))
#
# # Get all 'nx3tvs' within the tile -102.1/32.6 (-102.15,32.55,-102.25,32.65)
# swdi(dataset='nx3tvs', startdate='20060506', enddate='20060507',
# tile=c(-102.12,32.62))
#
# # Counts
# ## Note: stat='count' will only return metadata, nothing in the data or shape slots
# ## Note: stat='tilesum:...' returns counts in the data slot for each date for that tile,
# ## and shape data
# ## Get number of 'nx3tvs' within 15 miles of latitude = 32.7 and longitude = -102.0
# swdi(dataset='nx3tvs', startdate='20060505', enddate='20060516', radius=15,
# center=c(-102.0,32.7), stat='count')
#
# ## Get daily count nx3tvs features on .1 degree grid centered at latitude = 32.7
# ## and longitude = -102.0
# swdi(dataset='nx3tvs', startdate='20060505', enddate='20090516',
# stat='tilesum:-102.0,32.7')
#
# # CSV format
# swdi(dataset='nx3tvs', startdate='20060505', enddate='20060506', format='csv')
#
# # SHP format
# swdi(dataset='nx3tvs', startdate='20060505', enddate='20060506', format='shp',
# filepath='myfile')
#
# # KMZ format
# swdi(dataset='nx3tvs', startdate='20060505', enddate='20060506', format='kmz',
# radius=15, filepath='myfile.kmz')
#
# # csv output to SpatialPointsDataFrame
# res <- swdi(dataset='nx3tvs', startdate='20060505', enddate='20060506', format="csv")
# library('sp')
# coordinates(res$data) <- ~lon + lat
# res$data
# class(res$data)
# ## End(Not run)
Run the code above in your browser using DataLab