mbjoseph

# Multi-species dynamic occupancy model with R and JAGS
# Written by Max Joseph
# maxwell.b.joseph@colorado.edu
# see http://www.colorado.edu/eeb/gradstudents/joseph/community_occ.html
# for details

# convenience functions
logit <- function(x) {
  log(x/(1 - x))
}

mbjoseph

---
title: "Coloring lidar point clouds with RGB imagery in R"
author: "Max Joseph"
date: "June 30, 2016"
output:
  html_document:
    keep_md: true
---

```{r setup, echo = FALSE}

mbjoseph

---
title: "Your title here"
subtitle: a clever subtitle
author: "Your name"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
  beamer_presentation:
    latex_engine: xelatex
    fonttheme: "structurebold"
header-includes: 

mbjoseph

data {
  int<lower=1> n;      
  vector[n] x;
  vector[n] y;
}

parameters {
  real alpha;
  vector[2] beta;
  real<lower=0> sigma;

mbjoseph

# Importing data from USDA into large data file ---------------------------
library(stringr)
library(dplyr)

path_to_data <- "~/Desktop/ams_cattle_data/"
data_files <- list.files(path = path_to_data, pattern = "cattle", 
                         full.names = TRUE)

# Define helper functions -------------------------------------------------

mbjoseph

mbjoseph

# Script to evaluate small sample behavior of Weibull parameter MLEs --------
library(fitdistrplus)
library(dplyr)
library(tidyr)
library(gridExtra)
library(parallel)
library(ggplot2)
library(viridis)

mbjoseph

library(parallel)

# Create matrix to store result -------------------------------------------
M <- 4
N <- 6
A <- matrix(0, nrow = M, ncol = N)

list <- list(3, 4, 6)

# Serial version ----------------------------------------------------------

mbjoseph

mbjoseph

#===============================================================================
#  Date:    	May 22, 2016
#  Author:  	Lindy Nelson
#  Purpose: 	This script downloads monthly MODIS burn data from 
#  
#
#  FTP Server:  fuoco.geog.umd.edu
#  
#