emraher

library(raster)
library(rgdal)
library('rgbif')
library('sp')
library('maptools')
library('rgeos')
library('scales')
# library(rts) #for raster time series http://r-gis.net/?q=rts
library(ggplot2)
library(reshape) 

emraher

##Following libraries need to be installed for running the program
##by using the install.packages(c(“raster”,”rgdal”,”ncdf”,”gdata”))
library(raster)
library(ncdf)
library(rgdal)
library(gdata)
#Using setwd to direct the unzipped .bil files like
setwd(“D:/Weather/PRISM_ppt_stable_4kmD1_20130101_20131231_bil”)
#******************************************************************#
#***function for merge daily data *********************************#

emraher

notify <- function(msg="Operation complete") {
  
  in.osx <- (Sys.info()['sysname'] == "Darwin")
  in.rstudio <- (Sys.getenv("RSTUDIO") == "1")
  in.rgui <- (Sys.getenv("R_GUI_APP_REVISION") != "")
  dir.notifier <- system("which terminal-notifier", intern = TRUE)
  
  if (in.rstudio) { # hack to see if running in RStudio
    title <- "RStudio"
    sender <- activate <- "org.rstudio.RStudio"

emraher

growl.notify <- function(msg = "Operation complete") {
  
  in.osx <- (Sys.info()['sysname'] == "Darwin")
  in.rstudio <- (Sys.getenv("RSTUDIO") == "1")
  in.rgui <- (Sys.getenv("R_GUI_APP_REVISION") != "")
  dir.notifier <- system("which growlnotify", intern = TRUE)
  
  if (in.rstudio) { # hack to see if running in RStudio
    title <- "RStudio"
  }

emraher

# -*- coding: utf-8 -*-

'''
This Python script is oriented towards oil, gas, and fracking well
information download, extract, and output at the state-level within
the United States of America.  Not all states are present as not all
states either allow fracking or have any sites available for download.

This Python script is dependent upon another Python script entitled
Src2Tgt.py, which is also available as a Gist under the same name.

emraher

// -----------------------------------------------------------------------------------------------------------------------
// // Surfingkeys: https://github.com/brookhong/Surfingkeys#properties-list
// // Dracula Theme: https://github.com/dracula/dracula-theme#color-palette
// -----------------------------------------------------------------------------------------------------------------------
// Map Keys
// -----------------------------------------------------------------------------------------------------------------------
// Change default search engine
//settings.defaultSearchEngine = "w";
// -----------------------------------------------------------------------------------------------------------------------
// Change hints styles

emraher

/*==========================================================*/
/*              qutebrowser-ish Vivaldi                      */
/*==========================================================*/
.mac #header {
    min-height: 16px !important;
}
.mac #tabs-container.top {
    padding-left: 0 !important;
    padding-right: 0 !important;
}

emraher

set.seed(pi)
n <- 1000 #sample size
p <- 1000 # number of variables
s <- 30 # nubmer of non-zero variables

X <- matrix(rnorm(n * p), ncol = p)
colnames(X) <- paste("X", 1:p, sep = "")

beta <- c(rep(3, s), rep(0, p - s))

emraher

# SEE
# https://myrgiovanni.blogspot.com.tr/2016/07/computing-mode-in-r.html
# https://stackoverflow.com/a/25635740
# https://stackoverflow.com/a/22123729


Mode <- function(x, na.rm = FALSE, mult = TRUE) {
  if(na.rm) {
    x = x[!is.na(x)]
  }

emraher

PersonalData: Ki{\c s}isel Bilgiler
Name: Ad
FamilyName: Soyad
GivenName: Ad
Signature: {\.I}mza
RegistrationNumber: {\"O}{\u g}renci Numaras{\i}
Checked: Kontrol Edilmi{\c s}
NoChanges: Bu b{\"o}l{\"u}mde de{\u g}i{\c s}iklik \textbf{yap{\i}lmamal{\i}d{\i}r}!
DocumentType: T{\"u}r
DocumentID: S{\i}nav Numaras{\i}