Randomly Assign Integers in R within groups without replacement -

-

i running experiment 2 experiments: experiment_1 , experiment_2. each experiment has 5 different treatments (i.e. 1, 2, 3, 4, 5). trying randomly assign treatments within groups.

we via sampling without replacement iteratively within each group. want insure balanced sample possible in treatment (e.g. don't want end 4 subjects in group 1 getting assigned treatment 2 , no 1 getting treatment 1). if group has 23 subjects, want split respondent 4 subgroups of 5, , 1 subgroup of 3. want randomly sample without replacement across first subgroup of 5, gets assigned 1 of treatments, same things the second, third , 4th subgroup of 5, , final subgroup of 3 randomly sample without replacement. guarantee every treatment assigned @ least 4 subjects, , 3 assigned 5 subjects within group. groups in experiment , both treatments. resultant output this... 

         group   experiment_1   experiment_2     [1,]     1           5             3     [2,]     1           3             2     [3,]     1           4             4     [4,]     1           1             5     [5,]     1           2             1     [6,]     1           2             3     [7,]     1           4             1     [8,]     1           3             2     [9,]     2           5             5    [10,]     2           1             4    [11,]     2           3             4    [12,]     2           1             5    [13,]     2           2             1       .      .           .             .       .      .           .             .       .      .           .             .

i know how use sample function, unsure how sample without replacement within each group, our output corresponds above described procedure. appreciated.

i think need shuffle sample ids, see example:

set.seed(124) #prepare groups , samples(shuffled) df <- data.frame(group=sort(rep(1:3,9)),                   sampleid=sample(1:27,27))  #treatments repeated nrow of df df$ex1 <- rep(c(1,2,3,4,5),ceiling(nrow(df)/5))[1:nrow(df)] df$ex2 <- rep(c(2,3,4,5,1),ceiling(nrow(df)/5))[1:nrow(df)]  df <- df[ order(df$group,df$sampleid),]  #check treatment distribution with(df,table(group,ex1)) #       ex1 # group 1 2 3 4 5 #     1 2 2 2 2 1 #     2 2 2 2 1 2 #     3 2 2 1 2 2 with(df,table(group,ex2)) #       ex2 # group 1 2 3 4 5 #     1 1 2 2 2 2 #     2 2 2 2 2 1 #     3 2 2 2 1 2

Comments

Post a Comment

Popular posts from this blog

qt - Using float or double for own QML classes -

-
i've created components , helper methods using c++ , qt used in qml gui. of methods calculate gui elements (size, transformations, scene graph items creation). target arm 32 bit using opengl / eglfs render output. opengl using float , qml using real (defined double ). what should use in c++ do not lose precision? if use qreal ( double ) shouldn't lose precision. if git grep float in qtbase.git , can find out bit more: dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0-* important behavior changes * dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0- dist/changes-5.2.0- - qt compiled qreal typedef'ed double on dist/changes-5.2.0: platforms. qreal float on arm chipsets before. guarantees more dist/changes-5.2.0- consistent behavior between platforms qt supports, binary dist/chan...
Read more

Create Outlook appointment via C# .Net -

-
i need create outlook appointment using microsoft.office.interop.outlook , while can work locally on own workstation , works if run web application via server's browser, not work when connect server externally. hence, think might permission issue. i changed application pool identity " localsystem " don't access denied error. unfortunately, doesn't work. the app behaves if appointment created, appointment doesn't appear in outlook. here include file on top of aspx.cs page using outlook = microsoft.office.interop.outlook; here code using pop appointment. outlook.application apptapp = new outlook.application(); outlook.appointmentitem appt = apptapp.createitem(outlook.olitemtype.olappointmentitem) outlook.appointmentitem; appt.subject = txtfirstname.text + " " + txtlastname.text; appt.body = txtcomment.text; appt.alldayevent = false; appt.start = datetime.parse(txtreminderdate.text + " 8:00 am"); appt.end = datetime.p...
Read more

ios - Swift Array Resetting Itself -

-
i have 2 arrays: pointhistory , datehistory . have nstimer , , when timer runs out, action called. in action appending int pointhistory , , current date string datehistory . here timer action: func timeraction() { let steppervalue = int(stepper.value) employee.numberofpoints = steppervalue networking.saveemployee(employee, completion: { (error) -> void in if error != nil { let alert = uialertcontroller(title: "error", message: "there error updating \(self.employee.name)'s points", preferredstyle: .alert) let alertaction = uialertaction(title: "ok", style: .cancel, handler: nil) alert.addaction(alertaction) self.presentviewcontroller(alert, animated: true, completion: nil) } }) var dateformatter = nsdateformatter() dateformatter.dateformat = "mm-dd-yyyy" dateformatter.timezone = nstimezone.localtimezone() var date = nsdate() var ...
Read more