File: trwlplot.q

package info (click to toggle)
sm 2.0.14-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 992 kB
  • ctags: 26
  • sloc: fortran: 133; sh: 28; makefile: 13
file content (13 lines) | stat: -rw-r--r-- 518 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
provide.data(trawl)
par(mfrow = c(2,2))
plot(Longitude, Latitude, type = "n")
points(Longitude[Zone == 1], Latitude[Zone == 1])
text(Longitude[Zone == 0], Latitude[Zone == 0], "o")
Zone93    <- (Year == 1 & Zone == 1)
Position  <- cbind(Longitude - 143, Latitude)
sm.regression(Latitude[Zone93],  Score1[Zone93], h = 0.1)
sm.regression(Position[Zone93,], Score1[Zone93], 
     h= c(0.1, 0.1), eye.mult = c(8,-6,5), xlab="Longitude - 143")
sm.regression(Longitude[Zone93], Score1[Zone93], h = 0.1)
par(mfrow = c(1,1))