data("Simulated_data")
ref_idx<-41:50
stations<-matrix(unlist(strsplit(rownames(Simulated_data),".",fixed=TRUE)),ncol=2,byrow=TRUE)[,1]
decomplot(x=Simulated_data,g=stations,ref=ref_idx,main="Simulated data")
Run the code above in your browser using DataLab