library(plotrix) deg <- c(-178.98,-178.40,-177.82,-177.25,-176.67,-176.10,-175.52,-174.95,-174.37,-173.81,-173.24,-172.66,-172.08,-171.50,-170.93, -170.37,-169.81,-169.25,-168.67,-168.09,-167.52,-166.95,-166.37,-165.82,-165.26,-164.70,-164.12,-163.54,-162.98,-162.40, -161.85,-161.29,-160.71,-160.14,-159.58,-159.01,-158.43,-157.86,-157.28,-156.73,-156.15,-155.57,-154.99,-154.43,-153.86, -153.31,-152.73,-152.16,-151.59,-151.02,-150.44,-149.87,-149.29,-148.72,-148.14,-147.56,-147.00,-146.42,-145.85,-145.27, -144.72,-144.15,-143.58,-143.01,-142.44,-141.88,-141.30,-140.73,-140.18,-139.62,-139.03,-138.46,-137.89,-137.31,-136.74, -136.16,-135.61,-135.05,-134.47,-133.90,-133.33,-132.75,-132.20,-131.64,-131.06,-130.50,-129.92,-129.36,-128.78,-128.21, -127.63,-127.05,-126.48,-125.90,-125.33,-124.75,-124.18,-123.61,-123.03,-122.48,-121.90,-121.32,-120.74,-120.17,-119.59, -119.02,-118.44,-117.87,-117.31,-116.76,-116.18,-115.62,-115.05,-114.47,-113.90,-113.32,-112.75,-112.18,-111.60,-111.03, -110.45,-109.89,-109.31,-108.73,-108.15,-107.58,-107.02,-106.47,-105.90,-105.32,-104.75,-104.17,-103.62,-103.06,-102.48, -101.94,-101.36,-100.79,-100.21,-99.63,-99.07,-98.52,-97.93,-97.36,-96.79,-96.21,-95.63,-95.05,-94.49,-93.91, -93.34,-92.78,-92.20,-91.63,-91.08,-90.52,-89.95,-89.38,-88.80,-88.23,-87.66,-87.08,-86.50,-85.95,-85.38, -84.80,-84.23,-83.65,-83.10,-82.52,-81.96,-81.41,-80.85,-80.28,-79.71,-79.14,-78.56,-77.99,-77.42,-76.85, -76.28,-75.70,-75.12,-74.55,-73.98,-73.40,-72.83,-72.26,-71.69,-71.12,-70.55,-69.97,-69.39,-68.82,-68.25, -67.67,-67.09,-66.51,-65.95,-65.37,-64.80,-64.22,-63.65,-63.07,-62.50,-61.92,-61.34,-60.76,-60.19,-59.61, -59.03,-58.46,-57.87,-57.31,-56.75,-56.17,-55.62,-55.04,-54.49,-53.91,-53.34,-52.77,-52.20,-51.65,-51.08, -50.50,-49.95,-49.38,-48.83,-48.25,-47.69,-47.14,-46.58,-46.03,-45.46,-44.90,-44.32,-43.77,-43.21,-42.64, -42.06,-41.49,-40.91,-40.34,-39.77,-39.19,-38.62,-38.04,-37.47,-36.89,-36.31,-35.73,-35.18,-34.60,-34.03, -33.45,-32.88,-32.30,-31.73,-31.17,-30.62,-30.05,-29.47,-28.89,-28.31,-27.74,-27.17,-26.61,-26.04,-25.46, -24.89,-24.32,-23.75,-23.18,-22.60,-22.02,-21.45,-20.87,-20.30,-19.72,-19.14,-18.57,-17.99,-17.43,-16.86, -16.29,-15.72,-15.14,-14.57,-13.99,-13.41,-12.86,-12.28,-11.69,-11.12,-10.55,-9.98,-9.40,-8.82,-8.25, -7.68,-7.11,-6.55,-5.97,-5.40,-4.82,-4.25,-3.68,-3.11,-2.53,-1.97,-1.39,-0.82,-0.25,0.33, 0.90,1.47,2.04,2.62,3.18,3.75,4.32,4.90,5.47,6.04,6.61,7.19,7.76,8.33,8.88, 9.46,10.04,10.62,11.16,11.73,12.30,12.86,13.44,14.01,14.58,15.15,15.72,16.30,16.88,17.45, 18.03,18.60,19.18,19.75,20.34,20.91,21.48,22.05,22.62,23.19,23.75,24.32,24.87,25.43,26.01, 26.56,27.14,27.69,28.26,28.84,29.40,29.96,30.52,31.10,31.65,32.21,32.79,33.36,33.93,34.50, 35.09,35.65,36.23,36.81,37.38,37.96,38.52,39.09,39.66,40.24,40.81,41.39,41.95,42.53,43.11, 43.68,44.25,44.83,45.38,45.95,46.53,47.10,47.68,48.26,48.83,49.41,49.96,50.52,51.08,51.65, 52.23,52.78,53.36,53.93,54.50,55.06,55.63,56.19,56.76,57.34,57.89,58.47,59.04,59.60,60.17, 60.74,61.32,61.89,62.47,63.03,63.60,64.16,64.74,65.31,65.88,66.46,67.03,67.61,68.18,68.76, 69.33,69.90,70.48,71.05,71.63,72.19,72.76,73.32,73.89,74.46,75.03,75.61,76.18,76.75,77.33, 77.91,78.46,79.02,79.58,80.15,80.73,81.30,81.87,82.44,83.02,83.55,84.12,84.70,85.28,85.85, 86.41,86.99,87.57,88.15,88.72,89.28,89.86,90.42,90.99,91.54,92.12,92.70,93.28,93.85,94.43, 95.00,95.57,96.14,96.71,97.26,97.84,98.40,98.98,99.54,100.12,100.69,101.25,101.82,102.40,102.97, 103.55,104.12,104.68,105.26,105.82,106.40,106.96,107.53,108.10,108.67,109.23,109.79,110.37,110.93,111.51, 112.09,112.64,113.20,113.75,114.33,114.90,115.47,116.05,116.63,117.21,117.78,118.35,118.91,119.48,120.06, 120.64,121.21,121.78,122.36,122.94,123.51,124.08,124.64,125.19,125.77,126.34,126.92,127.48,128.05,128.62, 129.19,129.76,130.33,130.91,131.47,132.04,132.61,133.19,133.76,134.32,134.90,135.47,136.04,136.62,137.20, 137.77,138.34,138.91,139.46,140.04,140.61,141.19,141.76,142.34,142.92,143.49,144.07,144.64,145.22,145.80, 146.37,146.94,147.50,148.07,148.65,149.22,149.80,150.36,150.93,151.50,152.07,152.63,153.21,153.78,154.36, 154.93,155.51,156.07,156.64,157.22,157.79,158.36,158.94,159.49,160.06,160.65,161.22,161.79,162.36,162.94, 163.52,164.08,164.66,165.23,165.81,166.38,166.96,167.49,168.08,168.63,169.21,169.79,170.36,170.94,171.51, 172.07,172.64,173.22,173.78,174.34,174.90,175.45,176.03,176.60,177.17,177.73,178.30,178.87,179.45,180.03, 180.60) mag <- c(-24.00,-24.30,-24.70,-24.80,-24.80,-24.70,-24.30,-23.90,-23.50,-23.20,-22.90,-22.70,-22.50,-22.50,-22.60, -22.80,-23.30,-23.70,-24.40,-25.40,-26.60,-28.60,-31.00,-34.60,-40.20,-43.00,-35.10,-30.80,-28.10,-25.80, -23.90,-22.50,-21.40,-20.40,-19.80,-19.10,-18.50,-17.90,-17.60,-17.20,-16.90,-16.70,-16.60,-16.50,-16.50, -16.60,-16.70,-16.90,-17.10,-17.50,-17.80,-18.40,-18.80,-19.60,-20.30,-21.30,-22.40,-23.90,-25.60,-27.80, -30.90,-35.40,-39.80,-34.70,-30.00,-26.70,-24.30,-22.40,-21.10,-19.90,-18.70,-17.80,-17.00,-16.30,-15.80, -15.40,-15.00,-14.80,-14.60,-14.40,-14.30,-14.30,-14.30,-14.30,-14.50,-14.50,-14.60,-14.80,-15.00,-15.20, -15.30,-15.50,-15.60,-15.70,-15.80,-15.90,-16.00,-16.20,-16.30,-16.50,-16.80,-16.90,-17.20,-17.50,-17.80, -18.20,-18.60,-18.90,-19.40,-19.80,-20.10,-20.20,-20.50,-20.40,-20.30,-20.20,-19.90,-19.60,-19.20,-18.80, -18.60,-18.10,-17.80,-17.50,-17.30,-17.00,-16.80,-16.60,-16.40,-16.20,-16.10,-16.00,-15.90,-15.80,-15.70, -15.70,-15.60,-15.50,-15.50,-15.40,-15.30,-15.30,-15.20,-15.10,-15.00,-14.90,-14.80,-14.50,-14.40,-14.30, -14.10,-13.90,-13.70,-13.50,-13.30,-13.10,-12.90,-12.70,-12.50,-12.30,-12.10,-11.90,-11.80,-11.60,-11.40, -11.30,-11.20,-11.00,-10.90,-10.70,-10.70,-10.60,-10.50,-10.50,-10.40,-10.20,-10.10,-10.00,-9.90,-9.90, -9.80,-9.80,-9.70,-9.70,-9.60,-9.60,-9.50,-9.50,-9.40,-9.40,-9.40,-9.30,-9.30,-9.30,-9.20, -9.20,-9.20,-9.20,-9.10,-9.10,-9.20,-9.20,-9.20,-9.20,-9.20,-9.20,-9.30,-9.30,-9.30,-9.40, -9.40,-9.50,-9.60,-9.70,-9.80,-9.90,-10.10,-10.20,-10.40,-10.50,-10.60,-10.90,-11.10,-11.30,-11.60, -11.80,-12.20,-12.40,-12.80,-13.20,-13.60,-14.10,-14.40,-14.80,-15.30,-15.80,-16.40,-16.80,-17.20,-17.50, -17.80,-18.00,-17.90,-17.50,-17.10,-16.70,-16.20,-15.90,-15.20,-14.40,-13.80,-13.10,-12.40,-11.80,-11.10, -10.40,-9.80,-9.20,-8.70,-8.10,-7.40,-6.90,-6.40,-5.80,-5.40,-5.00,-4.70,-4.40,-4.20,-3.90, -3.70,-3.40,-3.10,-2.90,-2.60,-2.40,-2.30,-2.20,-2.00,-1.90,-1.70,-1.60,-1.50,-1.40,-1.30, -1.30,-1.40,-1.30,-1.30,-1.30,-1.20,-1.10,-0.90,-0.80,-0.70,-0.60,-0.70,-0.50,-0.50,-0.40, -0.40,-0.40,-0.40,-0.30,-0.30,-0.20,-0.30,-0.30,-0.20,-0.20,-0.20,-0.10,-0.10,-0.10,-0.10, 0.00,0.00,-0.10,-0.10,0.00,-0.10,-0.10,-0.10,-0.20,-0.20,-0.20,-0.20,-0.30,-0.40,-0.30, -0.40,-0.30,-0.40,-0.50,-0.50,-0.60,-0.70,-0.70,-0.80,-0.90,-1.00,-1.10,-1.20,-1.40,-1.40, -1.60,-1.70,-1.80,-1.90,-2.00,-2.20,-2.30,-2.50,-2.70,-2.90,-3.10,-3.30,-3.50,-3.70,-4.00, -4.20,-4.40,-4.70,-4.90,-5.20,-5.50,-5.70,-6.00,-6.30,-6.50,-6.70,-6.90,-7.20,-7.50,-7.90, -8.10,-8.10,-8.60,-8.70,-8.90,-9.00,-9.10,-9.40,-9.50,-9.50,-9.60,-9.60,-9.60,-9.50,-9.50, -9.30,-9.20,-9.20,-9.10,-9.30,-9.20,-8.90,-8.80,-8.50,-8.30,-8.20,-8.20,-8.10,-8.20,-8.10, -8.10,-7.80,-7.70,-7.60,-7.50,-7.40,-7.30,-7.20,-7.10,-7.00,-7.00,-6.90,-6.80,-6.90,-6.90, -6.90,-6.90,-6.80,-6.80,-6.80,-6.70,-6.80,-6.90,-7.00,-7.10,-7.10,-7.30,-7.30,-7.40,-7.40, -7.50,-7.50,-7.60,-7.50,-7.50,-7.50,-7.60,-7.70,-7.70,-7.80,-7.90,-8.00,-8.10,-8.20,-8.20, -8.30,-8.30,-8.40,-8.50,-8.60,-8.70,-8.80,-8.90,-8.90,-9.00,-9.10,-9.20,-9.30,-9.40,-9.40, -9.40,-9.60,-9.60,-9.70,-9.70,-9.80,-9.80,-9.80,-9.80,-9.90,-10.00,-10.20,-10.20,-10.30,-10.30, -10.40,-10.40,-10.50,-10.60,-10.70,-10.80,-11.00,-11.10,-11.20,-11.30,-11.50,-11.60,-11.70,-11.90,-11.90, -12.20,-12.30,-12.50,-12.60,-12.80,-12.90,-13.10,-13.30,-13.40,-13.70,-13.90,-14.10,-14.20,-14.40,-14.60, -14.80,-14.90,-15.10,-15.30,-15.40,-15.70,-15.70,-16.00,-16.10,-16.10,-16.20,-16.30,-16.30,-16.40,-16.70, -16.80,-16.80,-16.80,-16.80,-16.90,-16.90,-16.90,-16.90,-16.90,-16.90,-17.00,-17.00,-17.10,-17.10,-17.10, -17.20,-17.30,-17.40,-17.60,-17.80,-17.90,-18.20,-18.60,-18.90,-19.30,-19.70,-20.10,-20.50,-21.10,-21.70, -22.40,-23.10,-24.00,-25.00,-26.10,-27.00,-28.60,-29.40,-30.60,-31.20,-31.10,-30.50,-29.50,-28.10,-26.90, -26.00,-25.00,-24.10,-23.30,-22.60,-22.10,-21.50,-21.00,-20.70,-20.40,-20.10,-19.90,-19.80,-19.70,-19.70, -19.70,-19.80,-19.90,-20.20,-20.50,-20.90,-21.30,-21.90,-22.70,-23.50,-24.50,-25.90,-27.20,-29.00,-31.30, -33.30,-36.00,-35.40,-32.60,-30.70,-28.70,-27.10,-25.80,-24.60,-23.70,-23.10,-22.50,-22.00,-21.60,-21.40, -21.30,-21.20,-21.40,-21.50,-21.60,-22.00,-22.30,-22.60,-23.10,-23.50,-24.00,-24.30,-24.60,-24.60,-24.50, -24.30) polar.plot(lengths=mag, polar.pos=deg, start=90, clockwise=TRUE, rp.type="p")