Verifying the order between intensities matrix and target file information

Description

Check that the foreground and backgruond intensities are stored in the same order as provided in the first column of target file.

Usage

checkTargetInfo(mraw)

Arguments

Value

A logical value. This function returns "TRUE" if the first column from the Target information is the same order as the foreground and backgruond intensities.

Author(s)

Yee Hwa (Jean) Yang

Examples

datadir <- system.file("swirldata", package="marray")
swirl.targets <- read.marrayInfo(file.path(datadir, "SwirlSample.txt"))
data(swirl)
swirl@maTargets <- swirl.targets

checkTargetInfo(swirl)

checkTargetInfo(swirl[, 2:4])

## reorder
swirl@maTargets <- swirl.targets[c(2:4, 1),]
checkTargetInfo(swirl)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(marray)
Loading required package: limma
> png(filename="/home/ddbj/snapshot/RGM3/R_BC/result/marray/checkTargetInfo.Rd_%03d_medium.png", width=480, height=480)
> ### Name: checkTargetInfo
> ### Title: Verifying the order between intensities matrix and target file
> ###   information
> ### Aliases: checkTargetInfo
> ### Keywords: file
> 
> ### ** Examples
> 
> datadir <- system.file("swirldata", package="marray")
> swirl.targets <- read.marrayInfo(file.path(datadir, "SwirlSample.txt"))
> data(swirl)
> swirl@maTargets <- swirl.targets
> 
> checkTargetInfo(swirl)
[1] TRUE
> 
> checkTargetInfo(swirl[, 2:4])
[1] TRUE
> 
> ## reorder
> swirl@maTargets <- swirl.targets[c(2:4, 1),]
> checkTargetInfo(swirl)
[1] FALSE
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>