scope - R: Apply, custom function and Dataframe names -


i have data frame indices containing various names correspond data frames (i.e. name "index 1" has corresponding data frame index 1).

now want run custom function calcscores on data frames , add several columns data frame. since i'm not in global environment return "new" data frame , want assign original variable index 1, index 1 has new data frame added columns.

here's code (no chance can make 100% reproducible since data custom hope understand question).

# here unique index names derived , stored # problem index names stored "index 1", "index 2" etc. # thats why have adjust these #titles , create individual data frames indices <- unique(df[1]) apply(unique(df[1]), 1, function(x){     assign(gsub(" ","",x,fixed=true), subset(df,ticker==x), envir = .globalenv) })  calcrollingaverage <- function(parameter, lookbackwindow){     output <- rollapply(parameter, lookbackwindow, mean, fill=na, partial=false,                         align="right") }  calcscores<-function(index, lookbackwindow){     index$pe_avg = calcrollingaverage(index$pe_ratio, lookbackwindow)     index$pe_div_avg = index$pe_ratio/index$pe_avg     index$pe_score = cut(index$pe_div_avg, breaks=pe_breaks, labels=grades)      return(index) }  apply(indices,1,function(x) assign(gsub(" ","",x,fixed=true), calcscores(get(gsub(" ","",x,fixed=true)),lookback_window)))

i guess problems in apply , whole get, assign , gsub story. scoping here issue... @ moment apply gives following error:

error: unexpected symbol in: "apply(indices,1,function(x) assign(gsub(" ","",x,fixed=true), calcscores(get(gsub(" ","",x,fixed=true)),lookback_window)) apply"

ok solved it...sorry post. solution: envir = .globalenv

apply(indices,1,function(x) assign(gsub(" ","",x,fixed=true), calcscores(get(gsub(" ","",x,fixed=true)),lookback_window),envir = .globalenv))

Comments

Post a Comment

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

rewrite - Trouble with Wordpress multiple custom querystrings -

i'm working on adding multiple querystring , doesn't seem work. i've found codes seems work others might i'm missing something. i want like: http://mydomain.com/board/?getyear=2013&getsometext2=sometext to http://mydomain.com/board/2013/sometext/ i added code below functions.php file. doesn't seem work should though. this works. echoing querystring gets both variable without problem. http://mydomain.com/board/2013/sometext/ but doesn't. tested querystring vis isset() seems nothing being set/get http://mydomain.com/board/2013/ function add_query_vars($vars) { $vars[] = "getyear"; $vars[] = "getsometext2"; return $vars; } add_filter('query_vars', 'add_query_vars'); function add_rewrite_rules($arules) { $anewrules = array('board/([^/]+)/([^/]+)/?$' => 'index.php?pagename=board&getyear=$matches[1]&getsometext2=$matches[2]'); $arules = $a...
Read more