r - How can I pass NA when attempt to select fails with "attempted to select less than one element"? -



r - How can I pass NA when attempt to select fails with "attempted to select less than one element"? -

i have 2 info frames, , b, both have "state" , "year" columns (as others). i'm trying transfer value varx b a. used this:

for(i in seq_along(a)) {a$varx[[i]]<-b$varx[[which(b$state==a$state[[i]] & b$year==a$year[[i]])]]}

i error:

error in b$varx[[which(b$state == a$state[[i]] & b$year == : effort select less 1 element

the problem seems there rows in a without corresponding row in b, can't select element. how can either homecoming na in cases (so a$varx[i]=na), or clean cases there's no corresponding rows in b?

loop not choice. see working example:

a=data.frame(state=c("a","b","a"),year=c("2012","2013","2014"),varx=c(1,2,3)) ################### state year varx 1 2012 1 2 b 2013 2 3 2014 3 ################### b=data.frame(state=c("a","b","c"),year=c("2012","2013","2014"),varx=c(4,5,6)) ################### state year varx 1 2012 4 2 b 2013 5 3 c 2014 6 ################### # merge , b c=merge(a,b,by=c("state","year"),all.x=t,sort =f,suffixes = c(".a","")) ################### state year varx.a varx 1 2012 1 4 2 b 2013 2 5 3 2014 3 na ################### # drop varx in info frame subset(c,select=-varx.a) ################### state year varx 1 2012 4 2 b 2013 5 3 2014 na ###################

r for-loop

Comments

Post a Comment

Popular posts from this blog

java Multi query from Mysql using netbeans -

java Multi query from Mysql using netbeans - i have java code retrieve info mysql appropriate code in netbeans.the code below. want multi query such illustration finding total number of products , on.could help me please. in advance import java.sql.*; public class javamysqlselectexample { public static void main(string[] args) { seek { string mydriver = "com.mysql.jdbc.driver"; string myurl = "jdbc:mysql://localhost/sample"; class.forname(mydriver); connection conn = drivermanager.getconnection(myurl, "root", "mypasscode1"); string query = "select * products"; statement st = conn.createstatement(); resultset rs = st.executequery(query); while (rs.next()==true) { int code = rs.getint("code"); string productname = rs.getstring("product_name"); string producttype = rs.getstring("product_type"); system.out.format(" %d, %s, %s\n", code, pr
Read more

c# - DotNetZip fails with "stream does not support seek operations" -

c# - DotNetZip fails with "stream does not support seek operations" - i using dotnetzip in c# unzip stream follows: public static void unzipfromstream(stream stream, string outdir) { //omit seek grab block using (zipfile zip = zipfile.read(stream)){ foreach (zipentry e in zip){ e.extract(outdir, extractexistingfileaction.overwritesilently); } } } stream obtained using webclient client = new webclient(); stream fs = client.openread(url); however, got next exception exception during extracting zip stream system.notsupportedexception: stream not back upwards seek operations. @ system.net.connectstream.get_position() @ ionic.zip.zipfile.read(stream zipstream, textwriter statusmessagewriter, encoding encoding, eventhandler`1 readprogress) on server side(asp.net mvc 4), returning filepathresult or filestreamresult both caused exception. should obtain stream differently on client side? or how create server homec
Read more

c++ - StartServiceCtrlDispatcher don't can access 1063 error -

c++ - StartServiceCtrlDispatcher don't can access 1063 error - i write on c++ service , have error, , don't can fixed it. my service main function int main (int argc, tchar *argv[]) {dword f; for(int i=0;i<113;i++) f = getlasterror(); servicepath = lptstr(argv[0]); outputdebugstring(_t("my sample service: main: entry")); //installservice(); service_table_entry servicetable[] = { {service_name, (lpservice_main_function) servicemain}, {null, null} }; // startservice(); if(!startservicectrldispatcher(servicetable)) { f = getlasterror(); //addlogmessage("error: startservicectrldispatcher"); } else if( memcmp(argv[argc-1],"install",7)) { installservice(); } else if( memcmp(argv[argc-1],"remove",6)) { removeservice(); } else if( memcmp(argv[argc-1],"start",5)) { startservice(); } else if( memcmp(argv[argc-1],"stop",4))
Read more