## ----setup, include=FALSE------------------------------------------------ knitr::opts_chunk$set(echo = TRUE) ## ----predictGA----------------------------------------------------------- require(GAprediction) ## Create a mock Illumina CpG dataset cpgs <- extractSites( type="se" ) allcpgs <- extractSites( type="all" ) numsamples <- 100 mlmatr <- matrix( NA, ncol=length( allcpgs ), nrow=numsamples ) mlmatr <- data.frame( mlmatr ) ## The CpGs needed for prediction can not contain NA's for( i in cpgs ) mlmatr[,i] <- runif( numsamples, min=0, max=1 ) ## ----predictGA2---------------------------------------------------------- mypred <- predictGA( mlmatr ) head( mypred ) ## ----extractSites2------------------------------------------------------- cpgs <- extractSites( type="se" ) cpgs[1:10]