library(plotrix) deg <- c(-181.41,-180.82,-180.23,-179.63,-179.05,-178.46,-177.88,-177.29,-176.70,-176.12,-175.52,-174.94,-174.35,-173.76,-173.17, -172.56,-171.98,-171.39,-170.80,-170.21,-169.62,-169.04,-168.45,-167.86,-167.28,-166.67,-166.09,-165.50,-164.91,-164.32, -163.73,-163.13,-162.55,-161.96,-161.37,-160.78,-160.19,-159.61,-159.01,-158.42,-157.83,-157.24,-156.65,-156.05,-155.47, -154.87,-154.29,-153.70,-153.10,-152.51,-151.91,-151.32,-150.73,-150.14,-149.55,-148.97,-148.38,-147.79,-147.21,-146.62, -146.04,-145.45,-144.86,-144.26,-143.68,-143.09,-142.51,-141.92,-141.32,-140.74,-140.15,-139.57,-138.97,-138.39,-137.80, -137.22,-136.62,-136.04,-135.44,-134.85,-134.27,-133.68,-133.09,-132.49,-131.90,-131.32,-130.73,-130.15,-129.55,-128.96, -128.36,-127.77,-127.18,-126.60,-126.01,-125.43,-124.84,-124.25,-123.65,-123.07,-122.47,-121.89,-121.30,-120.72,-120.12, -119.53,-118.94,-118.35,-117.75,-117.17,-116.58,-116.00,-115.41,-114.82,-114.24,-113.65,-113.06,-112.48,-111.89,-111.31, -110.72,-110.13,-109.55,-108.96,-108.37,-107.78,-107.20,-106.61,-106.02,-105.42,-104.83,-104.24,-103.65,-103.06,-102.48, -101.89,-101.30,-100.71,-100.11,-99.53,-98.94,-98.35,-97.77,-97.17,-96.58,-95.99,-95.39,-94.80,-94.21,-93.61, -93.02,-92.42,-91.83,-91.25,-90.66,-90.08,-89.49,-88.90,-88.31,-87.72,-87.13,-86.54,-85.96,-85.37,-84.79, -84.20,-83.60,-83.02,-82.43,-81.84,-81.26,-80.66,-80.08,-79.49,-78.90,-78.31,-77.73,-77.14,-76.55,-75.96, -75.37,-74.78,-74.19,-73.61,-73.02,-72.44,-71.85,-71.27,-70.68,-70.09,-69.50,-68.92,-68.33,-67.73,-67.14, -66.56,-65.97,-65.38,-64.79,-64.20,-63.62,-63.03,-62.44,-61.85,-61.26,-60.68,-60.09,-59.50,-58.91,-58.33, -57.74,-57.16,-56.55,-55.96,-55.38,-54.79,-54.20,-53.62,-53.03,-52.43,-51.84,-51.25,-50.66,-50.08,-49.49, -48.90,-48.31,-47.72,-47.13,-46.55,-45.95,-45.36,-44.76,-44.17,-43.59,-43.00,-42.41,-41.82,-41.23,-40.65, -40.06,-39.48,-38.89,-38.29,-37.70,-37.12,-36.53,-35.94,-35.36,-34.77,-34.18,-33.59,-33.00,-32.42,-31.83, -31.25,-30.66,-30.07,-29.48,-28.87,-28.28,-27.70,-27.11,-26.53,-25.94,-25.35,-24.76,-24.17,-23.59,-22.99, -22.40,-21.82,-21.23,-20.64,-20.04,-19.45,-18.86,-18.28,-17.69,-17.09,-16.50,-15.92,-15.33,-14.74,-14.15, -13.55,-12.97,-12.37,-11.78,-11.20,-10.61,-10.02,-9.44,-8.84,-8.25,-7.66,-7.07,-6.49,-5.90,-5.31, -4.72,-4.12,-3.54,-2.95,-2.36,-1.77,-1.18,-0.60,-0.01,0.58,1.18,1.77,2.36,2.95,3.54, 4.13,4.71,5.30,5.90,6.50,7.09,7.68,8.27,8.86,9.45,10.04,10.63,11.22,11.80,12.39, 12.98,13.57,14.16,14.75,15.34,15.92,16.51,17.10,17.68,18.28,18.87,19.46,20.05,20.64,21.22, 21.81,22.39,22.98,23.58,24.16,24.75,25.33,25.92,26.51,27.10,27.69,28.28,28.87,29.46,30.05, 30.64,31.22,31.81,32.41,32.99,33.58,34.17,34.77,35.36,35.96,36.55,37.14,37.73,38.32,38.91, 39.49,40.08,40.66,41.26,41.85,42.44,43.03,43.61,44.20,44.79,45.38,45.97,46.56,47.15,47.75, 48.34,48.92,49.51,50.10,50.69,51.28,51.86,52.46,53.05,53.63,54.23,54.82,55.41,56.00,56.59, 57.17,57.76,58.35,58.94,59.52,60.11,60.70,61.28,61.87,62.46,63.04,63.64,64.23,64.81,65.40, 65.99,66.58,67.16,67.76,68.35,68.94,69.53,70.11,70.69,71.29,71.87,72.47,73.06,73.64,74.23, 74.82,75.40,75.99,76.58,77.17,77.77,78.35,78.94,79.52,80.11,80.70,81.29,81.88,82.47,83.06, 83.64,84.23,84.82,85.41,86.00,86.59,87.18,87.76,88.35,88.93,89.52,90.11,90.70,91.28,91.87, 92.45,93.05,93.63,94.22,94.81,95.40,95.99,96.58,97.17,97.76,98.35,98.95,99.54,100.12,100.72, 101.30,101.89,102.48,103.06,103.65,104.25,104.83,105.42,106.01,106.61,107.19,107.78,108.38,108.97,109.56, 110.15,110.73,111.32,111.90,112.49,113.08,113.67,114.25,114.84,115.42,116.01,116.61,117.20,117.78,118.37, 118.95,119.54,120.13,120.71,121.31,121.90,122.50,123.08,123.67,124.25,124.84,125.43,126.02,126.61,127.20, 127.79,128.38,128.97,129.55,130.15,130.74,131.32,131.91,132.49,133.08,133.67,134.25,134.85,135.44,136.03, 136.62,137.21,137.80,138.38,138.97,139.57,140.15,140.74,141.32,141.92,142.50,143.09,143.69,144.27,144.86, 145.45,146.04,146.62,147.21,147.80,148.39,148.97,149.56,150.15,150.73,151.33,151.91,152.52,153.11,153.69, 154.28,154.87,155.46,156.05,156.64,157.24,157.82,158.41,159.00,159.59,160.17,160.76,161.35,161.94,162.53, 163.12,163.72,164.32,164.90,165.50,166.09,166.67,167.26,167.85,168.43,169.02,169.62,170.21,170.80,171.39, 171.97,172.56,173.14,173.73,174.31,174.91,175.49,176.08,176.66,177.25,177.85) mag <- c(-50.40,-50.70,-50.30,-46.00,-43.70,-40.60,-39.00,-38.70,-39.60,-41.70,-43.80,-47.20,-49.10,-50.50,-50.80, -50.50,-50.20,-53.30,-62.50,-51.90,-44.70,-41.20,-38.90,-37.90,-37.80,-37.80,-37.90,-37.70,-37.80,-38.40, -39.90,-41.70,-43.10,-43.10,-42.20,-40.90,-40.30,-39.60,-39.20,-39.60,-40.90,-42.70,-44.00,-44.00,-43.00, -43.10,-43.30,-44.40,-45.70,-46.20,-46.20,-45.50,-44.30,-43.30,-42.50,-42.20,-42.50,-43.50,-44.60,-46.00, -46.60,-47.70,-49.30,-49.80,-50.60,-49.90,-49.90,-51.00,-52.40,-53.90,-55.50,-60.40,-55.20,-48.80,-45.70, -44.90,-45.10,-47.10,-49.00,-51.30,-50.90,-49.50,-49.00,-48.70,-48.80,-50.00,-50.80,-52.20,-52.90,-52.00, -48.50,-47.10,-46.30,-45.90,-46.50,-48.20,-49.90,-51.50,-50.70,-49.10,-46.50,-45.70,-44.80,-45.60,-47.90, -51.20,-56.20,-57.70,-54.10,-53.50,-56.70,-57.70,-54.60,-51.30,-51.30,-53.50,-58.60,-60.70,-50.90,-47.10, -44.80,-43.80,-44.00,-45.40,-49.40,-54.20,-67.90,-59.00,-55.20,-54.30,-53.00,-51.10,-49.90,-50.00,-48.80, -47.30,-46.30,-45.50,-44.90,-45.80,-47.10,-49.00,-51.30,-54.80,-57.20,-55.40,-49.90,-46.40,-44.20,-42.40, -41.50,-41.20,-40.80,-40.60,-40.00,-39.50,-39.50,-39.80,-40.70,-41.90,-43.30,-44.30,-44.50,-43.30,-41.90, -40.00,-38.20,-36.80,-36.10,-35.60,-35.10,-34.70,-33.90,-33.20,-32.70,-32.60,-33.20,-33.80,-34.40,-34.60, -34.60,-33.90,-32.70,-31.40,-30.40,-29.80,-29.70,-29.50,-29.20,-28.80,-28.50,-28.50,-28.60,-29.00,-29.20, -29.40,-29.60,-29.80,-30.00,-29.80,-29.60,-29.40,-29.20,-29.10,-29.20,-29.20,-29.20,-29.60,-29.90,-30.40, -30.90,-31.60,-32.60,-34.00,-35.70,-38.50,-43.10,-48.60,-43.60,-39.00,-36.50,-35.10,-34.20,-33.60,-33.10, -32.90,-32.70,-32.40,-32.30,-32.40,-33.30,-34.70,-37.30,-40.70,-43.60,-42.90,-40.80,-39.80,-40.10,-40.50, -42.00,-44.70,-48.80,-51.70,-52.60,-45.50,-39.40,-35.10,-32.50,-30.10,-28.50,-27.80,-27.30,-27.30,-27.70, -28.60,-29.90,-31.60,-33.80,-36.60,-39.60,-40.80,-40.00,-38.00,-36.20,-35.10,-34.40,-34.10,-34.00,-34.50, -36.10,-39.50,-46.80,-45.30,-36.30,-31.70,-28.90,-26.90,-25.30,-24.60,-24.00,-23.90,-23.80,-23.70,-23.40, -22.90,-22.00,-20.70,-19.30,-18.00,-16.80,-15.80,-15.20,-15.00,-15.30,-16.70,-19.20,-22.00,-19.10,-14.10, -10.00,-7.00,-4.80,-3.10,-1.80,-0.90,-0.30,0.00,0.00,-0.20,-0.80,-1.70,-2.80,-4.40,-6.40, -9.00,-12.20,-16.50,-20.10,-19.30,-17.10,-15.80,-15.40,-15.60,-16.20,-17.20,-18.40,-19.70,-21.10,-22.00, -22.60,-22.80,-22.60,-22.50,-22.50,-22.50,-22.90,-23.60,-25.00,-26.90,-29.70,-34.20,-40.80,-49.60,-39.50, -35.90,-34.30,-34.20,-35.00,-36.50,-38.50,-41.00,-45.20,-52.50,-49.40,-41.30,-37.00,-34.20,-32.20,-30.70, -29.50,-28.60,-28.10,-27.90,-28.20,-28.70,-29.60,-30.80,-32.70,-35.30,-38.00,-40.10,-40.20,-39.00,-38.30, -38.40,-39.30,-41.30,-45.20,-53.60,-46.50,-40.60,-36.90,-34.50,-32.80,-31.50,-30.60,-30.20,-30.00,-30.20, -30.50,-31.20,-32.00,-33.10,-34.60,-36.60,-39.40,-42.50,-42.70,-39.80,-37.30,-35.30,-34.00,-32.90,-32.10, -31.30,-30.70,-30.20,-29.80,-29.50,-29.30,-29.10,-29.10,-29.00,-29.20,-29.30,-29.40,-29.60,-29.80,-30.10, -30.30,-30.60,-30.90,-31.00,-31.30,-31.60,-31.80,-32.20,-32.40,-32.60,-32.70,-32.90,-33.20,-33.40,-33.70, -34.20,-34.60,-35.20,-35.80,-36.80,-37.70,-38.70,-39.00,-39.00,-39.40,-39.70,-40.40,-40.90,-41.00,-40.80, -40.80,-41.00,-41.40,-42.40,-44.00,-46.20,-48.00,-47.10,-45.10,-43.90,-43.60,-44.80,-46.90,-49.80,-52.90, -50.80,-48.00,-46.50,-46.20,-46.80,-48.30,-50.30,-52.00,-51.80,-49.70,-47.70,-46.60,-46.60,-47.50,-49.80, -53.90,-58.90,-54.50,-50.30,-48.90,-47.70,-48.20,-49.80,-53.20,-60.90,-64.40,-54.40,-51.50,-50.00,-49.20, -49.60,-51.00,-53.20,-55.80,-54.10,-51.90,-50.60,-50.40,-51.70,-53.60,-56.20,-55.60,-52.40,-50.80,-50.70, -51.80,-53.70,-58.70,-59.10,-55.20,-51.60,-49.30,-48.30,-49.00,-50.30,-52.50,-55.90,-57.60,-55.50,-54.10, -53.10,-52.40,-53.60,-57.10,-63.40,-61.70,-55.50,-51.70,-49.10,-48.50,-47.50,-47.70,-48.30,-48.60,-49.20, -48.70,-47.30,-46.60,-46.00,-45.80,-46.00,-46.00,-47.40,-48.50,-49.70,-51.90,-52.60,-51.90,-51.30,-51.30, -51.30,-52.30,-53.70,-53.60,-53.80,-54.00,-54.30,-53.70,-52.40,-49.70,-47.80,-46.90,-47.10,-48.20,-50.60, -59.90,-56.30,-47.80,-42.80,-40.30,-38.50,-37.40,-37.00,-36.90,-37.30,-37.90,-38.90,-40.00,-41.20,-42.40, -43.80,-44.80,-46.00,-47.40,-47.50,-47.10,-46.70,-46.20,-46.60,-46.60,-47.40,-47.50,-48.10,-48.50,-49.10, -49.30,-49.50,-49.20,-48.30,-47.80,-47.40,-46.90,-46.80,-45.90,-45.20,-44.60) polar.plot(lengths=mag, polar.pos=deg, start=90, clockwise=TRUE, rp.type="p")