kransom14
patchdynamics
/ USA_Contiguous_Albers_Equal_Area_Conic_USGS_version.prj
Created
August 26, 2015 21:54
Proj4 string for USA_Contiguous_Albers_Equal_Area_Conic_USGS_version, copied from http://geeohspatial.blogspot.com/2013/03/custom-srss-in-postgis-and-qgis.html
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| +proj=aea +lat_1=29.5 +lat_2=45.5 +lat_0=23 +lon_0=-96 +x_0=0 +y_0=0 +ellps=GRS80 +datum=NAD83 +units=m +no_defs |
markheckmann
/ server.R
Created
November 19, 2013 23:23
client/server interaction with shiny - part 1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| shinyServer( function(input, output, session) { | |
| output$results <- renderPrint({ | |
| input$mydata | |
| }) | |
| }) |
mrdwab
/ stratified.R
Last active
April 27, 2024 19:57
Stratified random sampling from a `data.frame` in R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| stratified <- function(df, group, size, select = NULL, | |
| replace = FALSE, bothSets = FALSE) { | |
| if (is.null(select)) { | |
| df <- df | |
| } else { | |
| if (is.null(names(select))) stop("'select' must be a named list") | |
| if (!all(names(select) %in% names(df))) | |
| stop("Please verify your 'select' argument") | |
| temp <- sapply(names(select), | |
| function(x) df[[x]] %in% select[[x]]) |