c++ - R style subset/replace in Rcpp -

-

in r have loop runs through data frame of people coming , leaving site , assigns them parking lot until leave when releases spot.

activity = structure(list(id = c(1, 2, 3, 3, 1, 2, 3, 2, 3, 1, 2, 1),            lot = structure(c(1l, 3l, 6l, 6l, 1l, 3l, 2l, 5l, 2l, 4l, 5l, 4l),                            .label = c("a", "a", "c", "d", "f", "z"), class = "factor"),            time = c(1, 3, 6, 7, 8, 9, 10, 12, 13, 14, 15, 21),            dir = c(1, 1, 1, -1, -1, -1, 1, 1, -1, 1, -1, -1),           here = c("no","no","no","no","no","no","no","no","no","no","no","no")),       class = "data.frame",       row.names = c(na, -12l), .names = c("id", "lot", "time", "dir","here"))  lots = structure(c(30, 175, 170, 160, 300, 300, 35, 160, 85, 400, 200,                     110, 60, 130, 100, 80, 1000, 320, 330, 350, 320, 250, 250, 370,                     20, 40, 0, 140, 185, 200, 185, 120, 55, 105, 0, 0, 0, 0, 0, 0,                     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,                     0, 0, 0, 0, 0, 0, 0), .dim = c(34l, 2l),                   .dimnames = list(c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j",                                      "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",                                      "u", "v", "x", "y", "z", "a", "b", "c", "d", "e",                                      "f", "g", "h", "i"), c("capacity", "utilization")))  for(i in 1:nrow(activity)){   id = activity$id[i]   l = activity$lot[i]   d = activity$dir[i]   t = activity$time[i]   lots[l,"utilization"] = lots[l,"utilization"] + d   if(d == -1) activity$here[activity$id == id & activity$time <= t] = "no" }

what want determine is, in rcpp there way r style subset , replace? e.g., lots[l,"utilization"] = ... , activity$here[activity$id == id & activity$time <= t] = .... i'm wanting able load in 3 matrices, master record table, matrix manages lots , matrix manages current locations (in example know lot already, in practice need determine park). have functioning code takes ~160 seconds run , i'm trying learn how leverage rcpp make faster.


Comments

Post a Comment

Popular posts from this blog

python - TypeError: start must be a integer -

-
i trying draw 5 turtles, getting typeerror on line 25. here code: import turtle wn = turtle.screen() redrose = turtle.turtle() color = input("what background color be?") fillcolor_f = input("what color of rose be?") redrose.hideturtle() redrose.speed(30) redrose.penup() redrose.left(180) redrose.forward(175) redrose.right(90) redrose.forward(30) redrose.right(90) redrose.pendown() def drawrose(red): redrose.color("pink") redrose.fillcolor(fillcolor_f) redrose.fill(true) in range(red): redrose.forward(i) redrose.right(49) in range(5): drawrose(redrose) redrose.penup() redrose.forward(350) redrose.right(144) redrose.pendown() redrose.fill(false) drawrose(50) wn.bgcolor(color) i trying draw 5 roses, produces errors. doing in interactivepython.org. you recursively calling drawrose wrong parameter. on line 23 ( for in range(red): ) expect red integer...
Read more

c# - DevExpress RepositoryItemComboBox BackColor property ignored -

-
i have following code almost works properly; private void cbstatus_drawitem(object sender, listboxdrawitemeventargs e) { string item = e.item string; if (item != null) { switch (item) { case "1": e.appearance.forecolor = color.green; e.appearance.backcolor = color.green; break; case "2": e.appearance.forecolor = color.orange; e.appearance.backcolor = color.orange; break; case "3": e.appearance.forecolor = color.red; e.appearance.backcolor = color.red; break; } } } when dropdown shown, items forecolor correct, backcolor remains whatever backcolor of theme is; i.e. if i've got set dark theme, backcolor dark, cells in gridview, rather being green/orange/red. i've tried setting e.appearance.options.usebackcolor trying set e....
Read more

django - Creating multiple model instances in DRF3 -

-
1) create multiple model instances 1 api call, asked here: how create multiple model instances django rest framework? tried solution named in link, no success. i trying upload multiple files in 1 api call. result: files uploaded (only once overwrote perform_create) 1 instance created (if send 2 files, latter created instance). my code: class fileuploadserializer(serializers.modelserializer): def __init__(self, *args, **kwargs): many = kwargs.pop('many', true) super(fileuploadserializer, self).__init__(many=many, *args, **kwargs) class meta: model = fileupload read_only_fields = ('created', 'datafile', 'owner') class fileuploadviewset(viewsets.modelviewset): queryset = fileupload.objects.all() serializer_class = fileuploadserializer parser_classes = (multipartparser, formparser, ) def perform_create(self, serializer): file_list = self.request.data.getlist('file') ...
Read more