## Not run:
# ## sample records for one week period
# data(record)
# coord=matrix(c(124.43, 19.23, 53.77,140.18,68.68,202.00,71.89,293.85),nrow=2,ncol=4)
#
# index.sample<- SAIndex(record, coord, wf="la8")
#
# ## example dates
# start.date="2001-3-1"
# end.date="2001-4-30"
# n.station=4
# station.names=c("HER","KAK","HON","SJG")
#
# ## plot SI
# SIplot(index.sample$SI, type=1, start=start.date, end=end.date,
# main="WISA estimation", xlab="Datetime", ylab="iWISA Estimation")
# ## End(Not run)
Run the code above in your browser using DataLab