This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
You can also embed plots, for example:
Note that the echo = FALSE
parameter was added to the code chunk to prevent printing of the R code that generated the plot.
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(tidyr)
library(ggplot2)
library(leaflet)
# shell("c:/work/mast467/code/nasa1.cmd",translate = TRUE)
OMG2021 = read.csv("c:/work/mast467/data/2021/2021.dat",sep="")
OMG2020 = read.csv("c:/work/mast467/data/2020/2020.dat",sep="")
OMG2019 = read.csv("c:/work/mast467/data/2019/2019.dat",sep="")
OMG2018 = read.csv("c:/work/mast467/data/2018/2018.dat",sep="")
OMG2017 = read.csv("c:/work/mast467/data/2017/2017.dat",sep="")
var_names = c("CAST","DATE","LAT","LON","P","T","S")
colnames(OMG2021) = var_names
colnames(OMG2020) = var_names
colnames(OMG2019) = var_names
colnames(OMG2018) = var_names
colnames(OMG2017) = var_names
a1 = c(OMG2021$CAST)
a2 = c(OMG2020$CAST)
a3 = c(OMG2019$CAST)
a4 = c(OMG2018$CAST)
a5 = c(OMG2017$CAST)
CASTALL = c(a1,a2,a3,a4,a5)
b1 = c(OMG2021$DATE)
b2 = c(OMG2020$DATE)
b3 = c(OMG2019$DATE)
b4 = c(OMG2018$DATE)
b5 = c(OMG2017$DATE)
DATEALL = c(b1,b2,b3,b4,b5)
c1 = c(OMG2021$LAT)
c2 = c(OMG2020$LAT)
c3 = c(OMG2019$LAT)
c4 = c(OMG2018$LAT)
c5 = c(OMG2017$LAT)
LATALL = c(c1,c2,c3,c4,c5)
d1 = c(OMG2021$LON)
d2 = c(OMG2020$LON)
d3 = c(OMG2019$LON)
d4 = c(OMG2018$LON)
d5 = c(OMG2017$LON)
LONALL = c(d1,d2,d3,d4,d5)
e1 = c(OMG2021$P)
e2 = c(OMG2020$P)
e3 = c(OMG2019$P)
e4 = c(OMG2018$P)
e5 = c(OMG2017$P)
PALL = c(e1,e2,e3,e4,e5)
f1 = c(OMG2021$T)
f2 = c(OMG2020$T)
f3 = c(OMG2019$T)
f4 = c(OMG2018$T)
f5 = c(OMG2017$T)
TALL = c(f1,f2,f3,f4,f5)
g1 = c(OMG2021$S)
g2 = c(OMG2020$S)
g3 = c(OMG2019$S)
g4 = c(OMG2018$S)
g5 = c(OMG2017$S)
SALL = c(g1,g2,g3,g4,g5)
OMGALL = data.frame(CASTALL,DATEALL,LATALL,LONALL,PALL,TALL,SALL)
colnames(OMGALL) = var_names
rm(a1,a2,a3,a4,a5,b1,b2,b3,b4,b5,c1,c2,c3,c4,c5,d1,d2,d3,d4,d5,e1,e2,e3,e4,e5)
rm(f1,f2,f3,f4,f5,g1,g2,g3,g4,g5,CASTALL,DATEALL,LATALL,LONALL,PALL,TALL,SALL)