Skip to content

Commit

Permalink
Tag 0.0.0.4
Browse files Browse the repository at this point in the history
Works from start to G. First part done
but only for L8.
To run all the code, for ON aoi, takes
4.84 minutes.
  • Loading branch information
midraed committed Aug 20, 2015
1 parent 4b08604 commit 1caf84f
Show file tree
Hide file tree
Showing 5 changed files with 34 additions and 8 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Package: water
Title: Actual Evapotranspiration with Energy Balance models
Version: 0.0.0.3
Version: 0.0.0.4
Date: 2015-08-17
Authors@R: c(person("Guillermo Federico", "Olmedo", role = c("aut", "cre"), email = "[email protected]"))
Author: Guillermo Federico Olmedo [aut, cre]
Expand Down
10 changes: 10 additions & 0 deletions NAMESPACE
Original file line number Diff line number Diff line change
@@ -1,4 +1,14 @@
# Generated by roxygen2 (4.1.1): do not edit by hand

export(create.aoi)
export(load_L8data)
export(sensible.heat.flux)
exportClasses(RasterStack)
exportClasses(class)
exportClasses(object)
exportClasses(of)
importFrom(grDevices,rgb2hsv)
importFrom(graphics,par)
importFrom(graphics,plot)
importFrom(graphics,rect)
importFrom(graphics,text)
2 changes: 1 addition & 1 deletion R/L8MfR_functions.R
Original file line number Diff line number Diff line change
Expand Up @@ -271,7 +271,7 @@ outgoing.lw.radiation <- function(path=getwd(), LAI, aoi){
Ts <- surface.temperature(path=path, aoi=aoi)
surf.emissivity <- 0.95 + 0.01 * LAI ## And when LAI 3 or more = 0.98
Rl.out <- surf.emissivity * 5.67e-8 * Ts^4
Rl.out <- save.load.clean(imagestack = Rs.out, file = "Rs.out.tif", overwrite=TRUE)
Rl.out <- save.load.clean(imagestack = Rl.out, file = "Rs.out.tif", overwrite=TRUE)
return(Rl.out)
}

Expand Down
26 changes: 21 additions & 5 deletions man/create.aoi.Rd
Original file line number Diff line number Diff line change
Expand Up @@ -2,19 +2,35 @@
% Please edit documentation in R/L8MfR_functions.R
\name{create.aoi}
\alias{create.aoi}
\title{Create aoi from topleft and bottomright coordinates}
\title{Create aoi polygon from topleft and bottomright coordinates}
\usage{
create.aoi(topleft = c(x, y), bottomright = c(x, y))
}
\arguments{
\item{topleft}{a vector with topleft coordinates}
\item{topleft}{a vector with topleft x,y coordinates}

\item{bottomright}{a vector with bottomright coordinates}
\item{bottomright}{a vector with bottomright x,y coordinates}
}
\value{
object of class SpatialPolygons-class
object of class SpatialPolygons
}
\description{
Create aoi from topleft and bottomright coordinates
Create aoi polygon from topleft and bottomright coordinates
}
\examples{
tl <- c(493300, -3592700)
br <- c(557200, -3700000)
aoi <- create.aoi(topleft = tl, bottomright=br)
plot(aoi)
}
\author{
Guillermo F Olmedo

Guillermo F Olmedo, \email{guillermo.olmedo@gmail.com}
}
\seealso{
\code{\link{brocolors}}
}
\keyword{...}
\keyword{hplot}

2 changes: 1 addition & 1 deletion man/sensible.heat.flux.Rd
Original file line number Diff line number Diff line change
Expand Up @@ -20,6 +20,6 @@ Returns sensible heat flux
Calculates sensible heat flux for METRIC Model
}
\references{
[1] Allen et al. METRIC Model
R. G. Allen, M. Tasumi, and R. Trezza, "Satellite-based energy balance for mapping evapotranspiration with internalized calibration (METRIC) - Model" Journal of Irrigation and Drainage Engineering, vol. 133, p. 380, 2007
}

0 comments on commit 1caf84f

Please sign in to comment.