# read.csv(excel.csv, header = TRUE, sep = ",")
# reading and ploting map data from excel csv files
 necoast<- read.csv('necoast.csv', header = TRUE, sep = ",")
 attach(necoast)
cat('necoast data\n')
neborderlat[5]<- 41.30438
# Fixing datum 5 in necoast line
 ne50fath<- read.csv('ne50fath.csv', header = TRUE, sep = ",")
 attach(ne50fath)
cat('ne50fath data\n')
# Set up the axis from Cape Hateras to Bay of Fundy
 plot(c(-71,-66),c(41,46), type = 'n', main = 'Gulf of Maine of Canada & 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)
# Add lobster site data
 lobsters<- read.csv('lobsters.csv', header = TRUE, sep = ",")
 attach(lobsters)
points(LobLon, LobLat, col='purple', lwd = 2, cex =1.5, pch = 22, bg = 'orange')