# NOT RUN {
## First download the map
# downloadCMBMap(foreground = "smica", nside = 1024)
# df <- CMBDataFrame("CMB_map_smica1024.fits")
# df.sample <- CMBDataFrame(df, sample.size = 10000)
# header(df.sample)
# }
Run the code above in your browser using DataLab