R function for counting how often a value falls below a particular value -

-

With zero experience in the RP script it is proving to be a monster for me I have a data frame with 57 columns , 30 rows of data

What I'm trying to do here:

1) Go to each column:

2) Number of times 2 / Continuous values ​​are less than 1 / 3/4/5/6/7/8/9.

3) Print the result as a text file

4) Repeat steps 2 and 3 for the second column, and

I surround

This is a column my data: data & lt; -c (-0.996, -1.111, -0.638,0.047,0.694,1.901,2.863,2.611,2,56,2.016,0.929, -0.153, -0.617, - 0.143 0.199,0.556,0.353, -0.638,0.347,0.045 , -0.829, -0.882, -1.143, -0.869,0.619,0.923, -0.474,0.227 0.394,0.789,1.962,1.132,0.1, -0.278, -0.303, -0.606, -0.705, -0.858, -0.723, - 0.081,1.206,2.329 1.863,2.1,1,547,2.026,0.015, -0.441, -0.371, -0.304, -0.668, -0.953, -1.256, -1.185, - 0.891, -0.569 0.485,0.421, -0.004.0.024, -0.39, -0.58, -1.178, -1.101, -0.882,0.01,0.052, -0.166, -1.703, -1.048 -0.718, -0.036, -0.561, -0.08,0.272, -0.041, -0.811, -0.929 , -0.853, -1.047,0.431,0.576,0.642,1.62 2.324,1.251,1.384,0.195, -0.081, -0.335, -0.176,1.089, -0.602, -1.134, -1.356, -1.203, -0.795, -0.752 -0.692, -0.813, -1.172, -0.387, -0.079, -0.374, -0.157, 0.263,0.313,0.975,2.298,1.71,0.229, -0.313 -0.779, -1.12, -1.102, -1.01, -0.86, -1.118, -1.211, -1.081, -1.156, -0.972)

When I run the following code: 

  (Col: ncol (data) 1) {Run & lt; - rle (data [, color]) print ($ runs length [which runs ($ value <1)]}   
 this gives me:  
 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  
 The number of values ​​has been calculated & lt; -1 but do not run, is there anything that I am here during the wrong?   
 
 
 (mass editing)  
 Fixed data vector (comma missing):  
  Data & lt; - c (-0.996, -1.111, -0.638,0.047,0.694,1.901,2.863,2.611,2,56,2.016,0.99 2, -0.153, -0.617, -0.143, 0.199,0,556,0.353, -0.638, 0.347,0.045, -0.829, -0.882, -1.143, -0.869,0.619,0.923, -0.474,0.227, 0.394,0.789,1.962,1.132, 0.1, -0.278, -0.303, -0.606, -0.705, -0.858, -0.723, -0.081,1.206,2.329, 1.863,2.1,1,547,2.026,0.015, -0.441, -0.371, -0.304, -0.668, -0.953, -1.256, -1.185, -0.891, -0.569, 0.485,0421 , -0.004,0.024, -0.39, -0.58, -1.178, -1.101, -0.882,0.01,0.052, -0.166, -1.703, - 1.048, -0.718, -0.036, -0.561, -0.08,0.272, -0.041 , -0.811, -0.929, -0.853, -1.047,0.431,0.576,0.642,1.62, 2.324,1.251,1.384,0.195, -0.081, -0.335, -0.176,1.089, -0.602, -1.134, -1.356, - 1.203, -0.795, -0.752, -0.692, -0.813, -1.172, -0.387, -0.079, -0.374, -0.157,0.263,0.313, 0.975,2.298,1.71,0.229, -0.313, -0.779, -1.12, -1.102, -1.01, -0.86, -1.118, -1.211, -1.081, -1.156, -0.972)   
 do  data & lt; -1  gives you a logical vector, and we get the  TRUE  & amp;  FALSE :  
  Runs & lt; - rle (data & lt; -1) print (run) ## run length encoding ## length: int [1:21] 1 1 20 1 2 9 2 8 2 4 2 ... ## Value: logos [1 : 21] Lies true lies true lies ...   
 Then only remove the length  TRUE  Run:  
  print ( Run $ length [which runs ($ values)] ## [1] 1 1 2 2 2 1 3 1 3 4   
 And repeat the data already shown with the column of frames:    # Create a data frame from sampled versions of data sets .seed (1492) # Repeatable df & lt; - data.frame (v1 = data, v2 = sample (data, length) (Data), est = TRUE), V3 = sample (data, length, data), replacement = TRUE, V4 = sample, length (data), replacement = TRUE) for extraction (1 in curl: ncol (df)) {run & Lt; - rle (df [, col] <-1 lt; print (run $ length [that ($ value runs)]) ## [1] 1 1 2 2 2 1 3 1 3 4 ## [ 1] 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 ## [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 ## [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

Comments

Post a Comment

Popular posts from this blog

java - ImportError: No module named py4j.java_gateway -

-
I'm trying to call the Python using the Java program py4j . I've been installing the plug-in Eclipse and test name Piidvi project. I'm trying to execute the following part of the code found on py4j webpage: Import from py4j.java_gateway to JavaGateway, java_import gateway = JavaGateway () jvm = gateway.jvm java_import (jvm, '' Org.eclipse Kkorkrisorsej. * ") Vrkspes_rut = Jvankresourkesplginkgetvrkspas (). GetRoot (Gateway .help (workspace_root, '* Projects *') project_names = [project.getName () (for projects workpace_root.getProjects))] print (Projekt_nam) But I There is an error in import. I have checked that the P4JJ is present in the Jar Eclipse plugin directory. Can anyone help please? I had to install the py4j application
Read more

python - Receiving "KeyError" after decoding json result from url -

-
I am new to Python I am trying to parse JSON result from a URL. Basically, I was using the following: response = urllib.request.urlopen (url) json_obj = json.load (response) It should be a stroke "str 'not' bytes' in the lines of a given" JSON object, so after searching on the StackoverView Flo, I decode the response in this way: F = urllib.request.urlopen (Url) charset = f.info (). Get_param ('charset', 'utf8') data = f.read () decoded = json.loads (data.decode (charset)) If I print "decode" I is as follows: { 'link': { 'summary data': 'https: // localhost / piwebapi / streams / p0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTExNQU42NDIwXFNJTlVTT0lE / summary' 'value': 'https: // localhost / Piwebapi / streams / P0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTExNQU42NDIwXFNJTlVTT0lE / price ',' InterpolatedData ':' https: // localhost / Piwebapi / streams / P0_7qHaW4UHU-RlCaz8tpasAAQAAAAU0hJTE...
Read more

.net - Creating a new Queue Manager and Queue in Websphere MQ (using C#) -

-
"itemprop =" text "> I am writing applications that use WebSphere MQ to send messages. My unittests (for flow), I want to verify that I have put the correct message on the response queue. I am trying to figure out how to do this. My main obstacle is that I think it might be scary to clear the queue before running in my queue because the same queue can be used by other applications, I thought a decent solution would be a new line The manager will remove the queue for my solidarity and after using it. So my question is: Is it possible to use C # by using queue manager and queue? After the For future reference and future people, who want to make queues. I thought how to make and remove IBM MQ QE (not quenhers) with PCM messaging. It is not very simple, but it can be done. We have implemented it in a library and it is being used to create and delete commands before and after integration tests. The most important part of the code in this library is shown in the...
Read more