Janesh Devkota janeshdev

## index.html
<!DOCTYPE html>
<meta charset="utf-8">
<style>

body {
  font: 10px sans-serif;
}

.axis path,
.axis line {

## county-epsg.csv

          
            COUNTYFIPS
            NAME
            STATEPLANEFIPS
            EPSG

            
              16079
              Shoshone County
              1103
              26970

            
              16073
              Owyhee County
              1103
              26970

            
              16071
              Oneida County
              1101
              26968

            
              16077
              Power County
              1101
              26968

            
              16075
              Payette County
              1103
              26970

            
              06115
              Yuba County
              0402
              26942

            
              06111
              Ventura County
              0405
              26945

            
              06113
              Yolo County
              0402
              26942

            
              31177
              Washington County
              2600
              32104

## read_multiple_files.R
# Import files under folder name fawn
# It is very important to include the option (full.names=TRUE). It it is not included
# then you will get the error something like
# "Error in file(file, "rt") : cannot open the connection In addition: Warning message:
#In file(file, "rt") : cannot open file 'FAWN_2002.csv': No such file or directory

mydata=ldply(list.files(path="data/fawn/",pattern="csv",full.names=TRUE),function(filename) {
    dum=read.csv(filename)
    dum$filename=filename
    return(dum)

## velxy_velcomponent.R
# A function to convert velocity xy EFDC file to velocity component file
velxy_convert <- function(file){
    process_pp_template <- function(path) {
        # Read data using quicktoolsr function
        dat <- readts_EE(path)
        # Reshape the data from long format to wide format
        dat_mod <- dcast(dat, time ~ id)
        return(dat_mod)
    }
    # Read the file

## 0_reuse_code.js
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

## Lanczosfilter.m
function [y,coef,window,Cx,Ff] = lanczosfilter(x,varargin)
%LANCZOSFILTER   Filters a time series via Lanczos method (cosine filter).
%   [Y,coef,window,Cx,Ff] = LANCZOSFILTER(X,dT,Cf,M,pass) Filters the time
%   series via the Lanczos filter in the frequency space (FFT), where
%
%   INPUTS:
%      X    - Time series
%      dT   - Sampling interval       (default: 1)
%      Cf   - Cut-off frequency       (default: half Nyquist)
%      M    - Number of coefficients  (default: 100)

## multiplot.R
# Multiple plot function
#
# ggplot objects can be passed in ..., or to plotlist (as a list of ggplot objects)
# - cols:   Number of columns in layout
# - layout: A matrix specifying the layout. If present, 'cols' is ignored.
#
# If the layout is something like matrix(c(1,2,3,3), nrow=2, byrow=TRUE),
# then plot 1 will go in the upper left, 2 will go in the upper right, and
# 3 will go all the way across the bottom.
#

## displayonebyone.tex
\documentclass{beamer}
\usetheme{CambridgeUS}
\setbeamertemplate{items}[ball]
\usefonttheme[onlylarge]{structurebold}
\usecolortheme[RGB={205,173,0}]{structure}
\setbeamerfont*{frametitle}{size=\normalsize,series=\bfseries}
\useoutertheme{infolines}

%Pacakges
\usepackage{xcolor}

## juliantodate.R
 ## Let us assign a sample date as first with hours, minutes and seconds.
 ## It is also recommended to use the time zone

> date <- as.POSIXct("2013-06-14 16:34:26",tz="GMT")

## Convert to Julian date using the following function
> jddd <- julian(date, origin = as.POSIXct("2013-01-01 00:00:00",tz="GMT"))
> jddd
Time difference of 164.6906 days


## insetgraphs.R

library(ggplot2)
library(grid)

# A viewport taking up a fraction of the plot area
vp <- viewport(width = 0.4, height = 0.4, x = 0.1, y = 0.9,just=c("left","top"))

b_plot <- ggplot(cars,aes(speed,dist))+geom_line()+xlim(10,15)
b_plot
	<!DOCTYPE html>
	<meta charset="utf-8">
	<style>

	body {
	font: 10px sans-serif;
	}

	.axis path,
	.axis line {
COUNTYFIPS	NAME	STATEPLANEFIPS	EPSG
16079	Shoshone County	1103	26970
16073	Owyhee County	1103	26970
16071	Oneida County	1101	26968
16077	Power County	1101	26968
16075	Payette County	1103	26970
06115	Yuba County	0402	26942
06111	Ventura County	0405	26945
06113	Yolo County	0402	26942
31177	Washington County	2600	32104
	# Import files under folder name fawn
	# It is very important to include the option (full.names=TRUE). It it is not included
	# then you will get the error something like
	# "Error in file(file, "rt") : cannot open the connection In addition: Warning message:
	#In file(file, "rt") : cannot open file 'FAWN_2002.csv': No such file or directory

	mydata=ldply(list.files(path="data/fawn/",pattern="csv",full.names=TRUE),function(filename) {
	dum=read.csv(filename)
	dum$filename=filename
	return(dum)
	# A function to convert velocity xy EFDC file to velocity component file
	velxy_convert <- function(file){
	process_pp_template <- function(path) {
	# Read data using quicktoolsr function
	dat <- readts_EE(path)
	# Reshape the data from long format to wide format
	dat_mod <- dcast(dat, time ~ id)
	return(dat_mod)
	}
	# Read the file
	// Use Gists to store code you would like to remember later on
	console.log(window); // log the "window" object to the console
	function [y,coef,window,Cx,Ff] = lanczosfilter(x,varargin)
	%LANCZOSFILTER Filters a time series via Lanczos method (cosine filter).
	% [Y,coef,window,Cx,Ff] = LANCZOSFILTER(X,dT,Cf,M,pass) Filters the time
	% series via the Lanczos filter in the frequency space (FFT), where
	%
	% INPUTS:
	% X - Time series
	% dT - Sampling interval (default: 1)
	% Cf - Cut-off frequency (default: half Nyquist)
	% M - Number of coefficients (default: 100)
	# Multiple plot function
	#
	# ggplot objects can be passed in ..., or to plotlist (as a list of ggplot objects)
	# - cols: Number of columns in layout
	# - layout: A matrix specifying the layout. If present, 'cols' is ignored.
	#
	# If the layout is something like matrix(c(1,2,3,3), nrow=2, byrow=TRUE),
	# then plot 1 will go in the upper left, 2 will go in the upper right, and
	# 3 will go all the way across the bottom.
	#
	\documentclass{beamer}
	\usetheme{CambridgeUS}
	\setbeamertemplate{items}[ball]
	\usefonttheme[onlylarge]{structurebold}
	\usecolortheme[RGB={205,173,0}]{structure}
	\setbeamerfont*{frametitle}{size=\normalsize,series=\bfseries}
	\useoutertheme{infolines}

	%Pacakges
	\usepackage{xcolor}
	## Let us assign a sample date as first with hours, minutes and seconds.
	## It is also recommended to use the time zone

	> date <- as.POSIXct("2013-06-14 16:34:26",tz="GMT")

	## Convert to Julian date using the following function
	> jddd <- julian(date, origin = as.POSIXct("2013-01-01 00:00:00",tz="GMT"))
	> jddd
	Time difference of 164.6906 days

	library(ggplot2)
	library(grid)

	# A viewport taking up a fraction of the plot area
	vp <- viewport(width = 0.4, height = 0.4, x = 0.1, y = 0.9,just=c("left","top"))

	b_plot <- ggplot(cars,aes(speed,dist))+geom_line()+xlim(10,15)
	b_plot