agilp (version 3.8.0)

Equaliser: Trims a set of gene expression data files to include only the set of identifiers common to all files

Description

This script processes a set of gene expression data files which have different number of entries (i.e. different numbers of identifiers). Further processing of data files usually requires equal number of identifiers in each file (e.g. AALoess or Baseline in this package). The Equaliser script cycles through a series of such datafiles, determines the set of identifiers common to all files in the directory, and outputs a set of files which retain only those identifiers common to the whole set.

Usage

Equaliser(input=file.path(system.file(package="agilp"),"input",""),output=file.path(system.file(package="agilp"),"output",""))

Arguments

input

full path of directory where input data files are put; default is a folder named input within the agilp package directory; the input directory must contain ONLY the set of files to be processed. The input files must contain two columns only, the source identifier in the first column, and the expression data in the second column; see example files

output

full path of directory where output data files are put; default is a folder named output within the agilp package directory

Value

equalised datafiles

One new file is produced for each input file. The file name has an additonal s_ as a suffix.

Details

This utility is particularly useful to process the output of IDswop in the agilp package. IDswop excludes some identifiers on the basis of a cutoff which is data dependent, and may therefore generate files with different numbers of identifiers between samples.

References

In preparation

See Also

AAProcess filenamex Loader Baseline IDswop AALoess

Examples

##Takes four files of raw data (output of AAProcess, in folder agilp/dataset/raw) selects all entries common to all four, and outputs the shortened files to the folder agilp/output.

inputdir<-file.path(system.file(package="agilp"),"extdata","raw","", fsep = .Platform$file.sep)

outputdir<-file.path(system.file(package="agilp"),"output", "", fsep = .Platform$file.sep)

Equaliser(input = inputdir, output = outputdir)

## Not run: 
# #to remove these files again and empty the output directory use 
# unlink(paste(file.path(system.file(package="agilp"),"output",""),"*.*",sep=""), recursive=FALSE)
# 
#    ## End(Not run)