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)
Run the code above in your browser using DataCamp Workspace