how about one of the following?
vdat$xy <- 2 * (ifelse(is.na(vdat$x1), 0, vdat$x1)) + 5 *
(ifelse(is.na(vdat$x2),
0, vdat$x2)) + 3 * (ifelse(is.na(vdat$x3), 0, vdat$x3))
vdat$xy <- ifelse(is.na(as.matrix(vdat[, paste0("x", 1:3)])), 0,
as.matrix(vdat[, paste0("x", 1:3)])) %*% c(2, 5, 3)
On Sat, Apr 13, 2019 at 9:02 PM Val <valkr...@gmail.com> wrote:
> Sorry for the confusion, my sample data does not represent the
> actual data set.
>
> The range of value can be from -ve to +ve values and 0 could be a
> true value of an observation. So, instead of replacing missing value
> by zero, I want exclude them from the calculation.
>
> On Sat, Apr 13, 2019 at 10:42 PM Jeff Newmiller
> <jdnew...@dcn.davis.ca.us> wrote:
> >
> > Looks to me like your initial request contradicts your clarification.
> Can you explain this discrepancy?
> >
> > On April 13, 2019 8:29:59 PM PDT, Val <valkr...@gmail.com> wrote:
> > >Hi Bert and Jim,
> > >Thank you for the suggestion.
> > >However, those missing values should not be replaced by 0's.
> > >I want exclude those missing values from the calculation and create
> > >the index using only the non-missing values.
> > >
> > >
> > >On Sat, Apr 13, 2019 at 10:14 PM Jim Lemon <drjimle...@gmail.com>
> > >wrote:
> > >>
> > >> Hi Val,
> > >> For this particular problem, you can just replace NAs with zeros.
> > >>
> > >> vdat[is.na(vdat)]<-0
> > >> vdat$xy <- 2*(vdat$x1) + 5*(vdat$x2) + 3*(vdat$x3)
> > >> vdat
> > >> obs Year x1 x2 x3 xy
> > >> 1 1 2001 25 10 10 130
> > >> 2 2 2001 0 15 25 150
> > >> 3 3 2001 50 10 0 150
> > >> 4 4 2001 20 0 60 220
> > >>
> > >> Note that this is not a general solution to the problem of NA values.
> > >>
> > >> Jim
> > >>
> > >> On Sun, Apr 14, 2019 at 12:54 PM Val <valkr...@gmail.com> wrote:
> > >> >
> > >> > Hi All,
> > >> > I have a data frame with several columns and I want to create
> > >> > another column by using the values of the other columns. My
> > >> > problem is that some the row values for some columns have missing
> > >> > values and I could not get the result I waned .
> > >> >
> > >> > Here is the sample of my data and my attempt.
> > >> >
> > >> > vdat<-read.table(text="obs, Year, x1, x2, x3
> > >> > 1, 2001, 25 ,10, 10
> > >> > 2, 2001, , 15, 25
> > >> > 3, 2001, 50, 10,
> > >> > 4, 2001, 20, , 60",sep=",",header=TRUE,stringsAsFactors=F)
> > >> > vdat$xy <- 0
> > >> > vdat$xy <- 2*(vdat$x1) + 5*(vdat$x2) + 3*(vdat$x3)
> > >> > vdat
> > >> >
> > >> > obs Year x1 x2 x3 xy
> > >> > 1 1 2001 25 10 10 130
> > >> > 2 2 2001 NA 15 25 NA
> > >> > 3 3 2001 50 10 NA NA
> > >> > 4 4 2001 20 NA 60 NA
> > >> >
> > >> > The desired result si this,
> > >> >
> > >> > obs Year x1 x2 x3 xy
> > >> > 1 1 2001 25 10 10 130
> > >> > 2 2 2001 NA 15 25 150
> > >> > 3 3 2001 50 10 NA 150
> > >> > 4 4 2001 20 NA 60 220
> > >> >
> > >> > How do I get my desired result?
> > >> > Thank you
> > >> >
> > >> > ______________________________________________
> > >> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > >> > https://stat.ethz.ch/mailman/listinfo/r-help
> > >> > PLEASE do read the posting guide
> > >http://www.R-project.org/posting-guide.html
> > >> > and provide commented, minimal, self-contained, reproducible code.
> > >
> > >______________________________________________
> > >R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > >https://stat.ethz.ch/mailman/listinfo/r-help
> > >PLEASE do read the posting guide
> > >http://www.R-project.org/posting-guide.html
> > >and provide commented, minimal, self-contained, reproducible code.
> >
> > --
> > Sent from my phone. Please excuse my brevity.
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Dan Dalthorp, PhD
USGS Forest and Rangeland Ecosystem Science Center
Forest Sciences Lab, Rm 311
3200 SW Jefferson Way
Corvallis, OR 97331
ph: 541-750-0953
ddalth...@usgs.gov
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
