Hi,
I am trying to plot the following time series:
Low sampling rate Low sampling rate Sample High sampling rate High
sampling rate Sample 09:50:00 4.474203 09:50:37 4.465 10:00:00 4.493805
09:50:38 4.452 10:10:00 4.503606 09:50:39 4.451 10:20:00 4.513407 09:50:40
4.465 10:30:00 4.503606 09:50:41 4.456 10:40:00 4.464402 09:50:42 4.469
10:50:00 4.425198 09:50:43 4.454
This is my code:
Sampling_rates<-data.frame(LOAD_DATA[zero:nrow(LOAD_DATA),zero:ncol(LOAD_DATA)])
Sampling_rates_Labels<-names(LOAD_DATA[zero:nrow(LOAD_DATA),zero:ncol(LOAD_DATA)])
###
LOW_SAMPLING<-matrix(MV,nrow(LOAD_DATA),two)
HIGH_SAMPLING<-matrix(MV,nrow(LOAD_DATA),two)
colnames(LOW_SAMPLING)<-c("LOW_SAMPLING_RATE","LOW_SAMPLING")
colnames(HIGH_SAMPLING)<-c("HIGH_SAMPLING_RATE","HIGH_SAMPLING")
### Find all LOW_SAMPLING values
for (i in one:nrow(LOAD_DATA))
if (Sampling_rates_Labels[one]=="Low.sampling.rate")
LOW_SAMPLING[i,one]<-(LOAD_DATA[i,one])
for (j in one:nrow(LOAD_DATA))
if (Sampling_rates_Labels[two]=="Low.sampling.rate.Sample")
LOW_SAMPLING[j,two]<-(LOAD_DATA[j,two])
for (i in one:nrow(LOAD_DATA))
if (LOW_SAMPLING[i,one]=="")
LOW_SAMPLING_ONLY<-LOW_SAMPLING[!apply(LOW_SAMPLING=="",MARGIN=one,any),]
### Find all HIGH_SAMPLING values
for (i in one:nrow(LOAD_DATA))
if (Sampling_rates_Labels[three]=="High.sampling.rate")
HIGH_SAMPLING[i,one]<-(LOAD_DATA[i,three])
for (j in one:nrow(LOAD_DATA))
if (Sampling_rates_Labels[four]=="High.sampling.rate.Sample")
HIGH_SAMPLING[j,two]<-(LOAD_DATA[j,four])
for (i in one:nrow(LOAD_DATA))
if (LOAD_DATA[i,one]=="")
HIGH_SAMPLING_ONLY<-HIGH_SAMPLING[!apply(HIGH_SAMPLING=="",MARGIN=one,any),]
However, I keep getting an error stating that,
Error in plot.window(...) : need finite 'ylim' values
I tried converting it to a time series but still no joy in terms of
plotting, I still get the same error. Does anyone know how to plot this
time series data, all on one graph?
Thanks
--
Shane
[[alternative HTML version deleted]]