search for: iruckae

...,x[,-1],type="n",lty=1,sub=i,main="Seasonal Flux Sum", xlab="Calendar Year Timesteps",ylab="Total Flux (kg/season)"); matlines(x[,1],x[,-1],type="l",lty=1:2,lwd=1,col=1:2)}) dev.off() A.K. ________________________________ From: Irucka Embry <iruckaE at mail2world.com> To: smartpink111 at yahoo.com Sent: Friday, March 29, 2013 5:41 PM Subject: Re: [R] multiple plots and looping assistance requested (single plot) Hi Arun, I'm sorry about the data not being read correctly. OK, thank you so much! Irucka <-----Original Message---...

Hi, how are you? My name is Irucka Embry and I would like assistance on properly subsetting some data obtained from a .csv file. > file <-"info_n.csv" > INFO<- getMetaDataFromFile(file) INFO is 92 observations of 14 variables > INFO<- subset(INFO,site.no==02169570) INFO is 0 observations of 14 variables When the site.no is used I should have 1 observation of 14

Hi, how are you? I have 1000 total columns with 100 rows and I have shown 4 columns of 100 rows below. I want the zeros to be read in as numerical or integer values rather than a character. Right now I have a 100x0 character matrix rather than a 100x1000 double matrix. What do I need to do to read in a .csv spreadsheet with counting the zeros as a numerical or integer value? Thank-you. Irucka

Hi, how are you? I have the following truncated R code: fileobs <- "MaxFloodDepth_Observed.txt" file1 <- "MaxFloodDepth_1.txt" file2 <- "MaxFloodDepth_2.txt" ... file54 <- "MaxFloodDepth_54.txt" observeddepth = as.matrix(read.ascii.grid(fileobs)$data) observeddepth[observeddepth!=0]<-1 modeldepth1 =

...xmaster versus EGRET/WRTDS \n Seasonal FLux Sum",sub=i,xlab="Calendar Year Timesteps",ylab="Total Flux (kg/season)"); lines(temper[[i]][1]); lines(temper[[i]][2])}) dev.off() which may not be the one you wanted. A.K. ________________________________ From: Irucka Embry <iruckaE at mail2world.com> To: smartpink111 at yahoo.com Sent: Wednesday, March 6, 2013 9:32 PM Subject: Re: [R] multiple plots and looping assistance requested (revised codes) Hi Arun, I was only able to plot by changing from names(temper) to seq_along(temper) and by providing a numeric column entry...

Hi, I have the following function: getDataFromDVFileCustom <- function (file, hasHeader = TRUE, separator = "\t") { DVdatatmp <- as.matrix(read.table(file, sep = "\t", fill = TRUE, comment.char = "#", as.is = TRUE, stringsAsFactors = FALSE, na.strings = "NA")) DVdatatmper <- as.matrix(DVdatatmp[ , c("datetime",

Hi, how are you? I am trying to replicate the binary data f(2) function in the attached document by starting with the simple example found below: observed <- matrix(c(0, 1, 0, 0, 1, 1, 1, 0, 0),3,3,byrow=TRUE) data <- matrix(c(1, 1, 0, 0, 1, 0, 0, 0, 1),3,3,byrow=TRUE) f2 = sum(probability of the matrix element where the matrix element is present in both the observed and the

Hi all, I have the following in my apt sources.list file: deb https:// /bin/linux/ubuntu trusty/ I issued the following command to obtain the public key: sudo apt-key adv --keyserver keyserver.ubuntu.com --recv-keys E084DAB9 I am receiving the following error message though after updating the Synaptic package manager: Failed to fetch

Hi all, I have a set of 54 files that I need to convert from ASCII grid format to .shp files to .bnd files for BayesX. I have the following R code to operate on those files: library(maptools) library(Grid2Polygons) library(BayesX) library(BayesXsrc) library(R2BayesX) readfunct <- function(x) { u <- readAsciiGrid(x) } modfilesmore <- paste0("MaxFloodDepth_", 1:54,

Hi everyone, 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,

Hi all, I have a couple of questions. 1) Is there a more effective way to remove the following pattern (patternrm) from the station_id_Timeseries (see below) patternrm <- c(_2000_4_OND, _2001_1_JFM, _2001_2_AMJ, _2001_3_JAS, _2001_4_OND, _2002_1_JFM, _2002_2_AMJ, _2002_3_JAS, _2002_4_OND, _2003_1_JFM, _2003_2_AMJ, _2003_3_JAS, _2003_4_OND, _2004_1_JFM, _2004_2_AMJ, _2004_3_JAS, _2000_4_OND) #

...Sum$season))), function(x)? Sum=sum(x[,2])) ?# ?? 2000????? 2001????? 2002????? 2003????? 2004 #18055.442 20063.238 21481.157 20138.238? 3141.716 In this dataset, some year doesn't have all the Seasons, so the value is less. I hope it hleps. A.K. ----- Original Message ----- From: "iruckaE at mail2world.com" <iruckaE at mail2world.com> To: smartpink111 at yahoo.com Cc: Sent: Wednesday, February 13, 2013 1:27 PM Subject: Re: seasonal sum and mean and combine multiple, different data frames in .csv Hi Arun, thank-you for your assistance. The code that you suggested is use...

Hi all, I have attached the function file (revisedfunction) and the list of station IDs (StationIDs) in .pdf format. I have written a function to perform various operations on the station IDs in two groups. The first 6 station IDs require one less step than the remaining 68 station IDs. The file referenced at the beginning of the function is the file containing the StationIDs. > file =

Hi, let me correct my previous post ("zeros in double matrix rather than character matrix"). I have included entries from the .csv file that has 4 columns of 1000 columns and 101 rows. The first column with the "Time (day)" will not be removed, but the row headers are the numbers 1 to 1000 and they will remain in the matrix. In the previous post I mentioned that R makes the

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

...example the next time. Using the next to last line of your code I was able to get what I needed without using the for loop. Thanks again. Irucka <-----Original Message-----> >From: arun kirshna [via R] [ml-node+s789695n4659154h50@n4.nabble.com] >Sent: 2/20/2013 8:49:22 AM >To: iruckaE@mail2world.com >Subject: Re: subsetting with greater than and less than indexing > >Hi, >It is better to provide a reproducible example. So, not sure about the problem > >Using another example: >mat1<-matrix(signif(c(1.200407,1.861941,1.560613,2.129241,2.047772,1.78 4105,...

Hi Arun, thank you. I will look through that later on today when I get a chance. I have to complete another part of this project now. Irucka <-----Original Message-----> >From: arun kirshna [via R] [ml-node+s789695n4661145h71@n4.nabble.com] >Sent: 3/12/2013 10:35:39 PM >To: iruckaE@mail2world.com >Subject: Re: how do I read certain files from a directory based on number of >columns? > >Hi, >Suppose, I have three files "File1.txt", "File2.txt", "File3.txt" in a folder. >list.files() >#[1] "File1.txt" "File2.t...

...function-to-mask-but-not-remove Handling missing/incomplete data in R--is there function to mask but not remove NAs? - Stack Overflow Thank you. Irucka <-----Original Message-----> >From: elvina [via R] [ml-node+s789695n4665877h63@n4.nabble.com] >Sent: 4/30/2013 6:55:52 PM >To: iruckaE@mail2world.com >Subject: Re: log returns, error > >Thank you for an advice! I read the answers, but I am still confused about how to present files.... >The link is the data I use - stock price. Some of the numbers are NA, so it says log is not meaningful for >factors. How can I mak...

...) localDaily$FNFlux <- tapply(allFluxReplicated, allDatesReplicated, "mean") return(localDaily) } <environment: namespace:EGRET> <-----Original Message-----> >From: arun kirshna [via R] [ml-node+s789695n4661331h37@n4.nabble.com] >Sent: 3/14/2013 7:30:54 AM >To: iruckaE@mail2world.com >Subject: Re: "[[i]]$" <- "" indexing and lapply > >Hi Irucka, > >Not sure how `Q` should be attached to Data object. >Try this: >const<- list(1.01, 1.00, 0.99) >DailyModeled1<-mapply(cbind,DailyModeled,const=const,SIMPLIFY=FAL...

Hi everyone, I have received assistance from my previous post (comparison of large data set), but I still need some assistance. This is the revised code (along with some new code that I am requesting assistance with correcting): files <- paste0("MaxFloodDepth_", 1:54, ".txt") fileobs <- "MaxFloodDepth_Observed.txt" readfun <- function(x) { u <-