version 0.2.0

DESCRIPTION

@@ -1,19 +1,21 @@
 Package: dogesr
 Type: Package
 Title: Work with the Doges/Dogaresse Dataset
-Version: 0.1.5
+Version: 0.2.0
 Author: Juan Julián Merelo-Guervós
 Maintainer: Juan Julián Merelo-Guervós <jjmerelo@gmail.com>
-Description: Work with data on Venetian doges and dogaresse, and use it for social network analysis, as used in Merelo (2022) <arXiv:2209.07334>.
+Description: Work with data on Venetian doges and dogaresse and the noble families of the Republic of Venice, and use it for social network analysis, as used in Merelo (2022) <arXiv:2209.07334>.
 License: GPL-3
 Encoding: UTF-8
 LazyData: true
 Depends: R (>= 3.5.0)
 Suggests: testthat (>= 3.0.0), devtools, tidyr, networkD3, tibble
 Config/testthat/edition: 3
-Imports: dplyr, ggplot2, knitr, qpdf, rmarkdown
+Imports: Rdpack, dplyr, ggplot2, knitr, igraph, qpdf, rmarkdown
 VignetteBuilder: knitr
+RdMacros: Rdpack
+RoxygenNote: 7.2.1
 NeedsCompilation: no
-Packaged: 2022-11-12 19:41:06 UTC; jmerelo
+Packaged: 2023-02-21 08:44:14 UTC; jmerelo
 Repository: CRAN
-Date/Publication: 2022-11-12 22:40:06 UTC
+Date/Publication: 2023-02-21 09:10:02 UTC

MD5

@@ -1,25 +1,34 @@
-a86a971ce1ca4246045501869ec69c21 *DESCRIPTION
-e06960fc2dbac3e7b4f091a8aa3babba *NAMESPACE
-9ea82a791d2e457139a0a1d438a4e958 *NEWS.md
+09c76369df60c053a6b7a34fef5e6ea4 *DESCRIPTION
+c983aa75df1f15c8a7a830fe096c224e *NAMESPACE
+4d210d3dfd917612537f3adaedf9e7ee *NEWS.md
 5ca494860f345762e5ca20ebc046b926 *R/doges.R
 f36ed16094b6087ce0479669daab0694 *R/doges.years.R
 caa74c35eb1f53d4fd4fd235b8b02b30 *R/families.R
-3d5e2f0609dabd73914088ff5971778d *README.md
-06a1e0a22e8b93cb48698eb4a6238e93 *build/vignette.rds
+0206a912449d28e39501eb1d77974c4d *R/marriage.graph.R
+c2dbeb1f0a8a69cc60564b35b2a2d02c *README.md
+5dedc14606aa4e8f14e2ee3bbfb64ae2 *build/partial.rdb
+bd1ee56536dd7dec8078b5048c9edea9 *build/vignette.rds
 67b3cfeb314105f9cac8d3676e2e06ae *data/doges.rda
 67937fef1a08fe9eeb3a1580facdba59 *data/families.rda
+10aa16960c1b73d31f5227da9730ba02 *inst/REFERENCES.bib
 350f5d9a9e0a5eb5a30348ae7696ae27 *inst/doc/doges-family-types.R
-1d076da2f68379db44a6a13b4ec5ce0b *inst/doc/doges-family-types.Rmd
-a613491b748673c24dfd040ebdf2b84f *inst/doc/doges-family-types.html
+bc6d9fb7710e50f258fe426e01a9cd67 *inst/doc/doges-family-types.Rmd
+149eac7af8f8a7808cfa732db84fb126 *inst/doc/doges-family-types.html
+e04ec7a39c864f45c1912fd193b0f16a *inst/doc/doges-social-network.R
+6814fabd29b861e5330444dd52ed85d0 *inst/doc/doges-social-network.Rmd
+a85bd62bfd853c29092faca35ba658bb *inst/doc/doges-social-network.html
 61862bef8c7d863295e3e6c0624aacd5 *inst/doc/doges-terms.R
 9e70d0db982fe1ed4ee311fd75e0ea0e *inst/doc/doges-terms.Rmd
-b2205478f6fff203c1dca292f017a802 *inst/doc/doges-terms.html
-63be3d54e4e4d1fa7e3085c2b498450e *inst/doges.bib
+79d567c01df02d0b83961df3632019d7 *inst/doc/doges-terms.html
+319729ac9e53ca644341d2e0644e40cf *inst/doges.bib
 0e184505f55c8dc69ddc12ca4f08c665 *man/doges.Rd
-4c56996ed3339da8838989af04b14a44 *man/doges.years.Rd
+eb1370e88a84f107ae159e449e235c6b *man/doges.years.Rd
 679c47efb6855c10052126a93203c752 *man/families.Rd
+5f1068419878cbb4b2e0692c89b37ece *man/marriage.graph.Rd
 1d971f3ebe61e9a030d862e2a0eb2c63 *tests/testthat.R
 452c839858b824eeb76eadb1547abd01 *tests/testthat/test-dogesdata.R
 1c7c606abf4483566e42485c77687f41 *tests/testthat/test-dogesyearsdata.R
-1d076da2f68379db44a6a13b4ec5ce0b *vignettes/doges-family-types.Rmd
+a858fa0b763bc9da841c99e54aba72b2 *tests/testthat/test-marriagegraph.R
+bc6d9fb7710e50f258fe426e01a9cd67 *vignettes/doges-family-types.Rmd
+6814fabd29b861e5330444dd52ed85d0 *vignettes/doges-social-network.Rmd
 9e70d0db982fe1ed4ee311fd75e0ea0e *vignettes/doges-terms.Rmd

NAMESPACE

@@ -4,3 +4,5 @@ import(knitr)
 import(qpdf)
 import(rmarkdown)
 import(ggplot2)
+importFrom(Rdpack,reprompt)
+importFrom(igraph,graph.data.frame)

NEWS.md

@@ -1,3 +1,19 @@
+# dogesr 0.2.0
+
+Fixes:
+* Improves documentation.
+
+Changes:
+* Adds `marriage.graph` with extracts an `igraph` usable data structure from the marriage data
+
+# dogesr 0.1.6
+
+Fixes:
+* Improves documentation, fixing some issues with inserting references.
+
+Changes:
+* Mainly for my own use, creates a `Makefile` with common tasks
+
 # dogesr 0.1.5
 
 Changes:

R/marriage.graph.R

@@ -0,0 +1,19 @@
+globalVariables(c("data.doges"))
+library(igraph)
+
+#' Convert doges data into a social graph
+#'
+#' @return An graph with noble families as nodes, edges representing marriages of doges or parents
+#' @export
+#'
+#
+
+marriage.graph <- function() {
+  doges.marriages.df <- data.frame(data.doges$Family.doge,data.doges$Family.dogaressa)
+  doges.marriages.df <- doges.marriages.df[ (doges.marriages.df$data.doges.Family.doge != '' ) & (doges.marriages.df$data.doges.Family.dogaressa != ''),]
+  doges.mothers.df <- data.frame(data.doges$Family.doge,data.doges$Family.mother)
+  doges.mothers.df <- doges.mothers.df[ (doges.mothers.df$data.doges.Family.doge != '' ) & (doges.mothers.df$data.doges.Family.mother != ''),]
+  all.links <- data.frame(doge.or.father = c(doges.marriages.df$data.doges.Family.doge,doges.mothers.df$data.doges.Family.doge),
+                          dogaressa.or.mother = c(doges.marriages.df$data.doges.Family.dogaressa,doges.mothers.df$data.doges.Family.mother))
+  return(graph.data.frame(all.links,directed=F))
+}

README.md

@@ -2,16 +2,18 @@
   [![Test package](https://github.com/JJ/dogesr/actions/workflows/R-stuff.yml/badge.svg)](https://github.com/JJ/dogesr/actions/workflows/R-stuff.yml)
     [![CRAN status](https://www.r-pkg.org/badges/version/dogesr)](https://CRAN.R-project.org/package=dogesr)
   <!-- badges: end -->
-  
+
 # dogesR
 
 > **Hacktoberfest**: check the [help wanted](https://github.com/JJ/dogesr/labels/help%20wanted) issues
 
-Module (with data) to work with the dogi and dogaresse of the Venetian republic. Main intention is to analyze social networks resulting from marriages and other interactions.
+Module (with data) to work with the dogi and dogaresse of the Venetian
+republic. Main intention is to analyze social networks resulting from marriages
+and other interactions.
 
 ## Install
 
-Install released versions from CRAN as usual, or development version from here 
+Install released versions from CRAN as usual, or development version from here
 
 ```R
 library(devtools)
@@ -43,3 +45,25 @@ This package includes a couple of vignettes. Once installed, write `vignette("do
 
 * `vignette("doges-family-types")` for how to use the family types data set
 * `vignette("doges-terms")` to analyze the amount of time the doges lived/ruled using data provided in this package.
+* `vignette("doges-social-network")` to get the marriage social network of doges and parents, and make some initial exploration.
+
+## Work with data
+
+Data in its original format is stored in the [`data-raw`](https://github.com/JJ/dogesr/tree/main/data-raw)
+directory. If you change that data anyhow, type `make` to rebuild the
+R data files (contained in the [`data`](data/) ) directory.
+
+Any further change (columns and some such) will also need modification
+of the documentation at the [`man`](man/) directory.
+
+## Papers
+
+Please check the [`report`](https://github.com/JJ/dogesr/tree/main/reports)
+subdirectory for published papers that use this library, and their sources,
+which is released under a free license.
+
+## LICENSE
+
+The contents of this repository are (c) JJ Merelo, 2022, 2023, and are released
+under the GPL 3 license. Please check the
+[`LICENSE`](https://github.com/JJ/dogesr/blob/main/LICENSE) for details.

inst/REFERENCES.bib

@@ -0,0 +1,11 @@
+@TechReport{dogesr,
+  doi = {10.48550/ARXIV.2209.07334},
+  note = {\url{https://arxiv.org/abs/2209.07334}},
+  author = {Merelo-Guervós, J. J.},
+  keywords = {Social and Information Networks (cs.SI), Computers and Society (cs.CY), FOS: Computer and information sciences, FOS: Computer and information sciences},
+  title = {What is a good doge? {A}nalyzing the patrician social network of the {Republic of Venice}},
+  publisher = {arXiv},
+  year = {2022},
+  institution= {University of Granada},
+  copyright = {Creative Commons Attribution Share Alike 4.0 International}
+}

inst/doc/doges-family-types.Rmd

@@ -103,7 +103,7 @@ sankeyNetwork(Links = links2, Nodes = nodes2,
                      Value = "Freq", NodeID = "name")
 ```
 
-What we see here is the popularity of *apostoliche* dogaresse, and of *ducali* doges. But also how common marrying *up* was. *Apostolochie* families couldn't marry *up*, since they were in the first post-*Serrata* batch, so they married with other similar families as well as *evangeliche*. These, despite being only 4 families, were quite popular in terms of providing wifes for other doges. 
+What we see here is the popularity of *apostoliche* dogaresse, and of *ducali* doges. But also how common marrying *up* was. *Apostolochie* families couldn't marry *up*, since they were in the first post-*Serrata* batch, so they married with other similar families as well as *evangeliche*. These, despite being only four families, were quite popular in terms of providing wives for other doges.
 
 *Ducali* families, being newer to the noble families pool, married preferably *up*: *apostoliche*, *vecchie* and *evangeliche*, as well as their own class. Only a relative minority married other *nuove* families. *Nuove* families, however, did not manage to marry into any *apostoliche* family; while the few *nuovissime* and *soldo* (paid positions) also married up, to *apostoliche* and *ducali* families, respectively.