R/dayNorm.R

Defines functions `medianNorm` `dayNorm`

# Normalisation methods

`dayNorm` <-
function(samples, resInt) {
    run_days <- sampleDays(samples)
    lapply(resInt, function(z) {
        Days <- unique(run_days)
    	res  <- z
        for(i in 1:length(Days)) {
            tmp <- z[,run_days == Days[i],drop=FALSE]
            day.med <- apply(tmp,1, median, na.rm=T)
            tmp <- sweep(tmp,1,day.med, FUN="/")
            res[,run_days == Days[i]] <- tmp
        }
	   return(res)
    })
}

`medianNorm` <-
function(my.files, resInt) {
    lapply(resInt, function(z) {
    	res.med <- apply(z,1, median, na.rm=T)
    	sweep(z,1,res.med, FUN="/")
    })
}

Try the TargetSearch package in your browser

Any scripts or data that you put into this service are public.

TargetSearch documentation built on March 12, 2021, 2 a.m.