On Mar 23, 2013, at 12:51 PM, Christofer Bogaso wrote:
> Hello again,
>
> Let say I have following vector:
>
> Vec <- c("0.0365780769", "(1.09738648244378)", "(0.812507787221523)",
> "0.5778069963", "(0.452456601362355)", "-1.8900812605", "-1.8716093762",
> "0.0055217041", "-0.4769192333", "-2.
Use gsub to convert the parenthesized expressions.
newvec <- gsub("\\((.+)\\)", "-\\1", Vec)
If you have to do much of this, you should learn about regular expressions
-- there are many good tutorials on the Web -- and stop asking for help
here.
Cheers,
Bert
On Sat, Mar 23, 2013 at 12:51 PM, Ch
Hi,
Try this:
Vec[grepl("\\(",Vec)]<-paste0("-",gsub("[()]","",Vec[grepl("\\(",Vec)]))
as.numeric(Vec)
# [1] 0.036578077 -1.097386482 -0.812507787 0.577806996 -0.452456601
#[6] -1.890081260 -1.871609376 0.005521704 -0.476919233 -2.413301888
A.K.
- Original Message -
From: Christofer
Hello,
Try the following. It issues a warning because of the second as.numeric.
(It still has the parenthesis.)
ifelse(grepl("\\(", Vec), -as.numeric(sub("\\((.*)\\)", "\\1", Vec)),
as.numeric(Vec))
Hope this helps,
Rui Barradas
Em 23-03-2013 19:51, Christofer Bogaso escreveu:
Hello ag
4 matches
Mail list logo