data(yeast) # loading the reduced CDC28 yeast set (from the Mfuzz package)
# Data preprocessing
if (interactive()){
data(yeast)
yeast <- filter.NA(yeast)
# filters genes with more than 25% of the expression values missing
yeast <- fill.NA(yeast)
# for illustration only; rather use knn method for replacing missing values
tmp <- ar1analysis(yeast)
# fits AR1 process autocorrelation coefficients
plot(density(tmp$alpha),main="Autocorrelation")
}
Run the code above in your browser using DataLab