r - Issue with sorting one column after rank is assigned -

-

*****this deal question asked in coursera , hence may not able reveal complete code*****

hi, below data frame (outcome_h)

hospital_name   h_a h_f pn abc             4.5  5  6 cde             4.5  1  3 efg             5    2  1

1) need rank column provided in function call (it 1 of h_a ,h_f,pn)

2) there rank provided in call. need match rank rank calculated above , return respective hospital_name

i had used ties.method="first" solve tie problem. when @ final output hospital name not sorted. example: if give rank =2, expect cde printed, due problems(which note aware) abc gets printed rank=2 , cde printed rank=1.

below parts of code better understanding:

h_a <- as.numeric(outcome_h$h_a) ha <- h_a[order(h_a)]       // newly added piece order value df <- data.frame(ha,round(rank(ha,ties.method="first")),outcome_h$hospital_name) rowss <- df[order(df$round.rank.ha..),]

before ordering output:

     ha round.rank.ha..          outcome_h.hospital.name 42  8.1               1       fort duncan medical center 192 8.5               2  tomball regional medical center 61  8.7               4           detar hospital navarro 210 8.7               4 cypress fairbanks medical center 69  8.8               6  mission regional medical center 117 8.8               6           methodist hospital,the

after ordering output:

  ha round.rank.ha..ties.method....first...                       outcome_h.hospital.name 1 8.1                                      1                  providence memorial hospital 2 8.5                                      2      memorial hermann baptist orange hospital 3 8.7                                      3              peterson regional medical center 4 8.7                                      4 children's hospital -scott & white healthcare 5 8.8                                      5            united regional health care system 6 8.8                                      6              st joseph regional health center

as can see, data hospital names incorrect.

any appreciated.

thanks, pravellika j

you try h_a <- as.numeric(as.character(outcome_h$h_a))

output

ha round.rank.ha..ties.method....first... outcome_h.hospital_name 1 4.5                                      1                     abc 2 4.5                                      2                     cde 3 5.0                                      3                     efg

Comments

Post a Comment

Popular posts from this blog

javascript - Any ideas when Firefox is likely to implement lengthAdjust and textLength? -

-
any ideas when firefox implement lengthadjust andtextlength?..... working svg application. lengthadjust , textlength working fine in chrome not working in fire fox . <svg viewbox = "0 0 500 300" version = "1.1"> <defs> <path id="s3" d="m 10,90 q 100,15 200,70" /> </defs> <g> <text font-size = "20"> <textpath xlink:href="#s3" textlength="205"> short text</textpath> </text> <use xlink:href="#s3" fill="none" stroke="black" stroke-width="1"/> </g> </svg> this implemented in firefox text elements (not textpath or tspan) in case that's ok though can move attribute text element. <svg viewbox = "0 0 500 300" version = "1.1"> <defs>
Read more

matlab - "Contour not rendered for non-finite ZData" -

-
i'm trying plot frequency characteristic equation using ezplot, matlab gives following warning, "contour not rendered non-finite zdata". have used command plot frequency equations warning , plot display empty , not change axis range well. can please help. appreciated. here's code i'm using. % transfer matrix case-i, thin rotor clear all; clc; ei = 1626; l = 0.15; m = 0.44108; = 2.178*10^-4; i_p = 2.205*10^-5; itr = 0.24; i_pr = 0.479; syms p n; f = [1 l*1i l^2/(2*ei)*1i l^3/(6*ei); 0 1 l/ei -l^2/(2*ei)*1i; 0 0 1 -l*1i; 0 0 0 l]; p = [ 1 0 0 0; 0 1 0 0; 0 -it*p^2+i_p*n*p 1 0; -m*p^2 0 0 1]; p_r = [1 0 0 0; 0 1 0 0; 0 -itr*p^2+i_pr*n*p 1 0; -m*p^2 0 0 1]; = f*p*f*p*f*p*f; b = p_r*f*p*f*p*f; r = a(1,2)/a(1,4); a12_p = 0; a22_p = a(2,2)-r*a(2,4); a32_p = a(3,2)-r*a(3,4); a42_p = a(4,2)-r*a(4,4); ap(2,2) = a22_p; ap(3,2) = a32_p; ap(4,2) = a42_p; ap(4,4) = 1; c = b*ap; m = [c(3,2) c(3,4); c(4,2) c(4,
Read more

delphi - Indy UDP Read Contents of Adata -

-
i using indy udp server read string of data. however, not know how work adata parameter. can around converting binary using bytetobin function below , convert hex using bintohex1 . feel stupid , works slow. know how can directly results without 2 conversions? thanks!! here codes: procedure tform1.idudpserver1udpread(athread: tidudplistenerthread; const adata: tidbytes; abinding: tidsockethandle); var buf: tidbytes; buffer: string; data_received: string; begin if bytestostring(adata) <> 'hello' begin buffer := hextostring('00'); setlength(buf, length(buffer)); copytidstring(buffer, buf, 0); abinding.sendto(abinding.peerip, abinding.peerport, buf); data_received := bintohex1(bytetobin(adata[1]) + bytetobin(adata[2]) + bytetobin(adata[3]) + bytetobin(adata[4]) + bytetobin(adata[5]) + bytetobin(adata[6]) + bytetobin(adata[7]) + bytetobin(adata[8]) + bytetobin(adata[9]) + bytetobin(adata[10]) + bytetobin(adata[11
Read more