<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 12 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0in;
        margin-bottom:.0001pt;
        font-size:11.0pt;
        font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
span.EmailStyle17
        {mso-style-type:personal-compose;
        font-family:"Calibri","sans-serif";
        color:windowtext;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page WordSection1
        {size:8.5in 11.0in;
        margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
        {page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=EN-US link=blue vlink=purple><div class=WordSection1><p class=MsoNormal>All,<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Trying to use := well but get errors and warnings and am looking for an elegant way to subset and use := together when multiple variables are being created and factors are involved.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Here’s some code showing what I’m trying to do. Any help in doing this better greatly appreciated:<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>#########################################################<o:p></o:p></p><p class=MsoNormal>###<o:p></o:p></p><p class=MsoNormal>### Test of data.table and :=<o:p></o:p></p><p class=MsoNormal>###<o:p></o:p></p><p class=MsoNormal>#########################################################<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>require(data.table)<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>### Base data.table<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>test.dt <- data.table(ID=rep(1:10, 2), CONTENT_AREA=as.factor(rep(c("MATH", "READ"), each=10)), X=rnorm(10))<o:p></o:p></p><p class=MsoNormal>setkeyv(test.dt, c("ID", "CONTENT_AREA"))<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>test.dt<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>### Values to be looked up<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>my.lookup <- data.table(ID=1:5,  CONTENT_AREA=as.factor("MATH"))<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>my.lookup<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>### Data table to be added to the original data.table<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>my.additional.table <- data.table(my.lookup, VALID_CASE=factor(1, levels=1:2, labels=c("VALID_CASE", "INVALID_CASE")), Y=as.factor(letters[1:5]), Z=101:105)<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>my.additional.table<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>### First attempt with error<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>test.dt[my.lookup, names(my.new.table) := my.additional.table, with=FALSE, mult="first"]<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>### Create the variables in test.dt using := (but gives warnings and is cumbersome to have to specify the class of the variables that are going to be created)<o:p></o:p></p><p class=MsoNormal>### NOTE: <o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>for (i in c("VALID_CASE", "Y", "Z")) {<o:p></o:p></p><p class=MsoNormal>                test.dt[, i := NA_integer_, with=FALSE, mult="first"]<o:p></o:p></p><p class=MsoNormal>                class(test.dt[[i]]) <- class(my.additional.table[[i]])<o:p></o:p></p><p class=MsoNormal>                if (is.factor(test.dt[[i]])) levels(test.dt[[i]]) <- levels(my.additional.table[[i]])<o:p></o:p></p><p class=MsoNormal>}<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>### Sucessfully perform the variable creation on the rows indicated by my.lookup<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>test.dt[my.lookup, names(my.additional.table) := my.additional.table, with=FALSE, mult="first"]<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Damian Betebenner<span style='color:navy'><o:p></o:p></span></p><p class=MsoNormal>Center for Assessment<span style='color:navy'><o:p></o:p></span></p><p class=MsoNormal>PO Box 351<span style='color:navy'><o:p></o:p></span></p><p class=MsoNormal>Dover, NH   03821-0351<span style='color:navy'><o:p></o:p></span></p><p class=MsoNormal><span style='color:navy'> <o:p></o:p></span></p><p class=MsoNormal>Phone (office): (603) 516-7900<span style='color:navy'><o:p></o:p></span></p><p class=MsoNormal>Phone (cell): (857) 234-2474<span style='color:navy'><o:p></o:p></span></p><p class=MsoNormal>Fax: (603) 516-7910<span style='color:navy'><o:p></o:p></span></p><p class=MsoNormal><span style='color:navy'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:10.0pt;color:navy'><a href="mailto:dbetebenner@nciea.org"><span style='color:blue'>dbetebenner@nciea.org</span></a><o:p></o:p></span></p><p class=MsoNormal><span style='font-size:10.0pt;color:navy'><a href="http://www.nciea.org/"><span style='color:blue'>www.nciea.org</span></a><o:p></o:p></span></p><p class=MsoNormal><span style='font-size:10.0pt;color:navy'><o:p> </o:p></span></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>