islands <- readRDS("ISLAND_3_200.rds")
islandName <- names(islands)
islandNameChr22 <- islandName[grep("chr22:", islandName)][1:20]
islandsChr22 <- islands[islandNameChr22]
saveRDS(islandsChr22, "CpGislandsChr22_ex.RDS")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.