hinkelman

{
"type": "FeatureCollection",
"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
                                                                                
"features": [
{ "type": "Feature", "properties": { "OBJECTID": 1, "length_ft": 18100, "channel_nu": 1, "SHAPE_Leng": 5608.700802909999766, "up_node": 1, "down_node": 2, "Enabled": 1, "copylength": 5609, "cfslen": 5608.700802909999766, "len": 5.60870080291, "length_mil": 3.48507813464, "x": 652501.4323, "y": 4175026.7346, "km": 5.60870080291 }, "geometry": { "type": "LineString", "coordinates": [ [ -121.261057484636169, 37.68151123762209 ], [ -121.260685407794867, 37.681694369139052 ], [ -121.259601724613617, 37.682157898861817 ], [ -121.258374209915488, 37.68263600359051 ], [ -121.257599684438858, 37.683251570442827 ], [ -121.2571853062869, 37.683826477333028 ], [ -121.25668453071853, 37.684291030838757 ], [ -121.256376837149659, 37.684913480368841 ], [ -121.256303205296916, 37.685395473294669 ], [ -121.25634827630

hinkelman

library(shiny)

grp <- c(rep("A", 900), rep("B", 1200))

# Define server logic for slider examples
shinyServer(function(input, output) {
  
  sub <- reactive({
    grp[grp %in% input$group]
  })

hinkelman

n = 100                             # No. of samples per treatment
mean.A = 10                         # Mean count for treatment A
mean.B = 5                          # Mean count for treatment B
nd = data.frame(Trt = c("A", "B"))  # Used in predict( ) function

# Generate example data based on Poisson distribution (mean = variance)
data.pois = data.frame(Trt = c(rep("A", n), rep("B", n)), 
                       Response = c(rpois(n, mean.A), rpois(n, mean.B))
                       )