deprecated/add.trend.R

.add.trend <-
function(dataT,fcn=mean){
	d1=dim(dataT)[1]
    d2=dim(dataT)[2]
	lines(seq(1,d1*d2,length=d1),apply(dataT,1,fcn,na.rm=T),lwd=2)
}
galuardi/analyzepsat documentation built on May 17, 2019, 3:25 p.m.