library(plotrix) deg <- c(-180.33,-179.76,-179.20,-178.63,-178.07,-177.51,-176.94,-176.38,-175.81,-175.25,-174.69,-174.12,-173.56,-172.99,-172.43, -171.87,-171.30,-170.74,-170.17,-169.62,-169.05,-168.49,-167.92,-167.36,-166.80,-166.24,-165.68,-165.12,-164.55,-163.99, -163.43,-162.86,-162.31,-161.74,-161.18,-160.61,-160.05,-159.49,-158.92,-158.37,-157.80,-157.24,-156.67,-156.10,-155.55, -154.97,-154.41,-153.85,-153.29,-152.72,-152.16,-151.60,-151.04,-150.48,-149.92,-149.35,-148.79,-148.22,-147.66,-147.09, -146.52,-145.96,-145.39,-144.83,-144.26,-143.70,-143.13,-142.57,-142.00,-141.44,-140.88,-140.32,-139.75,-139.19,-138.62, -138.07,-137.50,-136.93,-136.37,-135.80,-135.25,-134.69,-134.12,-133.57,-133.00,-132.43,-131.87,-131.30,-130.74,-130.17, -129.61,-129.04,-128.47,-127.91,-127.34,-126.79,-126.23,-125.67,-125.10,-124.53,-123.97,-123.40,-122.84,-122.27,-121.71, -121.14,-120.58,-120.01,-119.45,-118.90,-118.33,-117.76,-117.20,-116.63,-116.07,-115.50,-114.94,-114.37,-113.81,-113.25, -112.69,-112.12,-111.55,-110.99,-110.43,-109.87,-109.30,-108.74,-108.17,-107.61,-107.05,-106.49,-105.92,-105.36,-104.79, -104.23,-103.66,-103.10,-102.54,-101.97,-101.40,-100.84,-100.28,-99.71,-99.14,-98.58,-98.02,-97.45,-96.88,-96.32, -95.75,-95.20,-94.63,-94.07,-93.50,-92.95,-92.38,-91.82,-91.25,-90.69,-90.12,-89.56,-89.00,-88.43,-87.86, -87.31,-86.74,-86.18,-85.62,-85.06,-84.50,-83.93,-83.37,-82.80,-82.24,-81.68,-81.12,-80.56,-80.00,-79.44, -78.87,-78.31,-77.75,-77.18,-76.61,-76.06,-75.49,-74.92,-74.36,-73.79,-73.23,-72.66,-72.10,-71.53,-70.97, -70.40,-69.85,-69.28,-68.71,-68.15,-67.58,-67.02,-66.46,-65.89,-65.33,-64.77,-64.21,-63.64,-63.08,-62.52, -61.96,-61.40,-60.83,-60.27,-59.71,-59.15,-58.58,-58.02,-57.45,-56.89,-56.32,-55.76,-55.19,-54.64,-54.07, -53.51,-52.95,-52.38,-51.82,-51.25,-50.69,-50.12,-49.56,-49.00,-48.44,-47.87,-47.31,-46.75,-46.20,-45.63, -45.07,-44.50,-43.94,-43.38,-42.82,-42.25,-41.69,-41.13,-40.57,-40.01,-39.45,-38.89,-38.32,-37.76,-37.19, -36.64,-36.07,-35.50,-34.94,-34.37,-33.82,-33.26,-32.69,-32.13,-31.56,-31.00,-30.43,-29.86,-29.30,-28.74, -28.18,-27.61,-27.04,-26.48,-25.92,-25.36,-24.79,-24.23,-23.66,-23.11,-22.55,-21.98,-21.42,-20.85,-20.29, -19.73,-19.17,-18.61,-18.04,-17.48,-16.91,-16.35,-15.79,-15.22,-14.66,-14.10,-13.53,-12.98,-12.41,-11.85, -11.28,-10.72,-10.15,-9.59,-9.03,-8.46,-7.90,-7.34,-6.77,-6.20,-5.64,-5.08,-4.52,-3.95,-3.39, -2.82,-2.26,-1.69,-1.12,-0.56,0.01,0.57,1.14,1.69,2.26,2.83,3.39,3.95,4.52,5.09, 5.65,6.21,6.78,7.34,7.90,8.47,9.03,9.60,10.16,10.73,11.29,11.86,12.42,12.98,13.55, 14.11,14.68,15.24,15.80,16.37,16.93,17.49,18.05,18.61,19.18,19.74,20.31,20.86,21.43,21.99, 22.56,23.12,23.69,24.26,24.82,25.38,25.95,26.51,27.08,27.64,28.21,28.78,29.33,29.90,30.45, 31.02,31.58,32.14,32.70,33.26,33.82,34.39,34.95,35.52,36.08,36.65,37.22,37.78,38.35,38.90, 39.47,40.02,40.58,41.15,41.71,42.28,42.83,43.40,43.97,44.53,45.10,45.66,46.22,46.79,47.35, 47.92,48.48,49.04,49.61,50.17,50.74,51.30,51.86,52.43,52.99,53.56,54.12,54.69,55.24,55.81, 56.37,56.93,57.50,58.06,58.63,59.19,59.76,60.32,60.89,61.44,62.01,62.57,63.14,63.70,64.27, 64.83,65.40,65.96,66.53,67.10,67.66,68.23,68.79,69.36,69.92,70.49,71.04,71.61,72.17,72.74, 73.30,73.86,74.42,74.99,75.55,76.11,76.68,77.24,77.81,78.37,78.93,79.49,80.05,80.62,81.17, 81.73,82.29,82.86,83.42,83.99,84.55,85.12,85.68,86.25,86.81,87.38,87.94,88.51,89.07,89.63, 90.20,90.75,91.32,91.88,92.45,93.01,93.57,94.13,94.70,95.26,95.82,96.37,96.94,97.50,98.06, 98.63,99.19,99.75,100.32,100.88,101.45,102.01,102.57,103.13,103.70,104.26,104.82,105.39,105.95,106.52, 107.08,107.65,108.21,108.77,109.33,109.90,110.45,111.01,111.57,112.14,112.71,113.27,113.83,114.39,114.96, 115.52,116.09,116.66,117.21,117.78,118.33,118.89,119.46,120.02,120.59,121.15,121.71,122.28,122.84,123.41, 123.97,124.53,125.10,125.66,126.22,126.78,127.35,127.91,128.47,129.03,129.59,130.16,130.72,131.28,131.85, 132.41,132.98,133.54,134.11,134.67,135.23,135.80,136.36,136.94,137.49,138.07,138.63,139.19,139.77,140.33, 140.90,141.46,142.02,142.59,143.15,143.71,144.28,144.84,145.40,145.96,146.53,147.09,147.66,148.22,148.78, 149.36,149.91,150.48,151.05,151.61,152.18,152.74,153.30,153.86,154.42,154.99,155.55,156.12,156.68,157.25, 157.82,158.37,158.94,159.50,160.07,160.63,161.20,161.76,162.33,162.89,163.45,164.01,164.58,165.14,165.71, 166.26,166.83,167.40,167.96,168.53,169.09,169.66,170.21,170.77,171.33,171.89,172.45,173.02,173.58,174.14, 174.70,175.26,175.83,176.39,176.95,177.51,178.08,178.64,179.20) mag <- c(-37.90,-38.00,-39.00,-42.00,-53.60,-51.30,-43.90,-40.70,-40.20,-41.60,-45.10,-57.60,-50.80,-45.50,-44.00, -45.00,-48.90,-60.80,-48.20,-43.60,-42.10,-42.10,-44.60,-49.90,-54.50,-51.30,-47.90,-48.70,-52.40,-66.10, -51.40,-46.70,-45.00,-45.30,-47.50,-51.50,-58.00,-54.80,-51.30,-49.10,-49.20,-49.80,-50.80,-50.20,-49.30, -48.70,-49.00,-51.50,-59.20,-59.70,-51.30,-47.00,-45.80,-45.40,-46.40,-49.00,-50.10,-48.40,-46.80,-47.10, -48.10,-50.80,-56.00,-68.20,-60.30,-59.40,-56.90,-51.50,-47.40,-45.90,-45.20,-46.20,-48.80,-55.10,-56.40, -50.70,-49.20,-46.80,-47.00,-48.10,-49.30,-48.80,-49.80,-48.80,-48.00,-48.00,-48.40,-49.00,-50.90,-53.80, -51.70,-49.60,-47.20,-45.40,-44.70,-44.30,-44.50,-45.60,-46.70,-47.40,-47.90,-47.20,-46.30,-45.80,-44.80, -43.90,-43.80,-43.80,-44.20,-45.30,-46.20,-46.40,-46.00,-45.80,-45.30,-44.40,-43.30,-42.10,-41.40,-40.90, -40.90,-41.50,-42.10,-43.10,-44.40,-44.90,-44.50,-43.60,-41.80,-40.90,-40.00,-39.70,-39.60,-39.90,-40.40, -41.00,-42.10,-41.30,-40.20,-39.50,-38.50,-37.90,-37.70,-37.60,-37.80,-38.30,-38.80,-39.20,-39.30,-39.10, -38.90,-38.40,-37.90,-37.50,-37.40,-37.40,-37.70,-37.90,-38.50,-38.70,-39.00,-39.50,-39.70,-40.00,-39.90, -39.90,-39.60,-39.70,-39.70,-40.10,-40.60,-40.90,-41.70,-42.60,-43.10,-43.90,-44.60,-45.40,-46.90,-47.40, -48.60,-49.50,-49.60,-50.50,-51.20,-52.60,-53.80,-53.30,-52.70,-51.60,-51.60,-50.90,-50.10,-49.00,-47.90, -46.70,-46.00,-45.90,-45.20,-44.80,-44.30,-43.50,-42.90,-42.10,-42.00,-41.60,-41.20,-40.80,-40.50,-40.20, -39.40,-38.80,-37.90,-37.20,-36.60,-36.00,-35.40,-35.10,-34.90,-34.90,-34.90,-35.10,-35.50,-36.00,-36.40, -36.90,-37.10,-37.10,-36.90,-36.50,-35.70,-35.60,-35.30,-35.20,-35.20,-35.30,-35.50,-35.70,-35.80,-35.80, -35.50,-35.10,-34.80,-34.50,-34.40,-34.80,-35.20,-36.20,-37.80,-40.50,-43.40,-47.10,-50.80,-52.10,-49.70, -45.70,-42.30,-39.40,-37.00,-35.80,-35.20,-35.00,-35.30,-35.90,-36.70,-37.60,-37.90,-37.10,-35.50,-34.20, -32.90,-31.70,-31.00,-30.70,-31.00,-31.70,-32.60,-33.20,-33.10,-32.50,-31.90,-31.60,-32.10,-32.90,-33.20, -33.50,-34.20,-36.20,-40.50,-45.40,-41.20,-36.80,-35.60,-37.00,-43.20,-47.50,-36.00,-32.10,-30.50,-30.90, -33.00,-34.00,-30.60,-27.90,-26.60,-24.90,-21.50,-17.60,-14.60,-12.60,-11.50,-11.70,-13.60,-18.20,-16.90, -9.80,-5.80,-3.20,-1.40,-0.20,0.00,-0.30,-1.60,-3.80,-7.00,-12.10,-18.20,-14.60,-11.10,-9.80, -10.10,-11.60,-14.30,-17.80,-21.40,-23.10,-23.80,-25.40,-29.20,-35.00,-33.80,-30.50,-29.70,-31.00,-35.40, -46.50,-40.50,-34.90,-33.60,-34.60,-38.20,-42.70,-40.40,-36.30,-34.30,-33.40,-33.20,-33.10,-33.10,-33.30, -34.00,-34.40,-34.90,-35.00,-33.80,-32.40,-31.40,-30.90,-31.20,-32.00,-33.10,-34.90,-36.40,-37.70,-38.10, -37.70,-36.60,-35.70,-35.00,-35.00,-35.40,-36.40,-38.20,-40.60,-43.00,-45.40,-46.50,-46.40,-44.80,-43.40, -41.50,-39.30,-37.90,-36.90,-36.10,-35.40,-35.00,-35.00,-35.50,-35.80,-35.70,-35.70,-35.90,-36.30,-36.70, -36.60,-36.00,-35.40,-34.90,-34.70,-35.00,-35.60,-36.10,-36.30,-36.40,-36.40,-36.40,-36.20,-36.00,-35.80, -35.50,-35.50,-35.60,-35.90,-36.10,-36.60,-36.80,-36.90,-37.60,-38.50,-40.00,-41.50,-42.50,-42.40,-41.60, -40.90,-40.70,-41.60,-42.40,-43.60,-44.90,-45.20,-46.00,-46.80,-47.40,-48.40,-50.40,-52.00,-53.60,-53.50, -52.70,-52.70,-52.90,-53.20,-54.30,-55.10,-53.90,-54.00,-52.90,-51.80,-51.10,-49.60,-48.70,-48.00,-46.90, -47.00,-46.00,-45.30,-44.10,-43.00,-42.30,-42.00,-41.80,-41.20,-40.90,-40.90,-40.60,-40.30,-39.80,-39.40, -39.10,-38.90,-39.00,-38.80,-38.70,-38.80,-39.00,-39.10,-39.20,-39.20,-39.20,-39.20,-39.20,-39.10,-39.10, -39.00,-38.90,-38.90,-39.00,-39.20,-39.40,-39.70,-40.00,-40.20,-40.40,-40.60,-40.70,-40.80,-41.20,-41.30, -41.80,-42.50,-43.00,-43.10,-43.30,-43.30,-43.30,-43.60,-43.60,-43.60,-43.70,-44.00,-44.30,-44.30,-44.10, -43.60,-43.40,-43.30,-43.10,-43.40,-43.80,-44.50,-46.00,-47.10,-48.60,-48.60,-48.20,-47.80,-46.80,-45.90, -45.40,-44.90,-44.90,-45.10,-46.00,-47.30,-48.10,-49.30,-49.00,-48.80,-47.90,-47.10,-46.80,-47.20,-48.00, -49.70,-51.90,-52.50,-50.90,-48.70,-47.90,-47.20,-48.40,-48.90,-49.80,-49.50,-50.10,-49.30,-50.30,-53.30, -53.60,-53.00,-50.20,-48.40,-48.10,-47.50,-48.40,-50.70,-54.00,-59.50,-57.10,-54.00,-52.60,-51.50,-49.80, -49.10,-47.90,-47.30,-47.60,-49.00,-50.80,-53.10,-52.00,-49.80,-49.90,-50.90,-52.30,-52.60,-50.10,-48.10, -47.30,-49.40,-53.40,-59.00,-52.10,-48.40,-47.10,-46.80,-49.50,-55.90,-53.50,-49.20,-46.80,-46.90,-50.90, -59.80,-51.60,-45.80,-43.40,-42.90,-44.20,-47.50,-52.80,-49.70,-46.80,-46.40,-49.30,-61.30,-50.30,-43.50, -40.40,-39.90,-41.20,-45.30,-58.50,-46.40,-41.00,-38.70,-38.40) polar.plot(lengths=mag, polar.pos=deg, start=90, clockwise=TRUE, rp.type="p")