Assigning a value to the global variable (and a argument of a function aswell) R -

-

i working on master thesis (model of evolutionary trust game). , have following problem. have several types of investors , trustees paired play trust game. investors , trustees defined vectors. code(trust game) takes (globally defined) investor , trustee. play iteration of trust game , globally defined variables updated inside function trust game. work investor\trustee used argument of function trustgame. know how code this? not sure aswell if post code aswell.

    #### defining trustees #### # [1] honor\abuse # [2] information previous interaction - relevant investors buy information # [3] payoff # [4] number of interactions trustee1 <- c(1,0,0,0) #### defining investors #### # [1] buy\not buy # [2-4] investment decision if buying information in case 1(th), case 2(ta), case 3(nt) # [5] aggregated payoff # [6] number of interactions in 1 generation investor1 <- c(1,1,1,1,0,0)   here code trust game  trustgame <- function(investor,trustee) { investordecision <- null trusteedecision <- trustee[1] investor[6] <- investor[6]+1 trustee[4] <- trustee[4]+1 if (investor[1]==0) investordecision <- investor[2] if (investor[1]==1) { if (trustee[2]==1) investordecision <- investor[2] if (trustee[2]==2) investordecision <- investor[3] if (trustee[2]==3) investordecision <- investor[4] if (trustee[2]==0) investordecision <- rbinom(1,1,0.5) } if (investordecision==1 && trustee[2]==1) trustee[2] <- 1 if (investordecision==1 && trustee[2]==0) trustee[2] <- 2   if (investordecision==0) trustee[2] <- 3  if (investordecision==1 && trusteedecision==1) {trustee[3] <- trustee[3] +3 investor[5] <- investor[5] + 3 } if (investordecision==1 && trusteedecision==0) {trustee[3] <- trustee[3] +5 investor[5] <- investor[5] + 0 } if (investordecision==0 && trusteedecision==0) {trustee[3] <- trustee[3] +1 investor[5] <- investor[5] + 1 } if (investordecision==0 && trusteedecision==1) {trustee[3] <- trustee[3] +1 investor[5] <- investor[5] + 1 }  }

if inputs strings, can use get , assign change values in global environment this:

trustee1 <- c(1,0,0,0) investor1 <- c(1,1,1,1,0,0)  trustgame <- function(investor_string,trustee_string){    investor <- get(investor_string, envir = globalenv())   trustee <- get(trustee_string, envir = globalenv())   investordecision <- null   trusteedecision <- trustee[1]   investor[6] <- investor[6]+1   trustee[4] <- trustee[4]+1   if (investor[1]==0) investordecision <- investor[2]   if (investor[1]==1){      if (trustee[2]==1) investordecision <- investor[2]     if (trustee[2]==2) investordecision <- investor[3]     if (trustee[2]==3) investordecision <- investor[4]     if (trustee[2]==0) investordecision <- rbinom(1,1,0.5)   }   if (investordecision==1 && trustee[2]==1) trustee[2] <- 1   if (investordecision==1 && trustee[2]==0) trustee[2] <- 2     if (investordecision==0) trustee[2] <- 3    if (investordecision==1 && trusteedecision==1){     trustee[3] <- trustee[3] +3     investor[5] <- investor[5] + 3    }   if (investordecision==1 && trusteedecision==0){     trustee[3] <- trustee[3] +5     investor[5] <- investor[5] + 0    }   if (investordecision==0 && trusteedecision==0){     trustee[3] <- trustee[3] +1     investor[5] <- investor[5] + 1    }   if (investordecision==0 && trusteedecision==1){     trustee[3] <- trustee[3] +1     investor[5] <- investor[5] + 1    }   assign(trustee_string, trustee, envir = globalenv())   assign(investor_string, investor, envir = globalenv()) }  trustgame("investor1", "trustee1") > investor1 [1] 1 1 1 1 1 1 > trustee1 [1] 1 3 1 1

Comments

Post a Comment

Popular posts from this blog

javascript - Laravel datatable invalid JSON response -

-
everything work fine on code below fetch user logs: js: <script> $(document).ready(function () { var table =$('#systemlogs').datatable({ responsive: true, processing: true, serverside: true, "language": { "url": "/datatables/media/plug-in/persian.json" }, ajax: '{!! url('/admin/systemlogs/data/systemlogsdatatable') !!}', columns: [ { data: 'name', name: 'name' }, { data: 'message_text', name: 'message_text' }, { data: 'remote_addr', name: 'remote_addr' }, { data: 'log_created_at', name: 'management_logs.created_at' }, { data: 'log_updated_at', name: 'management_logs.updated_at' }, ] }); }); </script> routes: route::get('/systemlogs/data/systemlogsdatatable','systemlogscontrolle...
Read more

java - Exception in thread "main" org.springframework.context.ApplicationContextException: Unable to start embedded container; -

-
i getting error when run spring application: exception in thread "main" org.springframework.context.applicationcontextexception: unable start embedded container; nested exception org.springframework.context.applicationcontextexception: unable start embeddedwebapplicationcontext due missing embeddedservletcontainerfactory bean. @ org.springframework.boot.context.embedded.embeddedwebapplicationcontext.onrefresh(embeddedwebapplicationcontext.java:124) @ org.springframework.context.support.abstractapplicationcontext.refresh(abstractapplicationcontext.java:476) @ org.springframework.boot.context.embedded.embeddedwebapplicationcontext.refresh(embeddedwebapplicationcontext.java:109) @ org.springframework.boot.springapplication.refresh(springapplication.java:691) @ org.springframework.boot.springapplication.run(springapplication.java:320) @ org.springframework.boot.springapplication.run(springapplication.java:952) @ org.springframework.boot.springa...
Read more

sql server 2008 - My Sql Code Get An Error Of Msg 245, Level 16, State 1, Line 1 Conversion failed when converting the varchar value '8:45 AM' to data type int -

-
msg 245, level 16, state 1, line 1 conversion failed when converting varchar value '8:45 am' data type int. script declare @specimenid bigint = 0, @script varchar(max); declare @starttime int = (select convert(int,substring(start_time,0,charindex(':', start_time)) - 12) appt appt._id=112601) --select @starttime set @script = 'select distinct ptlast_name + '', '' + pt.first_name patient_name, dbo.formatdate(pt.dob,''mm/dd/yyyy'') dob, (convert(varchar, (datediff(yy, dob, appt_date) - case when (month(dob) > month(appt_date)) or (month(dob) = month(appt_date) , day(dob) > day(appt_date)) 1 else 0 end)) + ''/'' + convert(varchar, (datediff(m, dateadd(yy, (datediff(yy, dob, appt_date) - case when (month(dob) > month(appt_date)) or (month(dob) = month(appt_date) , day(dob) > day(appt_date)) 1 else 0 end), d...
Read more