area_isoparalitoral <- function(dist_costa,latitude)
{
areaISO <- rep(NA, length(dist_costa))
dc <- rep(NA, length(dist_costa))
lat <- rep(NA, length(dist_costa))
dc[dist_costa<=10] <- 10
dc[dist_costa>10&dist_costa<=20] <- 20
dc[dist_costa>20&dist_costa<=30] <- 30
dc[dist_costa>30&dist_costa<=40] <- 40
dc[dist_costa>40&dist_costa<=50] <- 50
dc[dist_costa>50&dist_costa<=60] <- 60
dc[dist_costa>60&dist_costa<=70] <- 70
dc[dist_costa>70&dist_costa<=80] <- 80
dc[dist_costa>80&dist_costa<=90] <- 90
dc[dist_costa>90&dist_costa<=100] <- 100
dc[dist_costa>100&dist_costa<=110] <- 110
dc[dist_costa>110&dist_costa<=120] <- 120
dc[dist_costa>120&dist_costa<=130] <- 130
dc[dist_costa>130&dist_costa<=140] <- 140
dc[dist_costa>140&dist_costa<=150] <- 150
dc[dist_costa>150&dist_costa<=160] <- 160
dc[dist_costa>160&dist_costa<=170] <- 170
dc[dist_costa>170&dist_costa<=180] <- 180
dc[dist_costa>180&dist_costa<=190] <- 190
dc[dist_costa>190&dist_costa<=200] <- 200
#
lat[latitude> -3.5] <- 3
lat[latitude<= -3.5 & latitude> -4] <- 3.5
lat[latitude<= -4 & latitude> -4.5] <- 4
lat[latitude <= -4.5 & latitude> -5] <- 4.5
lat[latitude <= -5 & latitude> -5.5] <- 5
lat[latitude <= -5.5 & latitude> -6] <- 5.5
lat[latitude <= -6 & latitude> -6.5] <- 6
lat[latitude <= -6.5 & latitude> -7] <- 6.5
lat[latitude <= -7 & latitude> -7.5] <- 7
lat[latitude <= -7.5 & latitude> -8] <- 7.5
lat[latitude <= -8 & latitude> -8.5] <- 8
lat[latitude <= -8.5 & latitude> -9] <- 8.5
lat[latitude <= -9 & latitude> -9.5] <- 9
lat[latitude <= -9.5 & latitude> -10] <- 9.5
lat[latitude <= -10 & latitude> -10.5] <- 10
lat[latitude <= -10.5 & latitude> -11] <- 10.5
lat[latitude <= -11 & latitude> -11.5] <- 11
lat[latitude <= -11.5 & latitude> -12] <- 11.5
lat[latitude <= -12 & latitude> -12.5] <- 12
lat[latitude <= -12.5 & latitude> -13] <- 12.5
lat[latitude <= -13 & latitude> -13.5] <- 13
lat[latitude <= -13.5 & latitude> -14] <- 13.5
lat[latitude <= -14 & latitude> -14.5] <- 14
lat[latitude <= -14.5 & latitude> -15] <- 14.5
lat[latitude <= -15 & latitude> -15.5] <- 15
lat[latitude <= -15.5 & latitude> -16] <- 15.5
lat[latitude <= -16 & latitude> -16.5] <- 16
lat[latitude <= -16.5 & latitude> -17] <- 16.5
lat[latitude <= -17 & latitude> -17.5] <- 17
lat[latitude <= -17.5 & latitude> -18] <- 17.5
lat[latitude <= -18 & latitude> -18.5] <- 18
lat[latitude <= -18.5 & latitude> -19] <- 18.5
#
areaISO[dc==10&lat==3] <- 1030
areaISO[dc==20&lat==3] <- 2030
areaISO[dc==30&lat==3] <- 3030
areaISO[dc==40&lat==3] <- 4030
areaISO[dc==50&lat==3] <- 5030
areaISO[dc==60&lat==3] <- 6030
areaISO[dc==70&lat==3] <- 7030
areaISO[dc==80&lat==3] <- 8030
areaISO[dc==90&lat==3] <- 9030
areaISO[dc==100&lat==3] <- 10030
areaISO[dc==110&lat==3] <- 11030
areaISO[dc==120&lat==3] <- 12030
areaISO[dc==130&lat==3] <- 13030
areaISO[dc==140&lat==3] <- 14030
areaISO[dc==150&lat==3] <- 15030
areaISO[dc==160&lat==3] <- 16030
areaISO[dc==170&lat==3] <- 17030
areaISO[dc==180&lat==3] <- 18030
areaISO[dc==190&lat==3] <- 19030
areaISO[dc==200&lat==3] <- 20030
areaISO[dc==10&lat==3.5] <- 1033
areaISO[dc==20&lat==3.5] <- 2033
areaISO[dc==30&lat==3.5] <- 3033
areaISO[dc==40&lat==3.5] <- 4033
areaISO[dc==50&lat==3.5] <- 5033
areaISO[dc==60&lat==3.5] <- 6033
areaISO[dc==70&lat==3.5] <- 7033
areaISO[dc==80&lat==3.5] <- 8033
areaISO[dc==90&lat==3.5] <- 9033
areaISO[dc==100&lat==3.5] <- 10033
areaISO[dc==110&lat==3.5] <- 11033
areaISO[dc==120&lat==3.5] <- 12033
areaISO[dc==130&lat==3.5] <- 13033
areaISO[dc==140&lat==3.5] <- 14033
areaISO[dc==150&lat==3.5] <- 15033
areaISO[dc==160&lat==3.5] <- 16033
areaISO[dc==170&lat==3.5] <- 17033
areaISO[dc==180&lat==3.5] <- 18033
areaISO[dc==190&lat==3.5] <- 19033
areaISO[dc==200&lat==3.5] <- 20033
areaISO[dc==10&lat==4] <- 1040
areaISO[dc==20&lat==4] <- 2040
areaISO[dc==30&lat==4] <- 3040
areaISO[dc==40&lat==4] <- 4040
areaISO[dc==50&lat==4] <- 5040
areaISO[dc==60&lat==4] <- 6040
areaISO[dc==70&lat==4] <- 7040
areaISO[dc==80&lat==4] <- 8040
areaISO[dc==90&lat==4] <- 9040
areaISO[dc==100&lat==4] <- 10040
areaISO[dc==110&lat==4] <- 11040
areaISO[dc==120&lat==4] <- 12040
areaISO[dc==130&lat==4] <- 13040
areaISO[dc==140&lat==4] <- 14040
areaISO[dc==150&lat==4] <- 15040
areaISO[dc==160&lat==4] <- 16040
areaISO[dc==170&lat==4] <- 17040
areaISO[dc==180&lat==4] <- 18040
areaISO[dc==190&lat==4] <- 19040
areaISO[dc==200&lat==4] <- 20040
areaISO[dc==10&lat==4.5] <- 1043
areaISO[dc==20&lat==4.5] <- 2043
areaISO[dc==30&lat==4.5] <- 3043
areaISO[dc==40&lat==4.5] <- 4043
areaISO[dc==50&lat==4.5] <- 5043
areaISO[dc==60&lat==4.5] <- 6043
areaISO[dc==70&lat==4.5] <- 7043
areaISO[dc==80&lat==4.5] <- 8043
areaISO[dc==90&lat==4.5] <- 9043
areaISO[dc==100&lat==4.5] <- 10043
areaISO[dc==110&lat==4.5] <- 11043
areaISO[dc==120&lat==4.5] <- 12043
areaISO[dc==130&lat==4.5] <- 13043
areaISO[dc==140&lat==4.5] <- 14043
areaISO[dc==150&lat==4.5] <- 15043
areaISO[dc==160&lat==4.5] <- 16043
areaISO[dc==170&lat==4.5] <- 17043
areaISO[dc==180&lat==4.5] <- 18043
areaISO[dc==190&lat==4.5] <- 19043
areaISO[dc==200&lat==4.5] <- 20043
areaISO[dc==10&lat==5] <- 1050
areaISO[dc==20&lat==5] <- 2050
areaISO[dc==30&lat==5] <- 3050
areaISO[dc==40&lat==5] <- 4050
areaISO[dc==50&lat==5] <- 5050
areaISO[dc==60&lat==5] <- 6050
areaISO[dc==70&lat==5] <- 7050
areaISO[dc==80&lat==5] <- 8050
areaISO[dc==90&lat==5] <- 9050
areaISO[dc==100&lat==5] <- 10050
areaISO[dc==110&lat==5] <- 11050
areaISO[dc==120&lat==5] <- 12050
areaISO[dc==130&lat==5] <- 13050
areaISO[dc==140&lat==5] <- 14050
areaISO[dc==150&lat==5] <- 15050
areaISO[dc==160&lat==5] <- 16050
areaISO[dc==170&lat==5] <- 17050
areaISO[dc==180&lat==5] <- 18050
areaISO[dc==190&lat==5] <- 19050
areaISO[dc==200&lat==5] <- 20050
areaISO[dc==10&lat==5.5] <- 1053
areaISO[dc==20&lat==5.5] <- 2053
areaISO[dc==30&lat==5.5] <- 3053
areaISO[dc==40&lat==5.5] <- 4053
areaISO[dc==50&lat==5.5] <- 5053
areaISO[dc==60&lat==5.5] <- 6053
areaISO[dc==70&lat==5.5] <- 7053
areaISO[dc==80&lat==5.5] <- 8053
areaISO[dc==90&lat==5.5] <- 9053
areaISO[dc==100&lat==5.5] <- 10053
areaISO[dc==110&lat==5.5] <- 11053
areaISO[dc==120&lat==5.5] <- 12053
areaISO[dc==130&lat==5.5] <- 13053
areaISO[dc==140&lat==5.5] <- 14053
areaISO[dc==150&lat==5.5] <- 15053
areaISO[dc==160&lat==5.5] <- 16053
areaISO[dc==170&lat==5.5] <- 17053
areaISO[dc==180&lat==5.5] <- 18053
areaISO[dc==190&lat==5.5] <- 19053
areaISO[dc==200&lat==5.5] <- 20053
areaISO[dc==10&lat==6] <- 1060
areaISO[dc==20&lat==6] <- 2060
areaISO[dc==30&lat==6] <- 3060
areaISO[dc==40&lat==6] <- 4060
areaISO[dc==50&lat==6] <- 5060
areaISO[dc==60&lat==6] <- 6060
areaISO[dc==70&lat==6] <- 7060
areaISO[dc==80&lat==6] <- 8060
areaISO[dc==90&lat==6] <- 9060
areaISO[dc==100&lat==6] <- 10060
areaISO[dc==110&lat==6] <- 11060
areaISO[dc==120&lat==6] <- 12060
areaISO[dc==130&lat==6] <- 13060
areaISO[dc==140&lat==6] <- 14060
areaISO[dc==150&lat==6] <- 15060
areaISO[dc==160&lat==6] <- 16060
areaISO[dc==170&lat==6] <- 17060
areaISO[dc==180&lat==6] <- 18060
areaISO[dc==190&lat==6] <- 19060
areaISO[dc==200&lat==6] <- 20060
areaISO[dc==10&lat==6.5] <- 1063
areaISO[dc==20&lat==6.5] <- 2063
areaISO[dc==30&lat==6.5] <- 3063
areaISO[dc==40&lat==6.5] <- 4063
areaISO[dc==50&lat==6.5] <- 5063
areaISO[dc==60&lat==6.5] <- 6063
areaISO[dc==70&lat==6.5] <- 7063
areaISO[dc==80&lat==6.5] <- 8063
areaISO[dc==90&lat==6.5] <- 9063
areaISO[dc==100&lat==6.5] <- 10063
areaISO[dc==110&lat==6.5] <- 11063
areaISO[dc==120&lat==6.5] <- 12063
areaISO[dc==130&lat==6.5] <- 13063
areaISO[dc==140&lat==6.5] <- 14063
areaISO[dc==150&lat==6.5] <- 15063
areaISO[dc==160&lat==6.5] <- 16063
areaISO[dc==170&lat==6.5] <- 17063
areaISO[dc==180&lat==6.5] <- 18063
areaISO[dc==190&lat==6.5] <- 19063
areaISO[dc==200&lat==6.5] <- 20063
areaISO[dc==10&lat==7] <- 1070
areaISO[dc==20&lat==7] <- 2070
areaISO[dc==30&lat==7] <- 3070
areaISO[dc==40&lat==7] <- 4070
areaISO[dc==50&lat==7] <- 5070
areaISO[dc==60&lat==7] <- 6070
areaISO[dc==70&lat==7] <- 7070
areaISO[dc==80&lat==7] <- 8070
areaISO[dc==90&lat==7] <- 9070
areaISO[dc==100&lat==7] <- 10070
areaISO[dc==110&lat==7] <- 11070
areaISO[dc==120&lat==7] <- 12070
areaISO[dc==130&lat==7] <- 13070
areaISO[dc==140&lat==7] <- 14070
areaISO[dc==150&lat==7] <- 15070
areaISO[dc==160&lat==7] <- 16070
areaISO[dc==170&lat==7] <- 17070
areaISO[dc==180&lat==7] <- 18070
areaISO[dc==190&lat==7] <- 19070
areaISO[dc==200&lat==7] <- 20070
areaISO[dc==10&lat==7.5] <- 1073
areaISO[dc==20&lat==7.5] <- 2073
areaISO[dc==30&lat==7.5] <- 3073
areaISO[dc==40&lat==7.5] <- 4073
areaISO[dc==50&lat==7.5] <- 5073
areaISO[dc==60&lat==7.5] <- 6073
areaISO[dc==70&lat==7.5] <- 7073
areaISO[dc==80&lat==7.5] <- 8073
areaISO[dc==90&lat==7.5] <- 9073
areaISO[dc==100&lat==7.5] <- 10073
areaISO[dc==110&lat==7.5] <- 11073
areaISO[dc==120&lat==7.5] <- 12073
areaISO[dc==130&lat==7.5] <- 13073
areaISO[dc==140&lat==7.5] <- 14073
areaISO[dc==150&lat==7.5] <- 15073
areaISO[dc==160&lat==7.5] <- 16073
areaISO[dc==170&lat==7.5] <- 17073
areaISO[dc==180&lat==7.5] <- 18073
areaISO[dc==190&lat==7.5] <- 19073
areaISO[dc==200&lat==7.5] <- 20073
areaISO[dc==10&lat==8] <- 1080
areaISO[dc==20&lat==8] <- 2080
areaISO[dc==30&lat==8] <- 3080
areaISO[dc==40&lat==8] <- 4080
areaISO[dc==50&lat==8] <- 5080
areaISO[dc==60&lat==8] <- 6080
areaISO[dc==70&lat==8] <- 7080
areaISO[dc==80&lat==8] <- 8080
areaISO[dc==90&lat==8] <- 9080
areaISO[dc==100&lat==8] <- 10080
areaISO[dc==110&lat==8] <- 11080
areaISO[dc==120&lat==8] <- 12080
areaISO[dc==130&lat==8] <- 13080
areaISO[dc==140&lat==8] <- 14080
areaISO[dc==150&lat==8] <- 15080
areaISO[dc==160&lat==8] <- 16080
areaISO[dc==170&lat==8] <- 17080
areaISO[dc==180&lat==8] <- 18080
areaISO[dc==190&lat==8] <- 19080
areaISO[dc==200&lat==8] <- 20080
areaISO[dc==10&lat==8.5] <- 1083
areaISO[dc==20&lat==8.5] <- 2083
areaISO[dc==30&lat==8.5] <- 3083
areaISO[dc==40&lat==8.5] <- 4083
areaISO[dc==50&lat==8.5] <- 5083
areaISO[dc==60&lat==8.5] <- 6083
areaISO[dc==70&lat==8.5] <- 7083
areaISO[dc==80&lat==8.5] <- 8083
areaISO[dc==90&lat==8.5] <- 9083
areaISO[dc==100&lat==8.5] <- 10083
areaISO[dc==110&lat==8.5] <- 11083
areaISO[dc==120&lat==8.5] <- 12083
areaISO[dc==130&lat==8.5] <- 13083
areaISO[dc==140&lat==8.5] <- 14083
areaISO[dc==150&lat==8.5] <- 15083
areaISO[dc==160&lat==8.5] <- 16083
areaISO[dc==170&lat==8.5] <- 17083
areaISO[dc==180&lat==8.5] <- 18083
areaISO[dc==190&lat==8.5] <- 19083
areaISO[dc==200&lat==8.5] <- 20083
areaISO[dc==10&lat==9] <- 1090
areaISO[dc==20&lat==9] <- 2090
areaISO[dc==30&lat==9] <- 3090
areaISO[dc==40&lat==9] <- 4090
areaISO[dc==50&lat==9] <- 5090
areaISO[dc==60&lat==9] <- 6090
areaISO[dc==70&lat==9] <- 7090
areaISO[dc==80&lat==9] <- 8090
areaISO[dc==90&lat==9] <- 9090
areaISO[dc==100&lat==9] <- 10090
areaISO[dc==110&lat==9] <- 11090
areaISO[dc==120&lat==9] <- 12090
areaISO[dc==130&lat==9] <- 13090
areaISO[dc==140&lat==9] <- 14090
areaISO[dc==150&lat==9] <- 15090
areaISO[dc==160&lat==9] <- 16090
areaISO[dc==170&lat==9] <- 17090
areaISO[dc==180&lat==9] <- 18090
areaISO[dc==190&lat==9] <- 19090
areaISO[dc==200&lat==9] <- 20090
areaISO[dc==10&lat==9.5] <- 1093
areaISO[dc==20&lat==9.5] <- 2093
areaISO[dc==30&lat==9.5] <- 3093
areaISO[dc==40&lat==9.5] <- 4093
areaISO[dc==50&lat==9.5] <- 5093
areaISO[dc==60&lat==9.5] <- 6093
areaISO[dc==70&lat==9.5] <- 7093
areaISO[dc==80&lat==9.5] <- 8093
areaISO[dc==90&lat==9.5] <- 9093
areaISO[dc==100&lat==9.5] <- 10093
areaISO[dc==110&lat==9.5] <- 11093
areaISO[dc==120&lat==9.5] <- 12093
areaISO[dc==130&lat==9.5] <- 13093
areaISO[dc==140&lat==9.5] <- 14093
areaISO[dc==150&lat==9.5] <- 15093
areaISO[dc==160&lat==9.5] <- 16093
areaISO[dc==170&lat==9.5] <- 17093
areaISO[dc==180&lat==9.5] <- 18093
areaISO[dc==190&lat==9.5] <- 19093
areaISO[dc==200&lat==9.5] <- 20093
areaISO[dc==10&lat==10] <- 1100
areaISO[dc==20&lat==10] <- 2100
areaISO[dc==30&lat==10] <- 3100
areaISO[dc==40&lat==10] <- 4100
areaISO[dc==50&lat==10] <- 5100
areaISO[dc==60&lat==10] <- 6100
areaISO[dc==70&lat==10] <- 7100
areaISO[dc==80&lat==10] <- 8100
areaISO[dc==90&lat==10] <- 9100
areaISO[dc==100&lat==10] <- 10100
areaISO[dc==110&lat==10] <- 11100
areaISO[dc==120&lat==10] <- 12100
areaISO[dc==130&lat==10] <- 13100
areaISO[dc==140&lat==10] <- 14100
areaISO[dc==150&lat==10] <- 15100
areaISO[dc==160&lat==10] <- 16100
areaISO[dc==170&lat==10] <- 17100
areaISO[dc==180&lat==10] <- 18100
areaISO[dc==190&lat==10] <- 19100
areaISO[dc==200&lat==10] <- 20100
areaISO[dc==10&lat==10.5] <- 1103
areaISO[dc==20&lat==10.5] <- 2103
areaISO[dc==30&lat==10.5] <- 3103
areaISO[dc==40&lat==10.5] <- 4103
areaISO[dc==50&lat==10.5] <- 5103
areaISO[dc==60&lat==10.5] <- 6103
areaISO[dc==70&lat==10.5] <- 7103
areaISO[dc==80&lat==10.5] <- 8103
areaISO[dc==90&lat==10.5] <- 9103
areaISO[dc==100&lat==10.5] <- 10103
areaISO[dc==110&lat==10.5] <- 11103
areaISO[dc==120&lat==10.5] <- 12103
areaISO[dc==130&lat==10.5] <- 13103
areaISO[dc==140&lat==10.5] <- 14103
areaISO[dc==150&lat==10.5] <- 15103
areaISO[dc==160&lat==10.5] <- 16103
areaISO[dc==170&lat==10.5] <- 17103
areaISO[dc==180&lat==10.5] <- 18103
areaISO[dc==190&lat==10.5] <- 19103
areaISO[dc==200&lat==10.5] <- 20103
areaISO[dc==10&lat==11] <- 1110
areaISO[dc==20&lat==11] <- 2110
areaISO[dc==30&lat==11] <- 3110
areaISO[dc==40&lat==11] <- 4110
areaISO[dc==50&lat==11] <- 5110
areaISO[dc==60&lat==11] <- 6110
areaISO[dc==70&lat==11] <- 7110
areaISO[dc==80&lat==11] <- 8110
areaISO[dc==90&lat==11] <- 9110
areaISO[dc==100&lat==11] <- 10110
areaISO[dc==110&lat==11] <- 11110
areaISO[dc==120&lat==11] <- 12110
areaISO[dc==130&lat==11] <- 13110
areaISO[dc==140&lat==11] <- 14110
areaISO[dc==150&lat==11] <- 15110
areaISO[dc==160&lat==11] <- 16110
areaISO[dc==170&lat==11] <- 17110
areaISO[dc==180&lat==11] <- 18110
areaISO[dc==190&lat==11] <- 19110
areaISO[dc==200&lat==11] <- 20110
areaISO[dc==10&lat==11.5] <- 1113
areaISO[dc==20&lat==11.5] <- 2113
areaISO[dc==30&lat==11.5] <- 3113
areaISO[dc==40&lat==11.5] <- 4113
areaISO[dc==50&lat==11.5] <- 5113
areaISO[dc==60&lat==11.5] <- 6113
areaISO[dc==70&lat==11.5] <- 7113
areaISO[dc==80&lat==11.5] <- 8113
areaISO[dc==90&lat==11.5] <- 9113
areaISO[dc==100&lat==11.5] <- 10113
areaISO[dc==110&lat==11.5] <- 11113
areaISO[dc==120&lat==11.5] <- 12113
areaISO[dc==130&lat==11.5] <- 13113
areaISO[dc==140&lat==11.5] <- 14113
areaISO[dc==150&lat==11.5] <- 15113
areaISO[dc==160&lat==11.5] <- 16113
areaISO[dc==170&lat==11.5] <- 17113
areaISO[dc==180&lat==11.5] <- 18113
areaISO[dc==190&lat==11.5] <- 19113
areaISO[dc==200&lat==11.5] <- 20113
areaISO[dc==10&lat==12] <- 1120
areaISO[dc==20&lat==12] <- 2120
areaISO[dc==30&lat==12] <- 3120
areaISO[dc==40&lat==12] <- 4120
areaISO[dc==50&lat==12] <- 5120
areaISO[dc==60&lat==12] <- 6120
areaISO[dc==70&lat==12] <- 7120
areaISO[dc==80&lat==12] <- 8120
areaISO[dc==90&lat==12] <- 9120
areaISO[dc==100&lat==12] <- 10120
areaISO[dc==110&lat==12] <- 11120
areaISO[dc==120&lat==12] <- 12120
areaISO[dc==130&lat==12] <- 13120
areaISO[dc==140&lat==12] <- 14120
areaISO[dc==150&lat==12] <- 15120
areaISO[dc==160&lat==12] <- 16120
areaISO[dc==170&lat==12] <- 17120
areaISO[dc==180&lat==12] <- 18120
areaISO[dc==190&lat==12] <- 19120
areaISO[dc==200&lat==12] <- 20120
areaISO[dc==10&lat==12.5] <- 1123
areaISO[dc==20&lat==12.5] <- 2123
areaISO[dc==30&lat==12.5] <- 3123
areaISO[dc==40&lat==12.5] <- 4123
areaISO[dc==50&lat==12.5] <- 5123
areaISO[dc==60&lat==12.5] <- 6123
areaISO[dc==70&lat==12.5] <- 7123
areaISO[dc==80&lat==12.5] <- 8123
areaISO[dc==90&lat==12.5] <- 9123
areaISO[dc==100&lat==12.5] <- 10123
areaISO[dc==110&lat==12.5] <- 11123
areaISO[dc==120&lat==12.5] <- 12123
areaISO[dc==130&lat==12.5] <- 13123
areaISO[dc==140&lat==12.5] <- 14123
areaISO[dc==150&lat==12.5] <- 15123
areaISO[dc==160&lat==12.5] <- 16123
areaISO[dc==170&lat==12.5] <- 17123
areaISO[dc==180&lat==12.5] <- 18123
areaISO[dc==190&lat==12.5] <- 19123
areaISO[dc==200&lat==12.5] <- 20123
areaISO[dc==10&lat==13] <- 1130
areaISO[dc==20&lat==13] <- 2130
areaISO[dc==30&lat==13] <- 3130
areaISO[dc==40&lat==13] <- 4130
areaISO[dc==50&lat==13] <- 5130
areaISO[dc==60&lat==13] <- 6123
areaISO[dc==70&lat==13] <- 7123
areaISO[dc==80&lat==13] <- 8123
areaISO[dc==90&lat==13] <- 9123
areaISO[dc==100&lat==13] <- 10130
areaISO[dc==110&lat==13] <- 11130
areaISO[dc==120&lat==13] <- 12130
areaISO[dc==130&lat==13] <- 13130
areaISO[dc==140&lat==13] <- 14130
areaISO[dc==150&lat==13] <- 15130
areaISO[dc==160&lat==13] <- 16130
areaISO[dc==170&lat==13] <- 17130
areaISO[dc==180&lat==13] <- 18130
areaISO[dc==190&lat==13] <- 19130
areaISO[dc==200&lat==13] <- 20130
areaISO[dc==10&lat==13.5] <- 1133
areaISO[dc==20&lat==13.5] <- 2133
areaISO[dc==30&lat==13.5] <- 3133
areaISO[dc==40&lat==13.5] <- 4133
areaISO[dc==50&lat==13.5] <- 5133
areaISO[dc==60&lat==13.5] <- 6133
areaISO[dc==70&lat==13.5] <- 7133
areaISO[dc==80&lat==13.5] <- 8133
areaISO[dc==90&lat==13.5] <- 9133
areaISO[dc==100&lat==13.5] <- 10133
areaISO[dc==110&lat==13.5] <- 11133
areaISO[dc==120&lat==13.5] <- 12133
areaISO[dc==130&lat==13.5] <- 13133
areaISO[dc==140&lat==13.5] <- 14133
areaISO[dc==150&lat==13.5] <- 15133
areaISO[dc==160&lat==13.5] <- 16133
areaISO[dc==170&lat==13.5] <- 17133
areaISO[dc==180&lat==13.5] <- 18133
areaISO[dc==190&lat==13.5] <- 19133
areaISO[dc==200&lat==13.5] <- 20133
areaISO[dc==10&lat==14] <- 1140
areaISO[dc==20&lat==14] <- 2140
areaISO[dc==30&lat==14] <- 3140
areaISO[dc==40&lat==14] <- 4140
areaISO[dc==50&lat==14] <- 5140
areaISO[dc==60&lat==14] <- 6140
areaISO[dc==70&lat==14] <- 7140
areaISO[dc==80&lat==14] <- 8140
areaISO[dc==90&lat==14] <- 9140
areaISO[dc==100&lat==14] <- 10140
areaISO[dc==110&lat==14] <- 11140
areaISO[dc==120&lat==14] <- 12140
areaISO[dc==130&lat==14] <- 13140
areaISO[dc==140&lat==14] <- 14140
areaISO[dc==150&lat==14] <- 15140
areaISO[dc==160&lat==14] <- 16140
areaISO[dc==170&lat==14] <- 17140
areaISO[dc==180&lat==14] <- 18140
areaISO[dc==190&lat==14] <- 19140
areaISO[dc==200&lat==14] <- 20140
areaISO[dc==10&lat==14.5] <- 1143
areaISO[dc==20&lat==14.5] <- 2143
areaISO[dc==30&lat==14.5] <- 3143
areaISO[dc==40&lat==14.5] <- 4143
areaISO[dc==50&lat==14.5] <- 5143
areaISO[dc==60&lat==14.5] <- 6143
areaISO[dc==70&lat==14.5] <- 7143
areaISO[dc==80&lat==14.5] <- 8143
areaISO[dc==90&lat==14.5] <- 9143
areaISO[dc==100&lat==14.5] <- 10143
areaISO[dc==110&lat==14.5] <- 11143
areaISO[dc==120&lat==14.5] <- 12143
areaISO[dc==130&lat==14.5] <- 13143
areaISO[dc==140&lat==14.5] <- 14143
areaISO[dc==150&lat==14.5] <- 15143
areaISO[dc==160&lat==14.5] <- 16143
areaISO[dc==170&lat==14.5] <- 17143
areaISO[dc==180&lat==14.5] <- 18143
areaISO[dc==190&lat==14.5] <- 19143
areaISO[dc==200&lat==14.5] <- 20143
areaISO[dc==10&lat==15] <- 1150
areaISO[dc==20&lat==15] <- 2150
areaISO[dc==30&lat==15] <- 3150
areaISO[dc==40&lat==15] <- 4150
areaISO[dc==50&lat==15] <- 5150
areaISO[dc==60&lat==15] <- 6150
areaISO[dc==70&lat==15] <- 7150
areaISO[dc==80&lat==15] <- 8150
areaISO[dc==90&lat==15] <- 9150
areaISO[dc==100&lat==15] <- 10150
areaISO[dc==110&lat==15] <- 11150
areaISO[dc==120&lat==15] <- 12150
areaISO[dc==130&lat==15] <- 13150
areaISO[dc==140&lat==15] <- 14150
areaISO[dc==150&lat==15] <- 15150
areaISO[dc==160&lat==15] <- 16150
areaISO[dc==170&lat==15] <- 17150
areaISO[dc==180&lat==15] <- 18150
areaISO[dc==190&lat==15] <- 19150
areaISO[dc==200&lat==15] <- 20150
areaISO[dc==10&lat==15.5] <- 1153
areaISO[dc==20&lat==15.5] <- 2153
areaISO[dc==30&lat==15.5] <- 3153
areaISO[dc==40&lat==15.5] <- 4153
areaISO[dc==50&lat==15.5] <- 5153
areaISO[dc==60&lat==15.5] <- 6153
areaISO[dc==70&lat==15.5] <- 7153
areaISO[dc==80&lat==15.5] <- 8153
areaISO[dc==90&lat==15.5] <- 9153
areaISO[dc==100&lat==15.5] <- 10153
areaISO[dc==110&lat==15.5] <- 11153
areaISO[dc==120&lat==15.5] <- 12153
areaISO[dc==130&lat==15.5] <- 13153
areaISO[dc==140&lat==15.5] <- 14153
areaISO[dc==150&lat==15.5] <- 15153
areaISO[dc==160&lat==15.5] <- 16153
areaISO[dc==170&lat==15.5] <- 17153
areaISO[dc==180&lat==15.5] <- 18153
areaISO[dc==190&lat==15.5] <- 19153
areaISO[dc==200&lat==15.5] <- 20153
areaISO[dc==10&lat==16] <- 1160
areaISO[dc==20&lat==16] <- 2160
areaISO[dc==30&lat==16] <- 3160
areaISO[dc==40&lat==16] <- 4160
areaISO[dc==50&lat==16] <- 5160
areaISO[dc==60&lat==16] <- 6160
areaISO[dc==70&lat==16] <- 7160
areaISO[dc==80&lat==16] <- 8160
areaISO[dc==90&lat==16] <- 9160
areaISO[dc==100&lat==16] <- 10160
areaISO[dc==110&lat==16] <- 11160
areaISO[dc==120&lat==16] <- 12160
areaISO[dc==130&lat==16] <- 13160
areaISO[dc==140&lat==16] <- 14160
areaISO[dc==150&lat==16] <- 15160
areaISO[dc==160&lat==16] <- 16160
areaISO[dc==170&lat==16] <- 17160
areaISO[dc==180&lat==16] <- 18160
areaISO[dc==190&lat==16] <- 19160
areaISO[dc==200&lat==16] <- 20160
areaISO[dc==10&lat==16.5] <- 1163
areaISO[dc==20&lat==16.5] <- 2163
areaISO[dc==30&lat==16.5] <- 3163
areaISO[dc==40&lat==16.5] <- 4163
areaISO[dc==50&lat==16.5] <- 5163
areaISO[dc==60&lat==16.5] <- 6163
areaISO[dc==70&lat==16.5] <- 7163
areaISO[dc==80&lat==16.5] <- 8163
areaISO[dc==90&lat==16.5] <- 9163
areaISO[dc==100&lat==16.5] <- 10163
areaISO[dc==110&lat==16.5] <- 11163
areaISO[dc==120&lat==16.5] <- 12163
areaISO[dc==130&lat==16.5] <- 13163
areaISO[dc==140&lat==16.5] <- 14163
areaISO[dc==150&lat==16.5] <- 15163
areaISO[dc==160&lat==16.5] <- 16163
areaISO[dc==170&lat==16.5] <- 17163
areaISO[dc==180&lat==16.5] <- 18163
areaISO[dc==190&lat==16.5] <- 19163
areaISO[dc==200&lat==16.5] <- 20163
areaISO[dc==10&lat==17] <- 1170
areaISO[dc==20&lat==17] <- 2170
areaISO[dc==30&lat==17] <- 3170
areaISO[dc==40&lat==17] <- 4170
areaISO[dc==50&lat==17] <- 5170
areaISO[dc==60&lat==17] <- 6170
areaISO[dc==70&lat==17] <- 7170
areaISO[dc==80&lat==17] <- 8170
areaISO[dc==90&lat==17] <- 9170
areaISO[dc==100&lat==17] <- 10170
areaISO[dc==110&lat==17] <- 11170
areaISO[dc==120&lat==17] <- 12170
areaISO[dc==130&lat==17] <- 13170
areaISO[dc==140&lat==17] <- 14170
areaISO[dc==150&lat==17] <- 15170
areaISO[dc==160&lat==17] <- 16170
areaISO[dc==170&lat==17] <- 17170
areaISO[dc==180&lat==17] <- 18170
areaISO[dc==190&lat==17] <- 19170
areaISO[dc==200&lat==17] <- 20170
areaISO[dc==10&lat==17.5] <- 1173
areaISO[dc==20&lat==17.5] <- 2173
areaISO[dc==30&lat==17.5] <- 3173
areaISO[dc==40&lat==17.5] <- 4173
areaISO[dc==50&lat==17.5] <- 5173
areaISO[dc==60&lat==17.5] <- 6173
areaISO[dc==70&lat==17.5] <- 7173
areaISO[dc==80&lat==17.5] <- 8173
areaISO[dc==90&lat==17.5] <- 9173
areaISO[dc==100&lat==17.5] <- 10173
areaISO[dc==110&lat==17.5] <- 11173
areaISO[dc==120&lat==17.5] <- 12173
areaISO[dc==130&lat==17.5] <- 13173
areaISO[dc==140&lat==17.5] <- 14173
areaISO[dc==150&lat==17.5] <- 15173
areaISO[dc==160&lat==17.5] <- 16173
areaISO[dc==170&lat==17.5] <- 17173
areaISO[dc==180&lat==17.5] <- 18173
areaISO[dc==190&lat==17.5] <- 19173
areaISO[dc==200&lat==17.5] <- 20173
areaISO[dc==10&lat==18] <- 1180
areaISO[dc==20&lat==18] <- 2180
areaISO[dc==30&lat==18] <- 3180
areaISO[dc==40&lat==18] <- 4180
areaISO[dc==50&lat==18] <- 5180
areaISO[dc==60&lat==18] <- 6180
areaISO[dc==70&lat==18] <- 7180
areaISO[dc==80&lat==18] <- 8180
areaISO[dc==90&lat==18] <- 9180
areaISO[dc==100&lat==18] <- 10180
areaISO[dc==110&lat==18] <- 11180
areaISO[dc==120&lat==18] <- 12180
areaISO[dc==130&lat==18] <- 13180
areaISO[dc==140&lat==18] <- 14180
areaISO[dc==150&lat==18] <- 15180
areaISO[dc==160&lat==18] <- 16180
areaISO[dc==170&lat==18] <- 17180
areaISO[dc==180&lat==18] <- 18180
areaISO[dc==190&lat==18] <- 19180
areaISO[dc==200&lat==18] <- 20180
areaISO[dc==10&lat==18.5] <- 1183
areaISO[dc==20&lat==18.5] <- 2183
areaISO[dc==30&lat==18.5] <- 3183
areaISO[dc==40&lat==18.5] <- 4183
areaISO[dc==50&lat==18.5] <- 5183
areaISO[dc==60&lat==18.5] <- 6183
areaISO[dc==70&lat==18.5] <- 7183
areaISO[dc==80&lat==18.5] <- 8183
areaISO[dc==90&lat==18.5] <- 9183
areaISO[dc==100&lat==18.5] <- 10183
areaISO[dc==110&lat==18.5] <- 11183
areaISO[dc==120&lat==18.5] <- 12183
areaISO[dc==130&lat==18.5] <- 13183
areaISO[dc==140&lat==18.5] <- 14183
areaISO[dc==150&lat==18.5] <- 15183
areaISO[dc==160&lat==18.5] <- 16183
areaISO[dc==170&lat==18.5] <- 17183
areaISO[dc==180&lat==18.5] <- 18183
areaISO[dc==190&lat==18.5] <- 19183
areaISO[dc==200&lat==18.5] <- 20183
dc <- as.numeric(dc)
lat <- as.numeric(lat)
area <- as.numeric(areaISO)
out <- data.frame(dc,lat,area)
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.