# \donttest{
#Creating a stormsDataset
sds <- defStormsDataset()
#Getting storm track data for all storms near New Caledonia
sts <- defStormsList(sds=sds, loi = "New Caledonia")
#Getting maximum level in the wind scale
#reached by each storm in the sts object
getScale(sts)
# }
Run the code above in your browser using DataLab