# read.csv(excel.csv, header = TRUE, sep = ",")
# Q<- read.table(excel.csv)
 necoast<- read.csv('necoast.csv', header = TRUE, sep = ",")
 attach(necoast)
cat('necoast\n')
# X4neborderlat[5]<- 41.30438
# Fixing datum 5 in necoast line
 ne50fath<- read.csv('ne50fath.csv', header = TRUE, sep = ",")
 attach(ne50fath)
cat('ne50fath\n')
# Set up the axis from Cape Hateras to Bay of Fundy
 plot(c(-77,-66),c(35,46), type = 'n', main = 'NE Atlantic Coast of USA',
       xlab = 'Longitude', ylab = 'Latitude')
#  need a plot.new()
# Fixing datum 5 in 50 fathum line
Fath50Lat[5]<- 40.02850
lines(neborderlon, neborderlat, col='red', lwd = 1)
lines(Fath50Lon, Fath50Lat, col='green', lwd = 2)
# Add trip path data
 al0203sta<- read.csv('AL0203sta.csv', header = TRUE, sep = ",")
 attach(al0203sta)
points(TOWlon, TOWlat, col='blue')
lines(TOWlon, TOWlat, col='blue', lt = 2)