Marcus W Beck fawda123

## streamstats_watershed.R
library(jsonlite);library(sf);library(sp);library(geojsonio)

watershed = function(state, lon, lat, sf=TRUE){
  p1 = 'https://streamstats.usgs.gov/streamstatsservices/watershed.geojson?rcode='
  p2 = '&xlocation='
  p3 = '&ylocation='
  p4 = '&crs=4326&includeparameters=false&includeflowtypes=false&includefeatures=true&simplify=true'
  query <-  paste0(p1, state, p2, toString(lon), p3, toString(lat), p4)
  mydata <- fromJSON(query, simplifyVector = FALSE, simplifyDataFrame = FALSE)
  poly_geojsonsting <- toJSON(mydata$featurecollection[[2]]$feature, auto_unbox = TRUE)

## pyoos_nerrs_pandas_demo1.ipynb

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              1 star
            
          
                emiliom
                / pyoos_nerrs_pandas_demo1.ipynb
            
            
              Last active
              August 29, 2015 14:01
            
              
                #IOOS #pyoos #NERRS Accessing a NERRS station with Pyoos, via CDMO SOAP web services. Illustrates querying all stations ("features") from a NERRS Reserve site; access to data from a NERRS station (specified by its station code); extraction of station metadata; and conversion of the returned multi-variable time series to a pandas DataFrame, follo…
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## nnet_plot_update.r
plot.nnet<-function(mod.in,nid=T,all.out=T,all.in=T,bias=T,wts.only=F,rel.rsc=5,
                    circle.cex=5,node.labs=T,var.labs=T,x.lab=NULL,y.lab=NULL,
                    line.stag=NULL,struct=NULL,cex.val=1,alpha.val=1,
                    circle.col='lightblue',pos.col='black',neg.col='grey',
                    bord.col='lightblue', max.sp = F,...){

  require(scales)

  #sanity checks
  if('mlp' %in% class(mod.in)) warning('Bias layer not applicable for rsnns object')
	library(jsonlite);library(sf);library(sp);library(geojsonio)

	watershed = function(state, lon, lat, sf=TRUE){
	p1 = 'https://streamstats.usgs.gov/streamstatsservices/watershed.geojson?rcode='
	p2 = '&xlocation='
	p3 = '&ylocation='
	p4 = '&crs=4326&includeparameters=false&includeflowtypes=false&includefeatures=true&simplify=true'
	query <- paste0(p1, state, p2, toString(lon), p3, toString(lat), p4)
	mydata <- fromJSON(query, simplifyVector = FALSE, simplifyDataFrame = FALSE)
	poly_geojsonsting <- toJSON(mydata$featurecollection[[2]]$feature, auto_unbox = TRUE)
	plot.nnet<-function(mod.in,nid=T,all.out=T,all.in=T,bias=T,wts.only=F,rel.rsc=5,
	circle.cex=5,node.labs=T,var.labs=T,x.lab=NULL,y.lab=NULL,
	line.stag=NULL,struct=NULL,cex.val=1,alpha.val=1,
	circle.col='lightblue',pos.col='black',neg.col='grey',
	bord.col='lightblue', max.sp = F,...){

	require(scales)

	#sanity checks
	if('mlp' %in% class(mod.in)) warning('Bias layer not applicable for rsnns object')