library(plotrix) deg <- c(-183.62,-183.05,-182.47,-181.89,-181.32,-180.74,-180.17,-179.60,-179.03,-178.45,-177.88,-177.31,-176.74,-176.17,-175.59, -175.02,-174.45,-173.87,-173.30,-172.72,-172.14,-171.57,-171.01,-170.42,-169.86,-169.28,-168.71,-168.14,-167.57,-166.99, -166.42,-165.84,-165.26,-164.69,-164.11,-163.54,-162.97,-162.39,-161.82,-161.24,-160.66,-160.09,-159.52,-158.93,-158.36, -157.79,-157.22,-156.64,-156.07,-155.49,-154.91,-154.34,-153.76,-153.19,-152.62,-152.05,-151.46,-150.89,-150.31,-149.75, -149.17,-148.60,-148.02,-147.45,-146.87,-146.30,-145.72,-145.14,-144.58,-144.00,-143.42,-142.84,-142.26,-141.69,-141.11, -140.55,-139.97,-139.40,-138.82,-138.25,-137.67,-137.10,-136.52,-135.94,-135.37,-134.80,-134.24,-133.66,-133.08,-132.51, -131.93,-131.36,-130.78,-130.21,-129.64,-129.07,-128.49,-127.92,-127.34,-126.77,-126.19,-125.61,-125.04,-124.47,-123.89, -123.31,-122.73,-122.16,-121.59,-121.01,-120.43,-119.86,-119.29,-118.70,-118.13,-117.54,-116.98,-116.42,-115.84,-115.26, -114.69,-114.12,-113.54,-112.98,-112.40,-111.82,-111.25,-110.68,-110.10,-109.52,-108.95,-108.37,-107.81,-107.24,-106.66, -106.08,-105.51,-104.93,-104.36,-103.80,-103.22,-102.64,-102.06,-101.50,-100.92,-100.35,-99.77,-99.19,-98.62,-98.04, -97.47,-96.89,-96.32,-95.73,-95.16,-94.59,-94.01,-93.45,-92.87,-92.29,-91.71,-91.14,-90.56,-89.98,-89.41, -88.84,-88.26,-87.68,-87.11,-86.53,-85.95,-85.37,-84.80,-84.22,-83.65,-83.08,-82.51,-81.93,-81.36,-80.78, -80.20,-79.64,-79.05,-78.48,-77.90,-77.32,-76.76,-76.18,-75.60,-75.03,-74.44,-73.87,-73.29,-72.72,-72.14, -71.56,-70.98,-70.41,-69.84,-69.27,-68.70,-68.13,-67.56,-66.99,-66.40,-65.83,-65.25,-64.68,-64.11,-63.54, -62.96,-62.38,-61.81,-61.24,-60.66,-60.09,-59.53,-58.94,-58.37,-57.80,-57.23,-56.65,-56.08,-55.50,-54.93, -54.36,-53.78,-53.20,-52.62,-52.06,-51.48,-50.91,-50.34,-49.76,-49.19,-48.61,-48.03,-47.45,-46.88,-46.30, -45.72,-45.14,-44.57,-43.99,-43.42,-42.84,-42.26,-41.68,-41.10,-40.54,-39.95,-39.38,-38.79,-38.22,-37.65, -37.07,-36.49,-35.92,-35.35,-34.78,-34.21,-33.63,-33.07,-32.49,-31.91,-31.34,-30.77,-30.19,-29.61,-29.04, -28.47,-27.90,-27.33,-26.76,-26.19,-25.61,-25.05,-24.47,-23.89,-23.31,-22.74,-22.17,-21.59,-21.01,-20.43, -19.85,-19.27,-18.69,-18.12,-17.55,-16.98,-16.41,-15.82,-15.25,-14.67,-14.09,-13.52,-12.95,-12.37,-11.79, -11.21,-10.64,-10.06,-9.49,-8.91,-8.33,-7.75,-7.17,-6.60,-6.02,-5.45,-4.86,-4.29,-3.72,-3.15, -2.57,-2.00,-1.43,-0.85,-0.27,0.30,0.87,1.45,2.02,2.60,3.18,3.75,4.33,4.90,5.48, 6.05,6.63,7.21,7.78,8.35,8.92,9.50,10.08,10.66,11.23,11.81,12.38,12.96,13.54,14.12, 14.70,15.27,15.84,16.42,16.98,17.55,18.13,18.69,19.28,19.85,20.42,21.00,21.58,22.15,22.74, 23.31,23.89,24.47,25.05,25.62,26.19,26.77,27.33,27.91,28.48,29.04,29.62,30.20,30.78,31.36, 31.94,32.52,33.08,33.66,34.24,34.81,35.39,35.96,36.54,37.12,37.70,38.28,38.85,39.42,39.99, 40.56,41.13,41.70,42.27,42.84,43.42,43.98,44.56,45.14,45.72,46.30,46.88,47.45,48.03,48.60, 49.18,49.76,50.33,50.90,51.47,52.04,52.62,53.20,53.76,54.33,54.91,55.49,56.07,56.64,57.22, 57.79,58.37,58.94,59.52,60.09,60.67,61.24,61.80,62.38,62.96,63.53,64.11,64.68,65.26,65.84, 66.41,66.99,67.56,68.13,68.70,69.27,69.85,70.42,71.01,71.58,72.15,72.72,73.29,73.87,74.45, 75.03,75.61,76.18,76.76,77.33,77.90,78.48,79.06,79.63,80.20,80.77,81.35,81.92,82.49,83.07, 83.64,84.21,84.79,85.36,85.95,86.53,87.11,87.68,88.24,88.82,89.39,89.97,90.54,91.11,91.68, 92.26,92.85,93.42,94.00,94.57,95.14,95.72,96.30,96.87,97.44,98.02,98.60,99.17,99.73,100.31, 100.88,101.46,102.02,102.59,103.17,103.74,104.32,104.91,105.48,106.06,106.64,107.20,107.78,108.36,108.94, 109.50,110.07,110.64,111.22,111.79,112.37,112.95,113.52,114.09,114.67,115.25,115.82,116.40,116.96,117.54, 118.12,118.68,119.26,119.83,120.41,120.98,121.56,122.13,122.72,123.29,123.87,124.46,125.04,125.60,126.18, 126.76,127.34,127.90,128.47,129.05,129.63,130.20,130.79,131.36,131.94,132.51,133.08,133.66,134.23,134.80, 135.38,135.95,136.53,137.11,137.69,138.26,138.83,139.41,139.98,140.55,141.12,141.69,142.26,142.83,143.42, 143.99,144.57,145.14,145.72,146.29,146.87,147.43,148.01,148.59,149.17,149.74,150.32,150.90,151.47,152.05, 152.62,153.19,153.77,154.35,154.93,155.51,156.08,156.66,157.23,157.81,158.39,158.96,159.54,160.12,160.69, 161.26,161.85,162.41,162.99,163.57,164.15,164.72,165.29,165.88,166.45,167.02,167.59,168.17,168.75,169.33, 169.90,170.48,171.05,171.63,172.21,172.77,173.35,173.92,174.50,175.08,175.66,176.23) mag <- c(-33.95,-32.20,-32.05,-30.35,-29.20,-29.20,-29.00,-28.20,-27.95,-27.80,-27.75,-27.55,-27.85,-27.95,-28.45, -28.60,-28.55,-29.65,-29.75,-31.00,-31.85,-33.80,-34.50,-37.05,-37.30,-39.70,-41.35,-42.55,-41.55,-38.55, -36.70,-35.30,-33.95,-33.25,-32.70,-31.75,-31.60,-30.80,-30.65,-30.20,-29.95,-30.70,-30.35,-30.80,-31.15, -31.85,-32.70,-32.45,-32.95,-33.55,-32.90,-32.10,-32.00,-31.20,-29.75,-29.25,-28.40,-27.65,-26.90,-26.55, -25.70,-25.55,-25.10,-24.75,-24.75,-24.65,-24.60,-24.85,-25.20,-25.65,-25.50,-26.15,-26.50,-26.90,-27.65, -28.15,-27.50,-28.20,-27.65,-27.15,-26.90,-26.50,-26.30,-25.60,-25.25,-24.75,-24.65,-24.35,-24.25,-23.80, -24.10,-23.95,-24.05,-24.00,-24.20,-24.40,-25.15,-25.45,-26.05,-26.90,-27.55,-27.50,-27.75,-27.95,-28.00, -27.05,-26.60,-25.40,-24.90,-23.95,-23.45,-23.30,-23.10,-22.70,-22.90,-22.75,-22.80,-22.90,-23.15,-23.20, -23.25,-23.05,-23.05,-23.05,-22.65,-22.45,-22.45,-22.20,-21.90,-22.05,-22.00,-21.90,-21.80,-21.85,-21.80, -21.65,-21.75,-21.60,-20.75,-20.40,-20.15,-19.95,-20.00,-19.85,-20.05,-20.00,-20.40,-20.05,-20.10,-20.10, -20.45,-20.55,-20.00,-20.15,-20.20,-19.70,-19.50,-19.30,-19.10,-18.70,-18.80,-18.55,-18.50,-18.45,-18.40, -18.50,-18.50,-18.75,-19.00,-18.85,-18.95,-18.75,-18.75,-18.65,-18.90,-18.80,-18.95,-19.10,-19.45,-19.55, -19.75,-19.85,-19.90,-20.10,-20.15,-20.10,-20.10,-20.25,-20.25,-20.55,-20.50,-21.30,-21.45,-21.10,-21.00, -21.10,-21.80,-21.60,-21.85,-22.05,-22.35,-22.35,-22.55,-22.75,-22.85,-23.55,-23.40,-23.40,-23.40,-23.20, -22.95,-23.55,-22.60,-21.90,-21.40,-21.00,-20.40,-19.70,-19.25,-18.70,-17.90,-17.45,-16.95,-16.35,-15.95, -15.45,-14.85,-14.60,-14.15,-13.60,-13.10,-12.55,-12.15,-11.80,-11.30,-11.10,-10.50,-10.20,-9.85,-9.50, -9.40,-9.00,-8.60,-8.45,-8.00,-7.70,-7.45,-7.15,-6.95,-6.80,-6.60,-6.75,-6.45,-6.10,-5.75, -5.55,-5.40,-5.40,-5.25,-5.00,-4.85,-4.55,-4.35,-4.25,-4.10,-3.90,-3.80,-3.65,-3.50,-3.40, -3.30,-3.20,-3.05,-3.00,-2.90,-2.75,-2.65,-2.50,-2.45,-2.40,-2.35,-2.30,-2.25,-2.05,-1.95, -1.85,-1.75,-1.85,-1.80,-1.75,-1.70,-1.55,-1.35,-1.35,-1.25,-1.25,-1.20,-1.10,-1.35,-0.85, -0.75,-0.80,-1.05,-0.95,-1.05,-1.40,-0.75,-0.90,-0.75,-0.55,-0.60,-0.60,-0.30,-0.50,-0.60, -0.20,-0.30,0.00,-0.10,-0.25,-0.25,-0.15,-0.05,-0.05,-0.05,-0.10,-0.10,-0.10,-0.15,-0.25, -0.35,-0.45,-0.45,-0.65,-0.45,-0.55,-0.75,-0.75,-0.60,-0.55,-0.85,-0.90,-0.85,-1.00,-0.95, -0.95,-1.00,-1.05,-1.05,-1.15,-1.15,-1.20,-1.25,-1.30,-1.40,-1.55,-1.70,-1.75,-1.80,-1.95, -2.05,-2.25,-2.40,-2.55,-2.65,-2.70,-2.90,-3.05,-3.25,-3.45,-3.35,-3.50,-3.65,-3.80,-4.00, -4.30,-4.35,-4.50,-4.75,-4.90,-5.30,-5.35,-5.45,-5.65,-5.85,-6.05,-6.30,-6.55,-6.75,-7.00, -7.25,-7.50,-7.75,-8.05,-8.35,-8.65,-8.95,-9.30,-9.65,-10.05,-10.45,-10.90,-11.35,-11.80,-12.25, -12.75,-13.35,-13.80,-14.30,-14.90,-15.30,-15.90,-16.40,-16.90,-17.50,-18.10,-18.65,-19.50,-20.15,-21.05, -21.65,-22.55,-23.60,-24.70,-25.80,-26.75,-27.85,-28.85,-28.90,-29.20,-29.25,-28.60,-28.70,-28.65,-28.10, -27.45,-26.35,-25.90,-25.55,-24.65,-24.10,-23.35,-23.25,-22.75,-22.90,-22.80,-22.65,-22.90,-22.95,-22.95, -22.60,-22.85,-22.95,-22.50,-22.60,-22.80,-22.55,-22.35,-22.40,-22.55,-22.00,-21.75,-21.85,-21.85,-21.75, -21.80,-21.70,-21.45,-21.45,-21.15,-21.10,-21.25,-21.30,-21.15,-21.20,-21.20,-21.45,-21.50,-21.65,-21.85, -21.80,-21.60,-21.80,-21.90,-21.85,-21.90,-22.00,-22.25,-21.95,-22.10,-22.05,-22.00,-21.90,-21.90,-21.80, -21.65,-21.50,-21.45,-21.55,-21.70,-21.85,-22.05,-22.00,-22.25,-22.35,-22.35,-22.70,-22.70,-22.90,-22.75, -23.00,-23.15,-23.25,-23.35,-23.55,-23.35,-23.50,-23.35,-23.50,-23.45,-23.60,-23.65,-23.95,-24.05,-24.55, -24.70,-25.15,-25.40,-25.60,-26.25,-26.10,-26.85,-26.90,-27.55,-28.35,-28.35,-28.90,-29.25,-30.10,-29.20, -29.15,-29.05,-28.60,-28.40,-27.90,-27.95,-27.25,-27.70,-27.10,-27.40,-27.60,-27.05,-27.50,-27.25,-27.70, -27.55,-27.15,-26.95,-27.35,-27.00,-26.85,-26.85,-26.70,-26.55,-26.50,-26.35,-26.30,-26.25,-25.95,-26.50, -26.10,-26.60,-26.70,-26.80,-27.60,-28.00,-27.60,-28.50,-28.60,-28.75,-30.00,-30.15,-30.95,-31.20,-32.45, -33.50,-34.95,-36.40,-37.65,-37.90,-37.50,-37.50,-36.70,-35.55,-34.65,-33.95,-33.15,-32.15,-32.00,-31.45, -30.90,-31.25,-30.95,-30.75,-30.90,-31.50,-31.75,-32.40,-32.90,-32.90,-33.40,-33.80,-35.70,-36.40,-38.40, -40.20,-43.30,-44.00,-44.30,-40.15,-38.95,-36.20,-34.85,-33.35,-31.80,-30.70,-30.20) polar.plot(lengths=mag, polar.pos=deg, start=90, clockwise=TRUE, rp.type="p")