r - Use Final Value In Iterative Process -


here code working with: 

## round 1 b <- c(5000,2500) r <- c(2,2.1)  pm <- c(200,240)  <- b*(r/1200)  pi <- pm-i end <- b-pi   end  ## round 2  b1 <- end  r1 <- (2.3,2.3)  i1 <- b1*(r/1200) pi1 <- pm-i1  end1 <- b1-pi1  end1

this produces proper output, shown below in post. but, can see how might annoying 30 rounds thought able use *sapply function. attempted do: 

r2<- matrix(c(2,2.1,2.3,2.3),nrow=2) i2 <- sapply(b, function (x)   x*(r2/1200) )  pi2 <- sapply(i, function (l)   pm-l )   end2 <- b-pi2 end2

which gives: 

[1,] 4808.333 4804.375 [2,] 2268.333 2264.375

this did not produce desired output is: 

[1,] 4808.333 4616.347 [2,] 2264.375 2028.338

how go doing because "end" variables need updated "b" value shown in starred part of code below. 

    **b1 <- end**      r1 <- 2.3      i1 <- b1*(r/1200)     pi1 <- pm-i1      end1 <- b1-pi1      end1

thank time.

edit

pierre gives answer below, have question how process "n" number of times. pierre's answer works specific question. but, trying make work when "r" , "r1" joint in matrix like

rate <- rbind(r,r1)

and use sapply function kind of like: 

t(sapply(b, function(x) {b <- b - (pm - b*(rate/1200));b}))

any suggestions?

this situation loops shine:

rlist <- list(r, r1) x <- vector("list", 2) for(i in 1:2) {b <- b - (pm - b*(rlist[[i]]/1200)); x[[i]] <- b} `names<-`(as.data.frame(x), c('x', 'y')) #         x        y #1 4808.333 4617.549 #2 2264.375 2028.715

Comments

Post a Comment

Popular posts from this blog

searchKeyword not working in AngularJS filter -

i writing app using angularjs on front end. want search through table word/field; 1 search box everything. according article here: http://hello-angularjs.appspot.com/searchtable can use filter: searchkeyword this. this code, , not working expected. <label>search: <input ng-model="searchkeyword"></label> <table ng-repeat="post in posts | orderby: sort | filter: searchkeyword"> <tr> <td> {{index(post)}} </td> <td> {{post.title}} </td> <td> {{post.author}} </td> <td> {{post.content}} </td> <td> {{post.date | date: "d/m/yyyy"}} </td> </tr> </table> what should do? thank you try this: controller $scope.posts = [ {title:'title one', author:'author one', content: 'content one'}, {title:'title two', author:'author two', content: 'cont...
Read more

sequelize.js - Sequelize: sort by enum cases -

i have model ( article ) field (the name type ) of type enum('source', 'translated') , return 1 article ordered type field. source articles should returned before translated articles. like: article.findone(order: [ { type: [ 'source', 'translated' ] } ]); unfortunately there appears no built-in solution sorting enums. instead have sort by case , couldn't find documentation on how sequelize. what conventional approach here? sorting case hard in sequelize, sort field (the second answer in linked post) should possible: order: sequelize.fn('field', sequelize.col('type'), 'source', 'translated') it's supported mysql far know though
Read more

user interface - how to replace an ongoing process of image capture from another process call over the same ImageLabel in python's GUI TKinter -

i trying use following code create interactive gui changes color-space(hsv, rbg, grayscale etc) on event of button click. display opencv video in tkinter using multiprocessing being new python having problems multiprocessing , attempts on making gui change it's color space on button clicks hangs entire system. on it's implementation highly appreciated. thankyou. below code: import cv2 pil import image,imagetk import tkinter tk import numpy np multiprocessing import process , queue def quit_it(root,process): root.destroy() process.terminate() def black_andwhite(root,process): process.terminate p=process(target=capture_image, args=(5,queue, )) p.start() root.after(0, func=lambda: update_all(root, image_label, queue)) def update_image(image_label, queue): frame = queue.get() = image.fromarray(frame) b = imagetk.photoimage(image=a) image_label.configure(image=b) image_label._image_cache = b root.update() def update_all(root...
Read more