library(plotrix) deg <- c(-170.42,-169.84,-169.27,-168.69,-168.12,-167.55,-166.97,-166.42,-165.84,-165.26,-164.68,-164.13,-163.55,-162.97,-162.40, -161.84,-161.27,-160.69,-160.12,-159.55,-158.98,-158.41,-157.84,-157.26,-156.68,-156.10,-155.54,-154.97,-154.39,-153.83, -153.26,-152.70,-152.12,-151.55,-150.98,-150.41,-149.85,-149.27,-148.70,-148.12,-147.57,-146.99,-146.44,-145.88,-145.30, -144.74,-144.18,-143.61,-143.05,-142.49,-141.95,-141.37,-140.80,-140.23,-139.66,-139.08,-138.52,-137.94,-137.37,-136.81, -136.23,-135.66,-135.10,-134.53,-133.98,-133.43,-132.86,-132.28,-131.71,-131.14,-130.57,-129.99,-129.41,-128.86,-128.28, -127.72,-127.14,-126.57,-125.99,-125.42,-124.84,-124.26,-123.72,-123.15,-122.60,-122.03,-121.46,-120.88,-120.31,-119.73, -119.18,-118.60,-118.04,-117.47,-116.90,-116.32,-115.77,-115.19,-114.61,-114.04,-113.48,-112.90,-112.32,-111.77,-111.19, -110.62,-110.05,-109.47,-108.89,-108.33,-107.75,-107.18,-106.61,-106.05,-105.48,-104.91,-104.34,-103.78,-103.21,-102.64, -102.07,-101.50,-100.92,-100.37,-99.79,-99.21,-98.64,-98.07,-97.49,-96.92,-96.35,-95.77,-95.23,-94.65,-94.09, -93.54,-92.98,-92.42,-91.84,-91.28,-90.73,-90.15,-89.59,-89.02,-88.45,-87.87,-87.29,-86.72,-86.14,-85.57, -85.00,-84.43,-83.85,-83.28,-82.70,-82.16,-81.62,-81.06,-80.48,-79.90,-79.33,-78.76,-78.19,-77.61,-77.03, -76.46,-75.88,-75.31,-74.73,-74.15,-73.59,-73.03,-72.46,-71.88,-71.34,-70.76,-70.19,-69.61,-69.06,-68.48, -67.91,-67.33,-66.76,-66.18,-65.60,-65.04,-64.46,-63.90,-63.34,-62.78,-62.21,-61.63,-61.06,-60.49,-59.92, -59.36,-58.79,-58.21,-57.63,-57.07,-56.49,-55.92,-55.37,-54.82,-54.24,-53.66,-53.09,-52.54,-51.96,-51.38, -50.82,-50.24,-49.66,-49.08,-48.52,-47.95,-47.38,-46.81,-46.23,-45.66,-45.08,-44.51,-43.93,-43.37,-42.80, -42.23,-41.68,-41.10,-40.52,-39.95,-39.39,-38.83,-38.25,-37.67,-37.09,-36.52,-35.94,-35.37,-34.79,-34.22, -33.64,-33.07,-32.50,-31.92,-31.35,-30.77,-30.20,-29.62,-29.06,-28.48,-27.91,-27.34,-26.78,-26.21,-25.65, -25.08,-24.50,-23.92,-23.34,-22.79,-22.21,-21.63,-21.06,-20.49,-19.92,-19.34,-18.77,-18.21,-17.66,-17.08, -16.50,-15.94,-15.36,-14.79,-14.21,-13.64,-13.08,-12.52,-11.95,-11.37,-10.79,-10.21,-9.64,-9.06,-8.49, -7.93,-7.36,-6.80,-6.22,-5.65,-5.07,-4.52,-3.95,-3.37,-2.80,-2.24,-1.67,-1.09,-0.52,0.06, 0.63,1.20,1.77,2.35,2.92,3.48,4.06,4.64,5.21,5.77,6.33,6.90,7.48,8.06,8.63, 9.19,9.76,10.32,10.89,11.47,12.04,12.62,13.20,13.78,14.36,14.93,15.49,16.06,16.64,17.21, 17.79,18.36,18.92,19.49,20.06,20.64,21.22,21.79,22.35,22.94,23.51,24.07,24.64,25.21,25.77, 26.35,26.92,27.46,28.01,28.59,29.17,29.73,30.30,30.88,31.44,31.99,32.56,33.13,33.70,34.27, 34.84,35.39,35.94,36.52,37.07,37.65,38.21,38.80,39.38,39.94,40.52,41.09,41.65,42.22,42.80, 43.37,43.94,44.51,45.08,45.66,46.23,46.81,47.36,47.94,48.50,49.08,49.66,50.21,50.79,51.35, 51.92,52.50,53.07,53.63,54.20,54.78,55.35,55.93,56.48,57.05,57.63,58.19,58.76,59.33,59.91, 60.48,61.06,61.63,62.21,62.78,63.35,63.93,64.51,65.08,65.63,66.21,66.78,67.36,67.93,68.51, 69.06,69.62,70.18,70.76,71.34,71.91,72.46,73.03,73.61,74.18,74.73,75.31,75.89,76.47,77.03, 77.61,78.19,78.74,79.31,79.88,80.46,81.02,81.59,82.15,82.73,83.31,83.87,84.43,85.00,85.58, 86.16,86.73,87.31,87.89,88.44,89.02,89.57,90.14,90.72,91.29,91.87,92.44,93.02,93.57,94.15, 94.71,95.27,95.85,96.42,96.98,97.54,98.12,98.69,99.26,99.84,100.42,101.00,101.56,102.13,102.71, 103.28,103.86,104.43,105.01,105.56,106.14,106.71,107.29,107.84,108.42,109.00,109.56,110.14,110.69,111.27, 111.84,112.41,112.98,113.55,114.11,114.67,115.25,115.81,116.38,116.96,117.51,118.09,118.64,119.22,119.80, 120.38,120.94,121.52,122.10,122.67,123.24,123.82,124.39,124.94,125.51,126.07,126.63,127.19,127.75,128.32, 128.90,129.47,130.05,130.62,131.18,131.74,132.32,132.89,133.46,134.04,134.62,135.19,135.77,136.34,136.91, 137.49,138.04,138.61,139.18,139.74,140.31,140.88,141.46,142.03,142.59,143.16,143.74,144.31,144.88,145.46, 146.01,146.58,147.15,147.72,148.29,148.84,149.42,149.99,150.57,151.14,151.72,152.30,152.87,153.43,154.01, 154.57,155.14,155.71,156.29,156.86,157.44,158.00,158.57,159.15,159.73,160.29,160.86,161.42,161.99,162.56, 163.13,163.70,164.28,164.85,165.42,165.97,166.55,167.10,167.68,168.24,168.82,169.39,169.95,170.52,171.10, 171.67,172.23,172.81,173.37,173.95,174.53,175.11,175.67,176.25,176.82,177.39,177.96,178.52,179.09,179.66, 180.23,180.80,181.38,181.96,182.54,183.09,183.64,184.22,184.79,185.37,185.93,186.51,187.07,187.62,188.17, 188.74,189.32) mag <- c(-33.00,-33.30,-33.50,-33.30,-32.80,-32.30,-31.50,-32.30,-32.10,-32.20,-32.70,-33.20,-34.20,-35.90,-39.30, -42.60,-46.50,-44.50,-39.40,-36.20,-33.40,-31.20,-29.60,-28.40,-27.80,-27.00,-26.50,-26.10,-25.90,-25.80, -25.80,-26.00,-26.30,-26.50,-26.90,-27.40,-28.30,-28.60,-29.00,-29.30,-30.20,-30.80,-30.90,-31.20,-31.20, -31.50,-31.80,-31.80,-32.00,-32.20,-32.60,-33.00,-33.80,-34.60,-34.90,-36.20,-39.10,-39.90,-43.70,-49.30, -66.50,-51.70,-44.80,-41.80,-39.30,-37.30,-35.90,-34.80,-33.50,-32.80,-32.20,-31.30,-30.90,-30.10,-30.30, -30.00,-29.60,-29.70,-29.80,-29.60,-29.50,-29.90,-29.90,-30.00,-30.00,-30.00,-30.20,-30.00,-30.20,-30.30, -30.40,-30.40,-30.40,-29.80,-29.80,-30.10,-29.70,-29.60,-29.20,-29.20,-29.30,-28.80,-28.50,-28.20,-28.00, -27.90,-27.60,-27.70,-27.70,-27.30,-27.00,-26.70,-26.50,-26.60,-26.50,-26.40,-26.10,-26.10,-26.00,-25.80, -25.40,-25.30,-25.30,-25.30,-24.80,-24.80,-24.80,-24.50,-24.20,-23.90,-23.80,-23.70,-23.30,-23.10,-22.80, -22.50,-22.40,-22.10,-21.70,-21.50,-21.20,-20.80,-20.40,-20.30,-19.90,-19.60,-19.20,-18.90,-18.60,-18.30, -18.00,-17.70,-17.30,-17.10,-16.90,-16.50,-16.30,-16.00,-15.70,-15.50,-15.20,-14.90,-14.60,-14.40,-14.20, -14.00,-13.80,-13.50,-13.20,-13.00,-12.80,-12.50,-12.30,-12.10,-11.90,-11.80,-11.50,-11.20,-11.00,-10.80, -10.50,-10.40,-10.20,-10.00,-9.80,-9.50,-9.30,-9.10,-8.90,-8.70,-8.40,-8.20,-8.00,-7.80,-7.60, -7.30,-7.10,-6.90,-6.70,-6.50,-6.40,-6.20,-5.90,-5.80,-5.70,-5.50,-5.20,-5.00,-5.00,-4.80, -4.60,-4.50,-4.30,-4.10,-4.00,-3.90,-3.70,-3.70,-3.50,-3.50,-3.30,-3.20,-3.10,-3.00,-2.90, -2.70,-2.60,-2.50,-2.40,-2.30,-2.30,-2.10,-2.10,-2.00,-1.90,-1.80,-1.80,-1.70,-1.60,-1.50, -1.40,-1.30,-1.20,-1.20,-1.10,-1.00,-0.90,-0.90,-0.80,-0.70,-0.60,-0.50,-0.50,-0.40,-0.30, -0.30,-0.20,-0.20,-0.10,-0.10,-0.10,-0.10,-0.10,0.00,-0.10,-0.10,-0.10,-0.10,-0.10,-0.10, -0.10,-0.10,-0.10,-0.10,-0.10,-0.10,-0.10,-0.20,-0.20,-0.20,-0.20,-0.20,-0.30,-0.20,-0.30, -0.30,-0.20,-0.30,-0.30,-0.30,-0.30,-0.40,-0.40,-0.50,-0.50,-0.50,-0.60,-0.60,-0.70,-0.70, -0.70,-0.80,-0.90,-0.80,-1.00,-1.10,-1.20,-1.20,-1.40,-1.50,-1.60,-1.70,-1.80,-1.90,-2.00, -2.10,-2.20,-2.20,-2.30,-2.40,-2.30,-2.40,-2.40,-2.40,-2.50,-2.40,-2.40,-2.40,-2.40,-2.40, -2.30,-2.30,-2.30,-2.20,-2.20,-2.10,-2.10,-2.00,-1.90,-2.00,-1.90,-1.90,-1.90,-1.90,-1.80, -1.90,-1.90,-1.90,-1.90,-1.90,-1.90,-1.90,-2.00,-2.00,-2.10,-2.10,-2.10,-2.20,-2.20,-2.20, -2.30,-2.30,-2.40,-2.40,-2.40,-2.40,-2.50,-2.60,-2.60,-2.70,-2.70,-2.80,-2.90,-2.90,-2.90, -3.10,-3.20,-3.20,-3.30,-3.30,-3.50,-3.60,-3.70,-3.70,-3.90,-4.00,-4.10,-4.30,-4.40,-4.50, -4.60,-4.70,-4.80,-4.90,-5.00,-5.20,-5.30,-5.50,-5.60,-5.80,-5.90,-6.10,-6.20,-6.40,-6.50, -6.70,-6.90,-7.10,-7.20,-7.40,-7.60,-7.80,-8.00,-8.10,-8.40,-8.50,-8.70,-8.90,-9.10,-9.30, -9.60,-9.70,-10.00,-10.20,-10.40,-10.70,-10.90,-11.10,-11.30,-11.50,-11.70,-12.00,-12.20,-12.40,-12.60, -12.90,-13.10,-13.30,-13.60,-13.90,-14.20,-14.50,-14.70,-15.00,-15.30,-15.70,-16.00,-16.40,-16.70,-17.20, -17.50,-17.90,-18.30,-18.80,-19.20,-19.60,-20.00,-20.30,-20.90,-21.20,-21.80,-22.20,-22.70,-22.90,-23.20, -23.50,-23.80,-24.00,-24.40,-24.40,-24.60,-24.90,-24.80,-25.00,-24.90,-25.30,-25.20,-25.50,-25.70,-25.80, -26.10,-26.40,-26.30,-26.70,-26.80,-27.40,-27.30,-27.60,-28.00,-28.30,-28.60,-28.80,-29.20,-29.40,-29.70, -29.80,-29.90,-30.70,-30.30,-30.70,-31.00,-30.70,-30.70,-30.50,-30.10,-30.10,-30.10,-29.80,-29.30,-29.10, -29.30,-29.00,-28.60,-28.80,-28.70,-28.40,-28.30,-28.50,-28.40,-28.50,-28.90,-29.40,-29.80,-30.30,-30.70, -31.40,-31.70,-32.10,-33.00,-33.00,-33.30,-32.90,-32.90,-32.60,-32.30,-32.30,-32.40,-32.20,-31.80,-32.20, -32.00,-32.20,-32.00,-31.90,-31.70,-31.40,-31.10,-30.50,-30.30,-29.70,-28.80,-28.60,-28.40,-28.00,-27.80, -28.10,-28.20,-28.20,-28.80,-29.70,-30.10,-30.90,-31.20,-31.80,-32.30,-31.40,-31.10,-30.70,-30.00,-29.30, -29.00,-28.50,-28.70,-29.10,-29.20,-29.60,-30.50,-31.20,-32.80,-35.20,-36.20,-38.00,-38.80,-38.10,-37.30, -37.00,-35.50,-36.20,-36.30,-37.20,-40.40,-43.20,-52.80,-45.40,-37.80,-34.20,-31.50,-29.80,-28.10,-27.20, -26.00,-25.30,-24.90,-24.70,-24.60,-24.70,-24.80,-25.30,-25.90,-26.60,-27.50,-28.90,-30.40,-31.80,-33.40, -34.20,-34.30,-33.80,-33.40,-32.70,-32.10,-32.20,-32.00,-32.10,-32.60,-33.40,-34.40,-35.20,-36.10,-36.30, -36.80,-36.10) polar.plot(lengths=mag, polar.pos=deg, start=90, clockwise=TRUE, rp.type="p")