library(plotrix) deg <- c(-176.69,-176.12,-175.54,-174.96,-174.39,-173.81,-173.23,-172.65,-172.08,-171.50,-170.93,-170.35,-169.78,-169.20,-168.63, -168.05,-167.48,-166.91,-166.33,-165.75,-165.18,-164.62,-164.04,-163.47,-162.90,-162.33,-161.75,-161.18,-160.61,-160.03, -159.46,-158.89,-158.32,-157.74,-157.17,-156.59,-156.02,-155.44,-154.86,-154.29,-153.71,-153.13,-152.56,-151.98,-151.40, -150.83,-150.26,-149.68,-149.11,-148.54,-147.97,-147.39,-146.82,-146.24,-145.66,-145.09,-144.51,-143.93,-143.36,-142.78, -142.21,-141.65,-141.08,-140.51,-139.94,-139.35,-138.78,-138.20,-137.62,-137.05,-136.48,-135.90,-135.33,-134.76,-134.18, -133.60,-133.02,-132.45,-131.88,-131.31,-130.73,-130.15,-129.57,-129.00,-128.43,-127.85,-127.27,-126.69,-126.12,-125.54, -124.97,-124.39,-123.81,-123.24,-122.67,-122.10,-121.53,-120.94,-120.37,-119.79,-119.22,-118.65,-118.08,-117.51,-116.92, -116.36,-115.79,-115.22,-114.64,-114.06,-113.49,-112.91,-112.35,-111.76,-111.19,-110.61,-110.04,-109.47,-108.89,-108.31, -107.73,-107.15,-106.58,-106.01,-105.44,-104.88,-104.31,-103.74,-103.17,-102.58,-102.02,-101.44,-100.87,-100.30,-99.72, -99.14,-98.58,-98.00,-97.42,-96.85,-96.29,-95.72,-95.13,-94.56,-93.98,-93.41,-92.83,-92.25,-91.68,-91.11, -90.53,-89.97,-89.40,-88.82,-88.25,-87.67,-87.09,-86.53,-85.96,-85.38,-84.81,-84.23,-83.65,-83.08,-82.50, -81.94,-81.36,-80.78,-80.20,-79.62,-79.05,-78.48,-77.90,-77.33,-76.76,-76.18,-75.60,-75.02,-74.46,-73.88, -73.30,-72.73,-72.15,-71.58,-71.00,-70.43,-69.85,-69.29,-68.71,-68.14,-67.56,-66.98,-66.41,-65.83,-65.24, -64.67,-64.09,-63.51,-62.94,-62.38,-61.79,-61.23,-60.65,-60.08,-59.49,-58.92,-58.35,-57.77,-57.19,-56.62, -56.03,-55.46,-54.89,-54.31,-53.74,-53.16,-52.59,-52.01,-51.44,-50.86,-50.29,-49.71,-49.14,-48.56,-47.99, -47.42,-46.84,-46.27,-45.69,-45.12,-44.55,-43.97,-43.39,-42.82,-42.25,-41.66,-41.09,-40.51,-39.94,-39.36, -38.78,-38.20,-37.63,-37.05,-36.49,-35.91,-35.33,-34.75,-34.17,-33.61,-33.03,-32.46,-31.87,-31.31,-30.73, -30.16,-29.60,-29.03,-28.45,-27.87,-27.31,-26.73,-26.16,-25.59,-25.01,-24.44,-23.86,-23.30,-22.71,-22.14, -21.56,-20.98,-20.42,-19.84,-19.27,-18.70,-18.13,-17.54,-16.97,-16.39,-15.82,-15.24,-14.67,-14.09,-13.51, -12.94,-12.36,-11.79,-11.21,-10.63,-10.05,-9.48,-8.91,-8.34,-7.77,-7.19,-6.62,-6.04,-5.48,-4.90, -4.32,-3.73,-3.16,-2.59,-2.01,-1.43,-0.86,-0.29,0.28,0.86,1.43,2.01,2.59,3.16,3.74, 4.31,4.88,5.47,6.04,6.62,7.20,7.77,8.34,8.91,9.49,10.07,10.63,11.21,11.78,12.36, 12.93,13.50,14.09,14.66,15.24,15.81,16.38,16.96,17.53,18.10,18.68,19.26,19.84,20.41,20.98, 21.56,22.14,22.71,23.28,23.86,24.44,25.02,25.59,26.16,26.73,27.31,27.88,28.45,29.02,29.59, 30.16,30.74,31.30,31.88,32.45,33.03,33.59,34.17,34.75,35.33,35.91,36.47,37.05,37.62,38.20, 38.78,39.36,39.93,40.50,41.08,41.65,42.24,42.80,43.39,43.96,44.54,45.10,45.68,46.26,46.84, 47.40,47.98,48.57,49.13,49.72,50.28,50.86,51.43,52.00,52.57,53.15,53.72,54.30,54.88,55.45, 56.02,56.60,57.17,57.74,58.31,58.89,59.45,60.03,60.60,61.17,61.75,62.33,62.90,63.48,64.05, 64.63,65.21,65.79,66.37,66.93,67.51,68.08,68.65,69.22,69.80,70.37,70.95,71.52,72.10,72.69, 73.26,73.85,74.41,74.98,75.56,76.14,76.72,77.30,77.87,78.45,79.02,79.59,80.18,80.74,81.32, 81.90,82.48,83.04,83.62,84.19,84.76,85.33,85.91,86.49,87.07,87.65,88.22,88.79,89.36,89.94, 90.51,91.08,91.66,92.22,92.80,93.39,93.97,94.54,95.12,95.70,96.27,96.84,97.42,98.00,98.56, 99.15,99.72,100.30,100.86,101.44,102.01,102.59,103.17,103.74,104.31,104.88,105.45,106.02,106.60,107.18, 107.76,108.32,108.90,109.48,110.06,110.64,111.21,111.79,112.36,112.94,113.50,114.08,114.65,115.22,115.79, 116.37,116.94,117.51,118.08,118.65,119.22,119.80,120.37,120.95,121.51,122.09,122.67,123.25,123.83,124.41, 124.97,125.55,126.12,126.69,127.27,127.84,128.42,128.99,129.57,130.13,130.72,131.28,131.85,132.44,133.01, 133.59,134.16,134.74,135.31,135.89,136.46,137.03,137.61,138.19,138.78,139.35,139.92,140.49,141.07,141.64, 142.23,142.79,143.37,143.94,144.52,145.10,145.67,146.25,146.82,147.40,147.97,148.56,149.13,149.70,150.27, 150.84,151.42,151.99,152.57,153.14,153.72,154.29,154.87,155.44,156.02,156.59,157.16,157.74,158.31,158.88, 159.45,160.05,160.62,161.20,161.77,162.36,162.93,163.50,164.07,164.64,165.21,165.79,166.36,166.93,167.50, 168.07,168.65,169.23,169.79,170.36,170.93,171.50,172.08,172.65,173.22,173.79,174.37,174.95,175.53,176.09, 176.67,177.25,177.83,178.39,178.97,179.55,180.12,180.71,181.27,181.85,182.42,183.00) mag <- c(-24.35,-24.25,-24.60,-25.15,-25.60,-26.00,-26.50,-26.95,-27.35,-27.35,-26.90,-26.65,-26.40,-26.55,-26.60, -26.60,-27.30,-28.60,-29.75,-32.35,-34.80,-35.95,-34.95,-32.55,-30.30,-29.20,-28.35,-28.05,-28.10,-28.05, -27.85,-27.65,-26.90,-26.00,-25.25,-24.30,-23.50,-23.10,-22.85,-22.95,-23.25,-24.00,-24.60,-25.35,-26.15, -26.40,-26.25,-26.20,-25.95,-25.80,-26.35,-27.20,-28.50,-30.50,-32.55,-34.15,-33.20,-31.35,-29.35,-27.90, -27.10,-26.70,-26.90,-27.40,-28.35,-29.70,-31.15,-32.40,-32.55,-31.85,-30.25,-29.20,-28.45,-28.05,-28.20, -28.40,-29.30,-30.50,-32.80,-35.40,-36.60,-33.65,-30.85,-28.60,-27.15,-26.35,-25.75,-25.75,-26.00,-26.85, -28.05,-29.95,-32.75,-35.15,-34.80,-32.60,-29.70,-28.05,-26.80,-26.15,-25.95,-25.70,-26.00,-26.35,-26.85, -27.40,-27.70,-28.25,-28.80,-29.10,-29.05,-29.35,-29.50,-29.75,-29.45,-29.35,-29.05,-29.10,-29.20,-29.20, -29.70,-30.55,-31.50,-33.15,-34.85,-36.05,-37.45,-37.30,-37.15,-36.95,-37.65,-37.70,-38.95,-40.10,-41.35, -41.25,-39.40,-37.90,-36.15,-35.20,-34.30,-34.15,-34.15,-34.90,-34.90,-36.25,-36.20,-37.75,-38.85,-42.55, -45.40,-47.65,-47.65,-45.80,-39.95,-38.60,-37.05,-35.65,-35.25,-34.45,-34.95,-35.05,-36.35,-37.70,-39.90, -44.50,-46.00,-42.80,-41.35,-39.30,-38.50,-36.80,-37.35,-37.70,-38.85,-40.10,-42.45,-43.60,-44.75,-43.45, -40.80,-38.60,-36.35,-35.45,-34.20,-34.05,-33.40,-33.30,-33.50,-33.95,-33.90,-35.35,-36.85,-39.15,-39.40, -38.15,-35.95,-33.35,-31.40,-30.15,-29.70,-29.70,-30.15,-31.25,-33.15,-36.10,-42.95,-47.65,-36.55,-32.05, -29.20,-27.70,-26.90,-26.70,-27.05,-27.50,-28.60,-29.45,-29.95,-30.65,-29.75,-29.10,-28.25,-28.40,-28.75, -29.00,-29.95,-29.45,-28.15,-26.25,-25.00,-24.20,-23.75,-23.65,-24.35,-25.50,-27.30,-29.85,-32.10,-31.70, -29.05,-26.95,-25.60,-24.95,-24.95,-25.05,-25.25,-25.10,-24.35,-23.50,-22.70,-22.05,-21.55,-21.50,-21.70, -22.10,-22.65,-23.65,-24.65,-26.15,-28.40,-29.80,-29.40,-27.30,-25.65,-25.10,-25.45,-26.55,-28.65,-29.15, -26.15,-22.70,-20.40,-18.90,-18.05,-17.75,-17.90,-18.35,-18.95,-19.30,-19.05,-18.60,-18.35,-18.60,-19.35, -20.45,-21.40,-21.00,-19.25,-16.80,-14.20,-11.65,-9.65,-8.00,-6.40,-5.35,-4.70,-4.50,-4.95,-5.80, -6.90,-7.25,-6.30,-4.40,-2.50,-1.15,-0.30,0.00,-0.15,-0.70,-1.55,-2.70,-3.50,-3.65,-3.15, -2.50,-2.05,-2.00,-2.30,-3.05,-4.20,-5.60,-7.15,-8.80,-10.25,-11.50,-12.35,-12.80,-12.80,-12.80, -12.85,-13.30,-14.20,-15.90,-18.20,-20.70,-21.85,-20.50,-18.55,-17.45,-16.95,-17.05,-17.80,-18.70,-19.80, -20.90,-21.65,-21.95,-21.80,-21.40,-20.85,-20.40,-20.30,-20.40,-21.00,-22.50,-24.90,-28.55,-36.55,-39.95, -30.80,-26.75,-24.95,-23.85,-23.30,-23.40,-23.60,-23.80,-23.85,-23.80,-23.70,-24.00,-24.45,-25.10,-26.25, -27.65,-29.65,-32.25,-34.25,-35.90,-34.55,-33.40,-33.25,-34.20,-36.75,-40.65,-45.15,-42.75,-38.35,-34.90, -33.00,-31.70,-30.90,-30.40,-30.95,-31.90,-32.60,-34.30,-35.85,-37.70,-39.30,-41.10,-41.10,-40.70,-40.60, -39.25,-37.40,-35.85,-34.40,-33.20,-32.40,-31.75,-31.10,-30.65,-30.15,-29.70,-29.30,-28.75,-28.45,-28.10, -27.80,-28.15,-28.70,-29.15,-30.15,-31.20,-32.60,-33.05,-32.45,-31.25,-30.10,-29.35,-28.30,-28.15,-28.25, -28.85,-29.80,-31.50,-34.10,-38.35,-46.00,-41.15,-35.40,-31.95,-29.75,-28.50,-27.60,-27.00,-27.00,-27.35, -28.10,-29.40,-31.25,-33.75,-37.85,-40.15,-37.85,-34.50,-31.85,-30.45,-29.05,-28.00,-27.20,-26.90,-26.75, -27.20,-27.85,-29.30,-30.40,-31.75,-32.30,-31.50,-30.75,-29.20,-27.85,-27.05,-26.45,-26.25,-26.50,-27.10, -27.85,-28.60,-29.25,-29.60,-28.85,-27.90,-26.95,-26.05,-25.80,-25.95,-26.30,-27.35,-28.70,-30.30,-32.35, -31.95,-29.75,-27.60,-25.85,-24.65,-24.05,-23.50,-23.45,-23.65,-23.65,-23.70,-23.90,-23.65,-23.40,-23.25, -22.95,-23.15,-23.40,-23.75,-24.65,-25.45,-25.80,-25.55,-24.90,-24.00,-22.90,-22.20,-21.60,-21.60,-21.85, -22.45,-23.50,-25.00,-26.90,-28.65,-29.40,-28.70,-27.10,-25.95,-24.75,-24.10,-23.75,-23.65,-24.05,-24.35, -24.75,-25.75,-26.30,-26.35,-27.25,-28.05,-28.55,-28.90,-29.25,-29.20,-28.85,-28.10,-27.10,-26.40,-25.40, -24.70,-23.85,-23.50,-23.20,-23.15,-23.35,-23.50,-23.75,-23.50,-23.30,-22.65,-21.85,-21.00,-20.50,-20.05, -19.85,-20.15,-20.40,-20.45,-20.65,-20.90,-21.05,-21.40,-21.25,-21.30,-21.40,-21.45,-21.55,-21.60,-21.80, -21.70,-21.75,-21.75,-21.55,-21.30,-21.40,-21.40,-21.35,-21.50,-21.90,-22.15,-22.55,-23.15,-23.50,-23.55, -23.55,-23.50,-23.35,-22.95,-22.75,-22.65,-22.75,-23.10,-23.30,-23.70,-24.00,-24.45,-24.70,-25.10,-25.20, -25.45,-25.50,-25.65,-25.45,-25.30,-25.10,-24.95,-25.20,-25.50,-25.75,-26.20,-26.55) polar.plot(lengths=mag, polar.pos=deg, start=90, clockwise=TRUE, rp.type="p")