# NOT RUN {
## Download the map first
# downloadCMBMap(foreground = "smica", nside = 1024)
# df <- CMBDataFrame("CMB_map_smica1024.fits")
# df.sample <- CMBDataFrame(df, sample.size = 80000)
# win <- CMBWindow(theta = c(pi/4,pi/2,pi/2,pi/4), phi = c(0,0,pi/2,pi/2))
# cmbdf.win <- window(df.sample, new.window = win)
#
# intensities <- "I"
# plotAngDis(cmbdf.win, intensities)
# }
Run the code above in your browser using DataCamp Workspace