Add power_map.R