Programmierung r

9

Können Sie mit "R" verweisen? Zum Beispiel im folgenden Code: setClass("MyClass", representation( name="character" )) instance1 <-new("MyClass",name="Hello1") instance2 <-new("MyClass",name="Hello2") array = c(instance1,instance2) instance1 array instance1@name="World!" instance1 array die Ausgabe ist > instance1 An object of class “MyClass” Slot "name": [1] "World!" > array [[1]] An object of class “MyClass” Slot "name": …

68 r oop parameter-passing pass-by-reference

4

Wie kann man Rprof in R effizient nutzen?

Ich würde gerne wissen, ob es möglich ist, ein Profil von R-Code auf ähnliche Weise wie den matlabProfiler abzurufen . Das heißt, um herauszufinden, welche Zeilennummern besonders langsam sind. Was ich bisher erreicht habe, ist irgendwie nicht zufriedenstellend. Ich habe Rprofmir eine Profildatei gemacht. Mit summaryRprofbekomme ich so etwas wie …

68 r profiling profiler

1

Sauerstoff-Schnipsel vor oder nach dem Prozess

Gibt es einen Mechanismus, mit dem ich die Kommentare, die roxygen sieht, transformieren kann, vorzugsweise bevor es die roxygen-> rd-Konvertierung durchführt? Angenommen, ich habe: #' My function. Does stuff with numbers. #' #' This takes an input `x` and does something with it. #' @param x a number. myFunction <- …

68 r roxygen2

11

Ersetzen Sie mehrere Buchstaben durch Akzente durch gsub

Natürlich könnte ich bestimmte Argumente wie dieses ersetzen: mydata=c("á","é","ó") mydata=gsub("á","a",mydata) mydata=gsub("é","e",mydata) mydata=gsub("ó","o",mydata) mydata Aber es gibt sicherlich einen einfacheren Weg, dies alles in einer einzigen Linie zu tun, oder? Ich finde die gsub-Hilfe nicht sehr umfassend.

68 r regex gsub

2

Wie kann überprüft werden, ob der Unterschied kleiner als die Maschinengenauigkeit ist?

Ich lande oft in Situationen, in denen überprüft werden muss, ob der ermittelte Unterschied über der Maschinengenauigkeit liegt. Scheint für diesen Zweck R hat eine handliche Variable:.Machine$double.eps . Wenn ich mich jedoch an den R-Quellcode wende, um Richtlinien zur Verwendung dieses Werts zu erhalten, werden mehrere unterschiedliche Muster angezeigt. Beispiele …

36 r floating-point rounding precision

14

Zählung und Summierung von positiven und negativen Zahlenfolgen

Ich möchte einen Code schreiben, um alle positiven und negativen Zahlenreihen zu zählen und zu summieren. Zahlen sind entweder positiv oder negativ (keine Null). Ich habe Codes mit forSchleifen geschrieben. Gibt es eine kreative Alternative? Daten R. set.seed(100) x <- round(rnorm(20, sd = 0.02), 3) Python x = [-0.01, 0.003, …

31 python r

7

So ersetzen Sie NA durch eine Reihe von Werten

Ich habe folgenden Datenrahmen: library(dplyr) library(tibble) df <- tibble( source = c("a", "b", "c", "d", "e"), score = c(10, 5, NA, 3, NA ) ) df Es sieht aus wie das: # A tibble: 5 x 2 source score <chr> <dbl> 1 a 10 . # current max value 2 …

18 r dplyr tibble

5

Datentabelle, die NA-Werte ohne Gruppen linear interpoliert

Ich wollte einige NA-Werte in eine Datentabelle ohne Gruppen eintragen. Bitte beachten Sie diesen Auszug der Datentabelle, die Zeit und Entfernungen darstellt: library(data.table) df <- data.frame(time = seq(7173, 7195, 1), dist = c(31091.33, NA, 31100.00, 31103.27, NA, NA, NA, NA, 31124.98, NA,31132.81, NA, NA, NA, NA, 31154.19, NA, 31161.47, NA, …

18 r data.table

3

Optimierung der R-Zielfunktion mit Rcpp langsamer, warum?

Ich arbeite derzeit an einer Bayes'schen Methode, die mehrere Schritte zur Optimierung eines multinomialen Logit-Modells pro Iteration erfordert. Ich verwende optim (), um diese Optimierungen durchzuführen, und eine in R geschriebene Zielfunktion. Eine Profilerstellung ergab, dass optim () der Hauptengpass ist. Nachdem ich mich umgesehen hatte, fand ich diese Frage, …

16 c++ r optimization rcpp

3

Bestimmen Sie den Funktionsnamen innerhalb dieser Funktion

Wie kann ich den Funktionsnamen innerhalb dieser nicht anonymen Funktion ermitteln? Ich gehe davon aus, dass es eine Funktion oder einen Prozess gibt, um dies zu tun, magical_r_function()und wie die erwarteten Ausgaben aussehen würden. my_fun <- function(){ magical_r_function() } my_fun() ## [1] "my_fun" foo_bar <- function(){ magical_r_function() } foo_bar() ## …

15 r

1

Was sind die Einschränkungen für seq.int?

Die seqManpage enthält Folgendes (Hervorhebung von mir): Beschreibung Generieren Sie regelmäßige Sequenzen. seqist ein Standard-Generikum mit einer Standardmethode. seq.intist ein Grundelement, das viel schneller sein kann, aber einige Einschränkungen aufweist . Die Seite beschreibt jedoch nicht wirklich, was diese Einschränkungen sind. Hier ist jede andere Erwähnung von seq.intdort: Argumente [...] …

15 r

4

Verwenden Sie R, um das Lucky 26-Spiel zu lösen

Ich versuche meinem Sohn zu zeigen, wie Codierung verwendet werden kann, um ein von einem Spiel aufgeworfenes Problem zu lösen, und wie R mit Big Data umgeht. Das fragliche Spiel heißt "Lucky 26". In diesem Spiel werden Zahlen (1-12 ohne Duplikate) auf 12 Punkten auf einem Davidstern (6 Scheitelpunkte, 6 …

15 r bigdata permutation

4

Finden Sie unmittelbare Nachbarn nach Gruppe mithilfe von Datentabelle oder igraph

Ich habe eine data.table : groups <- data.table(group = c("A", "B", "C", "D", "E", "F", "G"), code_1 = c(2,2,2,7,8,NA,5), code_2 = c(NA,3,NA,3,NA,NA,2), code_3 = c(4,1,1,4,4,1,8)) group code_1 code_2 code_3 A 2 NA 4 B 2 3 1 C 2 NA 1 D 7 3 4 E 8 NA 4 F …

14 r data.table igraph

2

Wie kann ich programmgesteuert feststellen, wie viele Facetten ein ggplot hat?

Unten finden Sie Code und eine Grafik. Das Diagramm hat drei Facetten. Wo the_plotkann ich feststellen, dass es drei Facetten hat? Ja, ich könnte das aus dem mtcarsDatenrahmen erhalten, oder the_plot$data, aber ich möchte die Datenanalyse nicht neu erstellen. Vielmehr möchte ich die grafischen Elemente von untersuchen the_plot, damit ich …

13 r ggplot2

3

Verwendung einer auf Tidyeval basierenden nicht standardmäßigen Bewertung bei der Rekodierung auf der rechten Seite des Mutats

Stellen Sie sich ein Tibble vor, bei dem jede Spalte ein Zeichenvektor ist, der viele Werte annehmen kann - sagen wir "A" bis "F". library(tidyverse) sample_df <- tibble(q1 = c("A", "B", "C"), q2 = c("B", "B", "A")) Ich möchte eine Funktion erstellen, die einen Spaltennamen als Argument verwendet und diese …

13 r dplyr rlang tidyeval nse

Als «r» getaggte Fragen