# Loading the library and the data
library(LPE)
data(Ley)
dim(Ley)
# Gives 12488 by 7
Ley[1:3,]
# Returns
# ID c1 c2 c3 t1 t2 t3
# 1 AFFX-MurIL2_at 4.06 3.82 4.28 11.47 11.54 11.34
# 2 AFFX-MurIL10_at 4.56 2.79 4.83 4.25 3.72 2.94
# 3 AFFX-MurIL4_at 5.14 4.10 4.59 4.67 4.71 4.67
Ley[,2:7] <- preprocess(Ley[,2:7],data.type="MAS5")
subset <- 1:1000
Ley.subset <- Ley[subset,]
# Finding the baseline distribution of subset of the data
# condition one (3 replicates)
var.1 <- baseOlig.error(Ley.subset[,2:4], q=0.01)
dim(var.1)
# Returns a matrix of 1000 by 2 (A,M) format, equal to the nrow(data)
Run the code above in your browser using DataLab