Leo Lahti antagomir

I hereby claim:

To claim this, I am signing this object:

	library(mia)
	library(dplyr)
	library(tidyr)

	# Get example data
	library(microbiomeDataSets)
	# tse <- LahtiMData()
	x <- tse

	# Agglomerate to Genus level

	library(mia)
	library(dplyr)
	library(tidyr)

	# Get example data
	library(microbiomeDataSets)
	# tse <- LahtiMData()
	x <- tse

	# Agglomerate to Genus level

	# reprints would be nodes; and edges would connect reprints of the same title?
	set.seed(3452)
	n <- 30
	year <- round(runif(n, min = 1600, max = 1800))
	publisher <- sample(1:3, n, replace = TRUE)
	title <- c(rep("Bible", 10), rep("Bible2", n - 10))

	df <- data.frame(title = title, year = year, publisher = publisher)
	df <- df %>% arrange(title, publisher, year)

	#!/usr/bin/env bash

	# Returns a BibTeX (www.bibtex.org) entry for one or more given DOIs
	# (https://www.doi.org/).
	#
	# Call it like this:
	#
	# $ doi2bibtex.sh 10.1093/bioinformatics/btu533
	#
	# Can also be used for several DOIs at once:

	<!doctype HTML>
	<meta charset = 'utf-8'>
	<html>
	<head>

	<link rel='stylesheet' href='//cdn.oesmith.co.uk/morris-0.4.2.min.css'>



	<script src='//ajax.googleapis.com/ajax/libs/jquery/1.9.0/jquery.min.js' type='text/javascript'></script>