jwaage

# Libraries
# ------------------------------------------------------------------------------
library("RCurl")
library("bitops")


# Define functions
# ------------------------------------------------------------------------------
getInteractions = function(id,score,limit,species=9606,print=FALSE){

jwaage

adonis_table <- function(phy, d, ...){
	subs <- function(dist, index) as.dist(as.matrix(dist)[index,index])
	contcheck <- function(var){
		suppressWarnings(
		if(all(is.na(as.numeric(var))) | length(unique(var))<10){
			return(var)
		} else {
			return(as.numeric(var))
		}
		)

jwaage

# Season test
# Do a sine function with arbitrary phase shift and plot the results with confidence band.
library(tidyverse)
library(broom)

set.seed(1)
x <- runif(200, 1, 365) %>% round(0)

y <- sin(2*pi*x/365) + rnorm(200, 0, 0.5)
yshift <- sin(2*pi*x/365 - 0.3*pi) + rnorm(200, 0, 0.5)