Displaying 3 results from an estimated 3 matches for "1000samples_vsim".
2012 Nov 19
6
loop to subtract arrays / error
Hi everyone, I am having trouble with creating a loop to subtract arrays.
In R, this is what I have done:
> Vobsr <- read.csv("Observed_Flow.csv", header = TRUE, sep =",") # see data
> below
> Vsimr <- read.csv("1000Samples_Vsim.csv", header = TRUE, sep =",") # see
> data below
> Vobsr <- as.matrix(Vobsr[,-1]) # remove column 1 from analysis thus Vobsr
> is 101x1 double matrix (column 1 is date information)
> Vsimr <- as.matrix(Vsimr[,-1]) # remove column 1 from analysis thus Vsimr
> is...
2012 Nov 19
5
help on matrix column removal based on another matrix results
.../Documents/TTU/GA_Research/GLUE/R-Project/R_GLUE_Example/NSEr.R")
NSEr <- function (obs, sim)
{
{jjh <- (as.vector(obs) - sim)^2
Xjjhs <- apply(Xjjh, 2, sum)
Yii <- (obs - mean(obs))^2
Yiis <- apply(Yii, 2, sum)
NSEr <- 1 - (Xjjhs/Yiis)
}
NSEr}
> Vsim <- read.csv("1000Samples_Vsim.csv", header = TRUE, sep =",")
> Vsim <- as.matrix(Vsim[,-1]) # remove column 1 from analysis
> Vobs <- read.csv("Observed_Flow.csv", header = TRUE, sep =",")
> Vobs <- as.matrix(Vobs[,-1]) # remove column 1 from analysis
> NSEr <- NSEr(Vo...
2012 Nov 18
0
subtract multiple columns from single column for Nash Sutcliffe efficiency
Hi everyone, I am having trouble using my own data in the Nash-Sutcliffe
efficiency (NSE) function.
In R, this is what I have done:
Vobsr <- read.csv("Observed_Flow.csv", header = TRUE, sep =",") # see data
below
Vsimr <- read.csv("1000Samples_Vsim.csv", header = TRUE, sep =",") # see
data below
Vobsr <- as.matrix(Vobsr[,-1]) # remove column 1 from analysis thus Vobsr is
101x1 double matrix (column 1 is date information)
Vsimr <- as.matrix(Vsimr[,-1]) # remove column 1 from analysis thus Vsimr is
101x1000 double matrix (...