r - Inserting NA after Test -


i have list full of of data.frames 2 columns, time , signal. data.frames results of gc chromatographic analysis process periodically sampled.

i want compare gc data i've collected.

i've written function convert times , peak areas percentage areas (excluding solvent peak) , relative retention times.

due nature of process, different gcs have differing numbers of peaks , therefore comparison isn't straightforward. impurities appear @ different parts of process , hence give peaks.

i want go on list , find longest vector of relative retention times (no problem). want use longest vector comparator , place na values @ relative retention times appear @ same time comparator not appear in other data.frames.

hence results of following list of relative retention times,

prac  <- list(a=c(0.203,0.305,0.444,0.780,1.000,1.101,1.403),           b=c(0.201,0.306,0.442,0.778,1.000,1.101,1.208,1.401))

where b comparator vector, should like

0.203 0.305 0.444 0.780 1.000 1.101 na    1.403 0.201 0.306 0.442 0.778 1.000 1.101 1.208 1.401

can suggest how might able start?

my first thought loop don't think work. please note there more 1 na values required.

(i plan collate percentage areas against comparator relative retention times chromatograms, if can beyond problem).

this 1 solution (brute force) 1 missing value:

prac  <- list(a=c(0.203,0.305,0.444,0.780,1.000,1.101,1.403),               b=c(0.201,0.306,0.442,0.778,1.000,1.101,1.208,1.401))   na.index <- which(abs(prac$b[1:length(prac$a)] - prac$a) > 0.05) newlist.a <- c(prac$a[1:na.index-1], na, prac$a[na.index])

this here should generizeable( depending on how data structured):

prac  <- list(a=c(0.203,0.305,0.444,0.780,1.000,1.101,1.403),               b=c(0.201,0.306,0.442,0.778,1.000,1.101,1.208,1.401))  for(i in seq_along(prac$a)) {     if(abs(prac$b[i] - prac$a[i]) < 0.05) {         prac$a[i] <- prac$a[i]     } else {         prac$a[i+1] <- prac$a[i]         prac$a[i] <- na     } }

kinda hard tell how generalize examples multiples nas without giving reproducible example, because right tapping in dark how data structured


Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more