...
| Code Block |
|---|
dpar(start="2011 jul 17 17:00",lenmin=30,stns=1)
iod = prep(c("w.4.5m#1","h2o.4.5m#1","co2.4.5m#1"),rate=20)
x = readts(iod)
close(iod)
cwh = crosscorr(x[,1:2],lags=c(-1,1))>
plot(as.numeric(utime(positions(cwh))),cwh,xlab="lag(sec)",ylab="w.4.5m#1:co2.4.5m#1")
|