r - create one variable out of three and merge over rows -

-

so, i've been looking solution days. still not succeeding. maybe can me.

    # minimal example        <- rep("a", 9)        b <- rep("b", 4)        schoolid <- c(a, b)        dc <- c("a", "b", "c", "", "", "", "", "", "", "a", "b", "i", "j")        mc <- c( "", "", "", "a", "b", "c", "", "", "", "a", "b", "i", "j")        ec <- c( "", "", "",  "", "", "", "a", "b", "c", "a", "b", "i", "j")        dpoints <- c(20, 15, 17,  "", "", "", "", "", "", 14, 13, 13, 12)        mpoints <- c( "", "", "", 18, 12, 20, "", "", "", 15, 11, 14, 9)        epoints <- c( "", "", "",  "", "", "", 13, 14, 15, 16, 21, 17, 7)        data <- data.frame(schoolid, dc, mc, ec, dpoints, mpoints, epoints)

this dataset have, with:

    # dc ... pupilsid in deutsch     # mc ... pupilsid in math     # ec ... pupilsid in english     # dpoints, mpoints, epoints, achieved points in tests     # 4 pupils in school did participate in tests,     # information spread on 3 rows per pupil     # in school b allright: note, 4 pupils in school b have same codes others in school      view(data)     ###############################################################################################

  1. so @ first i'd have 1 variable "code" pupilsid combines information of

       # 3 columns dc, mc , ec    # in following way:    x <- rep(c("a", "b", "c"), 3)    data1 <- data    data1$code <- c(x, "a", "b", "i", "j")    view(data1)
    #

  2. secondly upper part of dataframe i'd merge? rows this

    # result desired dataset    schoolid1 <- c("a", "a", "a", "b", "b", "b", "b")    code <- c("a", "b", "c", "a", "b", "i", "j")    dpoints1 <- c(20, 15, 17, 14, 13, 13, 12)    mpoints1 <- c(18, 12, 20, 15, 11, 14, 9)    epoints1 <- c(13, 14, 15, 16, 21, 17, 7)    result <- data.frame(schoolid1, code, dpoints1, mpoints1, epoints1)    view(result)  ############################################################################################

    so 1.) tried following (doesn't work though)

    # counting variable i.th row in data    <- 1    (i in 1:13){      if (data[i, "dc"]==data[i, "mc"]==data[i, "ec"]){        data$code <- data[i, "dc"]      } else if (!is.na(data[i, "dc"]) & is.na(data[i, "mc"]) & is.na(data[i, "ec"])){        data$code <- data[i, "dc"]      } else if (is.na(data[i, "dc"]) & !is.na(data[i, "mc"]) & is.na(data[i, "ec"])){        data$code <- data[i, "mc"]      } else if (is.na(data[i, "dc"]) & is.na(data[i, "mc"]) & !is.na(data[i, "ec"])){        malsehen$code <- data[i, "ec"]      }    <- i+1    }

    the second problem, don't know

here's solution using data.table

library(data.table) #1.9.5+ ints<-paste0(c("d","m","e"),"points") setdt(data)[,(ints):=lapply(.sd,function(x)as.integer(levels(x))[x]),.sdcols=ints]  # problem 1 data[,code:=levels(dc)[pmax(as.integer(dc),as.integer(mc),as.integer(ec))]] # problem 2 data[,(ints):=lapply(.sd,function(x)max(x,na.rm=t)),      by=.(schoolid,code),.sdcols=ints] # remove excess information data<-unique(setkey(data,schoolid,code))[,(chars):=null]  > data    schoolid dpoints mpoints epoints code 1:             20      18      13    2:             15      12      14    b 3:             17      20      15    c 4:        b      14      15      16    5:        b      13      11      21    b 6:        b      13      14      17    7:        b      12       9       7    j

note should check identical(levels(data$dc),levels(data$ec),levels(data$mc)), definition of code relies on.


Comments

Post a Comment

Popular posts from this blog

c# - Better 64-bit byte array hash -

-
i need hash algorithm produces 64-bit hash code ( long ) fewer collisions string.gethashcode() , fast (no expensive calls cryptographic functions). here's implementation of fnv still shows 3% of collisions after testing 2 million random strings. need number way lower. void main() { const string chars = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz!#@$%^&*()_+}{\":?><,./;'[]0123456789\\"; const int n = 2000000; var random = new random(); var hashes = new hashset<long>(); int collisions = 0; for(int = 0; < n; i++) { var len = random.next(chars.length); var str = new char[len]; (int j = 0; j < len; j++) { str[j] = chars[random.next(chars.length)]; } var s = new string(str); if(!hashes.add(get64bithash( s ))) collisions++; } console.writeline("collision percentage after " + n + " random strings: " + ((doubl
Read more

webrtc - Which ICE candidate am I using and why? -

-
[questions in bold below] i have setup kurento media server 5.1.3 in datacenter behind firewall running os ubuntu 14.04. has 2 network cards: 222.222.222.222 (eth0 - private ip) 111.111.111.111 (eth1 - public ip) attached below sdp (setremotedescription) when browser connected kurento media server type: answer, sdp: v=0 o=- 5487318114793304426 0 in ip4 0.0.0.0 s=kurento media server c=in ip4 0.0.0.0 t=0 0 a=group:bundle audio video m=audio 59068 rtp/savpf 111 0 c=in ip4 111.111.111.111 a=rtpmap:111 opus/48000/2 a=rtpmap:0 pcmu/8000 a=sendrecv a=rtcp:59068 in ip4 111.111.111.111 a=rtcp-mux a=ssrc:669011897 cname:user39019747@host-6e83e4c2 a=extmap:3 http://www.webrtc.org/experiments/rtp-hdrext/abs-send-time a=mid:audio b=as:20 a=ice-ufrag:ymdk a=ice-pwd:lylifk5ueqzpwm91ddj37e a=fingerprint:sha-256 ff:0f:81:8c:41:4e:b4:b6:c6:d8:36:f3:d6:5f:09:fd:5f:af:13:b3:9d:fc:12:66:ac:f3:56:d6:5b:0a:73:5d a=candidate:1 1 udp 2013266431 111.111.111.111 55239 typ host a=candidate:2 1 udp
Read more

php - Zend Framework / Skeleton-Application / Composer install issue -

-
i trying create zend framework application using skeleton in netbeans. when run composer install, following error message: "c:\php\php.exe" "c:\composer\composer.phar" "--ansi" "--no-interaction" "update" "--dev" using deprecated option "dev". dev packages installed default now. loading composer repositories package information updating dependencies (including require-dev) requirements not resolved installable set of packages. problem 1 - package requires php >=5.5 php version (5.4.42) not satisfy requirement. problem 2 - installation request zendframework/zendframework 2.5.1 -> satisfiable zendframework/zendframework[2.5.1]. - zendframework/zendframework 2.5.1 requires php >=5.5 -> php version (5.4.42) not satisfy requirement. done. apparently, zend framework only needs php 5.3+ contradicts above. need use php 5.4. my composer.json following: { "name": "
Read more