Fix ps1 header

Source: R/optical-utils.R

Fix ps1 header

fix_header_ps1(header)

Arguments

header

FITSio –> obj$hdr

Value

fixed_header

Examples

if (FALSE) { # \dontrun{
f <- FITSio::readFITS("file.fits")
fix_header(f$hdr)
} # }