Zuordnung über get() und Paste()

Question

In meinem Code habe ich ein Objekt erstellen, einige Werte zuweisen, so etwas wie folgt aus:

assign(paste("a","bis",sep="."),rep(NA,5)) 

dann habe ich einige von ihnen zu ersetzen, wie folgt aus:

Aber ich bekomme den folgenden Fehler: "Fehler in get (einfügen", "bis", sep = ".")) [1: 2] < - 7: 8: Ziel der Zuweisung erweitert auf nichtsprachliches Objekt ".

Natürlich ist der obige Code eine vereinfachte Version des echten. Was ich versuche, ist eine Schleife zu erstellen, die es mir erlaubt, die Ergebnisse einiger Berechnungen in einem Datenrahmen zu ersetzen. So etwas wie diese

assign(paste(country[j],"ext",sep="."), 
     data.frame(Year=rep(unique(get(country[j])$Year),each=24), 
     Age=rep(c(0,1,seq(5,110,5)),length(unique(get(country[j])$Year))), 
     mx=NA,qx=NA,lx=NA,Lx=NA,Tx=NA,ex=NA)) 

get(paste(country[j],".ext",sep=""))$mx[(24*i-24+1):(24*i)] <- 
    c(subset(get(country[j]),Age<=70 & Year==year)$mx,mx.ext) 

in diesem Fall zeigt der Fehler, dass: * Fehler in get (Paste (Land [j] ".ext", sep = "")) $ mx [(24 * i - 24 + 1) :(24 *: konnte nicht funktionieren "< bekommen -" finden *

Vielen Dank im Voraus

Answer 1

Sie wäre besser dran, diese Elemente in einer Liste Speicher

myList <- list() 
myList[[paste("a","bis",sep=".")]] <- rep(NA,5)) 

.. oder

myList[[paste(country[j],"ext",sep=".")]] <- data.frame(Year=rep(unique(get(country[j])$Year),each=24), 
          Age=rep(c(0,1,seq(5,110,5)),length(unique(get(country[j])$Year))), 
          mx=NA,qx=NA,lx=NA,Lx=NA,Tx=NA,ex=NA)) 

Dies entlastet Sie von den Schmerzen der get() und assign() und auch für Looping/Anlegen Ihrer Daten in schöner Struktur setzt.