Skip to content

Instantly share code, notes, and snippets.

@Jfortin1
Last active August 29, 2015 14:10
Show Gist options
  • Save Jfortin1/b18a66760cd0cbbb3ace to your computer and use it in GitHub Desktop.
Save Jfortin1/b18a66760cd0cbbb3ace to your computer and use it in GitHub Desktop.
library(IlluminaHumanMethylation450kanno.ilmn12.hg19)
ann <- getAnnotation(IlluminaHumanMethylation450kanno.ilmn12.hg19)
island.status <- gsub("N_|S_","",ann$Relation_to_Island)
counts <- table(island.status)
percs <- counts/nrow(ann)*100
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment