After correcting the typo I tested both and yours is over twice as fast as mine.

Rui Barradas

Às 19:08 de 09/02/2019, Erin Hodgess escreveu:
Nice, Rui!  Thanks

On Sat, Feb 9, 2019 at 11:55 AM Rui Barradas <ruipbarra...@sapo.pt <mailto:ruipbarra...@sapo.pt>> wrote:

    Hello,

    The following will do it.

    mydataframe$dvar <- c(sapply(mydataframe[-1], nchar) %*% c(1, -1))


    Hope this helps,

    Rui Barradas

    Às 18:05 de 09/02/2019, Val escreveu:
     > Hi  All,
     > In a given data frame I  want to compare character values of two
    columns.
     > My sample data looks like as follow,
     >
     > mydataframe <- read.table( text='ID  var1 var2
     >    R1   AA  AAA
     >    R2   AAA AAA
     >    R3    A  AAAA
     >    R4   AA   A
     >    R5   A  AAA', header = TRUE, as.is <http://as.is> = TRUE )
     >
     > For each ID, I want  create the third column "dvar" as  difference
     > between var1 and var2
>   Row1( R1)   the "dvar" value will be -1 and the complete desired out
     > put looks like as follow.
     >
     >   ID    var1 var2   dvar
     >   R1   AA    AAA    -1
     >   R2  AAA  AAA      0
     >   R3    A    AAAA    -3
     >   R4   AA       A        1
     >   R5    A     AAA      -2
     >
     > How do i do this? Any help please?
     > Thank you
     >
     > ______________________________________________
     > R-help@r-project.org <mailto: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 <mailto: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.

--
Erin Hodgess, PhD
mailto: erinm.hodg...@gmail.com <mailto:erinm.hodg...@gmail.com>

______________________________________________
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.

Reply via email to