character comp

Nice, Rui!? Thanks

On Sat, Feb 9, 2019 at 11:55 AM Rui Barradas <ruipbarradas at sapo.pt 
<mailto:ruipbarradas at 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 at r-project.org <mailto:R-help at r-project.org> mailing list

    -- To UNSUBSCRIBE and more, see

     > https://stat.ethz.ch/mailman/listinfo/r-help
     > PLEASE do read the posting guide