From a7b7b3a16f582cc5cfb2007926f587f922a8bfab Mon Sep 17 00:00:00 2001
From: Jari Oksanen <jari.oksanen@oulu.fi>
Date: Fri, 9 Dec 2016 11:47:46 +0200
Subject: [PATCH] add data set on geographical coordinates and sizes of Sipoo
 islands

---
 data/sipoo.map.rda | Bin 0 -> 478 bytes
 data/sipoo.rda     | Bin 830 -> 832 bytes
 man/sipoo.Rd       |  41 ++++++++++++++++++++++++-----------------
 3 files changed, 24 insertions(+), 17 deletions(-)
 create mode 100644 data/sipoo.map.rda

diff --git a/data/sipoo.map.rda b/data/sipoo.map.rda
new file mode 100644
index 0000000000000000000000000000000000000000..adc70fab29cc47c4469d7dfad3bee4505ab09864
GIT binary patch
literal 478
zcmV<40U`b$iwFP!0000016@(iYZFlr{?e?k+n^$?VD+Mi78Dcwap<McRcjk)Y@zL;
zR1}8pqzT#V#`iYyswWSg71aO1i)TRu5yc$Di&k3y1wDBaXR~k9H3RczzVChWJ$80&
zVe@KfvjkuaMMut}w9c3u1vr?HI$@ffD5|un0~Du(NEAmTC&9blCF|gCZ@@nugZG|-
ze+J+$PrzUAgFoJpoCAN_1HW^HD}&#6M87MV6>$HV%<T{TRJ8_mV-{+u3U$+mntudU
zn}WL6hgyCMb?GJ4g>k5vUr^^iK;3->RW3qporOAg8fx|r6dxC_qlw@A@8?Op@bEc_
zzE`l=wfHaw;hnfP2yfcr>G~kNQx?xy{Y8t*wq8D&`dxXL;<?wU&w`iYtutwDr*&kp
zheB$zk>=Q7sVP}l$(mcXaY!?b{u3QNsN}~dvy1f}>9`RE?Tn~Zs?pAW1p5i(a5yrm
z*od_5v2PldaMxQDlgwp;#eiC5TBHvw>ZEfP?qUjuZ(KK>fI^?+j9AhX26>`Np=sqT
z#@A>k_k_ElyK!QX>6fY5i{!qU5x2W0rUv(-14TD%8Z%Tlt09@uf3O{p$(ERrC0{<b
UQrEIyL4T9{2eIyrLni|O0CU9ap8x;=

literal 0
HcmV?d00001

diff --git a/data/sipoo.rda b/data/sipoo.rda
index 007fdc3c0ec33cfa6bdb7a6bb731a14529d828b5..8c42c80a65f6fb2f46118d9c1228fa7ac7bb5e96 100644
GIT binary patch
literal 832
zcmV-G1Hb$qiwFP!000001MOLDZ__Xk4y*{e4+xF_u@CzLXkv5|3~gHXVPCI~*O)qX
zILBrE*Zcy+b;!<(md<I{CJat;lgGZ?ouBhtnyZtWqy3xxD2iT2djtC2quaqt`gsuz
zq9I*h8IfrnMSJfF98q~o<sj;beE8{a@8c@rzDO_la=g^}TG!4~%cgN{OZpbq1N`qa
zt`_<41z%3O&SL;?|MR#)o@)K7+Y4=P(r=oN^>{b1_h5UI-6p+gM|o`O=ZgMsHLlQc
z-W6X>vLesVay~xh=dt>2@zrE^)9a>jg-Ta(wOE%nimUDX4wbg+eLL&x`)?t=SSOrx
zwNA9q?*(6dUGJTAeV(Y-Z_3vi=ar!6y3S+h`7rAEeP~m@);$mRec!H2z&NeM6}r!c
z`hD(v?OImk;lVsUW~a$+Xuh}2*Shb!0rF4pj{$MiaWCR(8uxAY-O&2KZT+gtw$H0=
z_k|U*^8c@{uF;nGYTLf6JU)S}jB5+|3DxVxe00+PxT+s>6{OtI&AVv%G51g9n@dn}
z0#Z0U0?CY>OdP)EIp$Ox9y2Y`n%v=!TG|Yx_1H4YKxv1MGi!i~_b2Y#z5WR<bPDM0
zeO{=$T;q4&&ZV$8@$sDrv}ONabq*jW;QgsQ$x+OG{HUin74ILdN_Fi0Ut5ebA)$g3
zA<H=BSkV_!c>PZ(a<mif@C8?(sd#^h<{1?qA43fkLm3+;u;^cw36^{P@j}jlI#k9J
zUB%2IR<KUf!v8`V;rSabG4a7ny&`r`T=A(zDxP6$m?=dt5{xH{%xCzLx|71U3TD8u
zj3KY$RI6eH0mdwmx{OUGJVTcY#B5RY@Lb=~7($=n5emgL_Zb`K)M%y8_yr10gcbHR
z5<^(WK4YhVIF+Dk(`ShK$6<L29k_<^oW^gWrQ>{fet4#*l?om&Ay@v9y2iCeob%Wu
zz85pdfu3^;BMCDwGr+>cEnvw6&D?wFeH@#NdJ%I+^zalx$#TURC^IXWczp%ak_(zU
zHeZ@>`d>iIHMRS}L_;HogwJ)MVU;k(YYZ+FnEE=zBp64ctK5&NyN9<({1W=LEWZJ;
Kh7>KIA^-q}K(JE)

literal 830
zcmV-E1Ht?siwFP!000001MOMwPTMdL&wyzZP1D5QgAcsGgvJWmm_RKb_<D6r<JGaV
zv)$3R-V;o_g6t*{DM?G4jP0ar^0O~@=im8H+73={jt_1QqA1#lcHYwGF5T|!(8nv%
z9_ec%GOeR%_XB}r(s!hXQAgzCuW);xR}ObYI>DFcrOel=ex6&_&1+NAwY(nTf2(;l
zsDCH;^3rx4Yw-5Jj!WdZ_OG(Py8Tu5RqL^w?;8Fd?XU7%WfyI!j#cAaGX9O`Rd=4Z
z#aERqsq>3mk59#Us(n*@Rry`_x^7-|rLDXg>`QCq)pUK=m8ScBGw-X%Zy=r6C%m+^
zPc*Ra1Ycd<@4dABK2dI8m#-DxS86@ib{*@!A4V;IA6l2MRo{oZer}hg#yl<LRrj2&
z8~3I2wQX5ahezx9l%FcUb?d!pzE=IdTSNZo^RY%AW!#Cps^)#ubGL5$-?o31Wz+Ag
zP0xiTvh??_wyx2J_-fj}tvWt~EX`{J^{H#uiS_8E`*{`r%vF$bLpSfEhd*=Yjr&)i
z;sm7dxDS#UHyU|-%`I9|kB3Z4bjEu8NlTZ3bOAf&7%1)WN#+cYhIrz>KiHq*Os9as
z-<O%Xvl@SdelCT>QONIHpv%YqrY(RRL5QbpVo^*({;0>6G{i@zQXPl**AC-MNGRY$
z$UIIt7VL!-!TvJ}i*Cd{zT^rtX^59-o{@(97;2y#^4Ktei}7WdU^dtfXL1TOpgbPw
zB4!S;fOVQK;?JZJfxq4y6Ccc!8)E;&fR7!L28NwsCYM29FrLh^P~j^YP72=(m;uK;
z23y3bR*M+~7_&s`JT{pK3|-9-v)N*V7y6Fo5QYl(Q7EQ)sMyd_r<0-Lmnbw5w(zf!
z7{W3R6*~jOu>@6GK0VYwkMc|C(02@{G=CE<J?FiPqjNnjH1K#1xeAYzEcUM{2_Bmy
z3}ONn=rR95U%~{;1aRTu7BKIj{{TaX6O+*(V(xkFogpZhZ#V~KCOH>x1~ATrprzyN
z+=aLQ3Sz3MKg=bX85R;g)e8%!gfYQl?^1y&Z$nIi@f`ZbgP4YUbc;kUq2F`;18g;R
Iex4!#07ty1_W%F@

diff --git a/man/sipoo.Rd b/man/sipoo.Rd
index f59e9b64..df482083 100644
--- a/man/sipoo.Rd
+++ b/man/sipoo.Rd
@@ -1,32 +1,39 @@
 \name{sipoo}
 \alias{sipoo}
+\alias{sipoo.map}
 \docType{data}
-\title{ Birds in the Archipelago of Sipoo (Sibbo)}
+\title{ Birds in the Archipelago of Sipoo (Sibbo and Borgå)}
 \description{
 Land birds on islands covered by 
-coniferous forest in the Sipoo archipelago, southern Finland (landbridge/
-oceanic distinction unclear from source). 
+coniferous forest in the Sipoo Archipelago, southern Finland.
 }
-\usage{data(sipoo)}
+\usage{
+  data(sipoo)
+  data(sipoo.map)
+}
+
 \format{
-  A data frame with 18 sites and 50 species (Simberloff & Martin, 1991,
-  Appendix 3). The species are referred by 4+4 letter abbreviation of
-  their Latin names (but using five letters in two species names to make
-  these unique). The example gives the areas of the studies islands in
-  hectares. 
+  The \code{sipoo} data frame contains data of occurrences of 50 land
+  bird species on 18 islands in the Sipoo Archipelago (Simberloff &
+  Martin, 1991, Appendix 3). The species are referred by 4+4 letter
+  abbreviation of their Latin names (but using five letters in two
+  species names to make these unique).
+
+  The \code{sipoo.map} data contains the geographic coordinates of the
+  islands in the ETRS89-TM35FIN coordinate system (EPSG:3067) and the
+  areas of islands in hectares.
 }
 
 \source{
-Simberloff, D. & Martin, J.-L.  (1991). 
-Nestedness of insular avifaunas:
-simple summary statistics masking
-complex species patterns.  \emph{Ornis
-Fennica} 68:178--192. 
+  Simberloff, D. & Martin, J.-L.  (1991).  Nestedness of insular
+  avifaunas: simple summary statistics masking complex species patterns.
+  \emph{Ornis Fennica} 68:178--192.
 }
+
 \examples{
 data(sipoo)
-## Areas of the islands in hectares
-sipoo.area <-  c(1.1, 2.1, 2.2, 3.1, 3.5, 5.8, 6, 6.1, 6.5, 11.4, 13,
-14.5, 16.1 ,17.5, 28.7, 40.5, 104.5, 233) 
+data(sipoo.map)
+plot(N ~ E, data=sipoo.map, asp = 1)
 }
+
 \keyword{datasets}