#check results with: class(z);exprs(z);pData(z);fData(z);annotation(z)
nf <- 5; nobs <- 4
x<- matrix(rnorm(nf * nobs), nrow = nf, ncol = nobs)
z1 <- xprnSet(exprs = x)
z2 <- xprnSet(exprs = x, phenoData = data.frame(class = c(1:ncol(x))))
z3 <- XprnSet(exprs = abs(x), annotation = "XprnSet")
z4 <- nxprnSet(x = x)
z5 <- nxprnSet(x = x, pdata = data.frame(class = c(1:ncol(x))))
z6 <- nxprnSet(x = x, pdata = c(rep("A", nobs - 1), rep("B", 1)))
z7 <- nXprnSet(x = abs(x), annot = "XprnSet")
Run the code above in your browser using DataLab