# NS53 Satellite  Data
# Michael D Cayton
# March 9, 2019
# Last update 3-19-19


#### Load the libraries ###
library(tidyverse)

ns53_130331_v1.03 <- read_delim('ftp://ftp.ngdc.noaa.gov/STP/space-weather/satellite-data/satellite-systems/gps/data/ns53/ns53_130331_v1.03.ascii'
           , comment ='#'
           , delim=' '
           , col_names = FALSE
           , trim_ws = TRUE)
           
ns53_130331_v1.03 <- tbl_df(ns53_130331_v1.03)
ns53_130331_v1.03

ns53_HD <- ns53_130331_v1.03 %>% select(3:41)
ns53_HD <- tbl_df(ns53_HD)
ns53_HD

## Uncomment if you need to write file 
# write_csv(ns53_HD, path='Happy Dad/ns53_130331_hd.csv', col_names = FALSE)

# write data matrix to a fixed width format for FORTRAN.  

ns53_test <- sprintf("%.6f", ns53_HD$X3)
ns53_test <- tbl_df(ns53_test)

ns53_test <- cbind(ns53_test, sapply(ns53_HD[2:4], sprintf, fmt = "%.3f"))

ns53_test <- cbind(ns53_test, sapply(ns53_HD[5:20], sprintf, fmt = "%.3e"))

ns53_test <- cbind(ns53_test, sprintf("%1i", ns53_HD$X23))

ns53_test <- cbind(ns53_test, sprintf("%3i", ns53_HD$X24))

ns53_test <- cbind(ns53_test, sprintf("%4i", ns53_HD$X25))

ns53_test <- cbind(ns53_test, sprintf("%4.8f", ns53_HD$X26))

ns53_test <- cbind(ns53_test, sprintf("%2i", ns53_HD$X27))

ns53_test <- cbind(ns53_test, sprintf("%1i", ns53_HD$X28))

ns53_test <- cbind(ns53_test, sapply(ns53_HD[27:37], sprintf, fmt = "%.4f"))

ns53_test <- cbind(ns53_test, sapply(ns53_HD[38:39], sprintf, fmt = "%.3e"))

write.table(ns53_test, file='Happy Dad/ns53_test.txt', col.names=FALSE, row.names=FALSE, sep=" ", quote=FALSE)

# possible fixed width format
sprintf("%+010.6f", ns53_HD$X4)

# Possibly to do the FORTRAN evaluations in R.  
 eigen(cor(ns53_test))
cor(ns53_test)