test.rawMat <- function() {
file <- system.file('cdf/KO/ko15.CDF', package = "faahKO")
xraw <- xcmsRaw(file)
xrawCopy <- deepCopy(xraw)
checkTrue(all(xraw@env$mz == xrawCopy@env$mz))
xrawCopy@env$mz <- xrawCopy@env$mz+1
checkTrue(all(xraw@env$mz != xrawCopy@env$mz))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.