Displaying 1 result from an estimated 1 matches for "xjjhs".
2012 Nov 19
5
help on matrix column removal based on another matrix results
...now I am trying to finish writing the code (I had asked for
assistance on subtracting arrays)
This is what I what I am running in R:
> source("/home/ie/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 <...