追加到向量的末尾

Question

我是R的新手。一旦函数达到阈值，如何追加到返回向量的末尾？

myfib3 <- function(thresh){
        fibseq <- c(1,1)
        counter <- 2
        repeat{
                fibseq <- c(fibseq,fibseq[counter-1]+fibseq[counter])
                counter <- counter+1
                if(fibseq[counter]>thresh){
                        #cat("BREAK NOW...")
                        break
                }
                        }
        return(fibseq)
}


myfib3(150) 
[1]   1   1   2   3   5   8  13  21  34  55  89 144 233

我想要

  

[1] 1 1 2 3 5 8 13 21 34 55 89 144 233现在休息......

Answer 1

private class informacionTarjeta extends AsyncTask<String, Void, UsuarioEntity> {
    String respuesta = txt_seg_clave.getText().toString();
    String clave = txt_clave.getText().toString();
    String confirmclave = txt_comfirm_clave.getText().toString();

    @Override
    protected UsuarioEntity doInBackground(String... params) {
        UsuarioEntity user;
        try {
            SuperAgenteDaoInterface dao = new SuperAgenteDaoImplement();
            user = dao.getClaveAcceso(usuario.getUsuarioId(), clave, validaPregunta(), respuesta);
            //Log.e("idCliente", "CodCliente=" + user.getCodCliente() + ", usuarioId=" + usuario.getUsuarioId());
            //usuario.setClaveAcceso(user.getClaveAcceso());
        } catch (Exception e) {
            user = null;
            //flag_clic_ingreso = 0;
        }
        return user;
    }        
}