Double for loop in R -


i want create data set using following code, aim add blank row between each group, , 3 blank rows between each treatment. wish looks following dataset. 

value group treatment  39.7             1  53.5             1  51.1             1  67.8             1   84.8     b         1  80.3     b         1  79.6     b         1  84.3     b         1     31.0     c         2  32.0     c         2  33.0     c         2  34.0     c         2    1.0     d         2   2.0     d         2   3.0     d         2   4.0     d         2

i wrote down double for loop doesn't work well. can't figure out. can tell me problem it? 

mydata <- data.frame(value=c(39.7,53.5,51.1,67.8,84.8,80.3,79.6,84.3,31,32,33,34,1,2,3,4),group=c("a","a","a","a","b","b","b","b","c","c","c","c","d","d","d","d"),treatment=c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2))  blank <- data.frame(value=na,group="na",treatment=na) blank1 <- data.frame(value=c(na,na,na),group=c("na","na","na"),treatment=c(na,na,na))  uni<-unique(mydata$treatment) b<-length(uni) out <- c() out1<-c()  (i in 1:b) {   emp<-subset(mydata,treatment==uni[i])   uni1<-unique(emp$group)   c<-length(uni1)   (j in 1:c){     emp1<-subset(subset(mydata,treatment==uni[i]),group==uni1[j])     stack<-rbind(emp1,blank)     out<-rbind(stack,out)   }   stack1<-rbind(out,blank1)   out1<-rbind(stack1,out1) }

i can't imagine practical reason having data blank rows in such pattern, i'm assuming printing:

printables <- lapply(   split(mydata,mydata$treatment),   function(t)     split(t,as.character(t$group)))  (t in seq_along(printables)){   for(g in seq_along(printables[[t]])){     print(printables[[t]][[g]],row.names=false)     cat('\n')   }   cat('\n\n') }

Comments

Post a Comment

Popular posts from this blog

c++ - Difference between pre and post decrement in recursive function argument -

i have following sample code used pre-decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(--c); cout << c << endl; return; } } this function give output input 4 : dp3 dp2 dp1 dp0 0 1 2 3 but when use post decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(c--); cout << c << endl; return; } } output goes in infinite loop dp4 can explain me in detail why happens ? this happens because function(c--) called same value of c , when finishes c decremented. recursively called, hence called same value no chance of return , hit stack overflow error. assume this, int x = 1, y = 0; y = x++ result y == 1 , x == 2. if y = ++x , bot x , y 2.
Read more

php - Nothing but 'run(); ' when browsing to my local project, how do I fix this? -

i added new project. made mistake in projectname.conf file in sites-available apache2, led me reinstalling apache2. after reinstalling , re-enabling projects on every page of every project .. <body> run(); </body> .. i've run composer update, restarted service, restarted pc, checked config files, tried disabling new project. there nothing in error log, , access.log: 127.0.0.1 - - [15/may/2015:01:40:47 +0200] "get / http/1.1" 304 181 "-" "mozilla/5.0 (x11; ubuntu; linux x86_64; rv:38.0) gecko/20100101 firefox/38.0" maybe i'm forgetting apache2 reinstall? don't think did different last time installed it. looks haven't setup php correctly. take @ this great guide , maybe you're forgetting link php config apache2.
Read more

php - How can I echo out this array? -

i don't know how go grabbing data in variable , put foreach loop. class tree{ private $info = array( array('name'=>'jim','state'=>'nu','company'=>'nu','phone'=>array('cell'=>'5615111111','office'=>'5611111111'),'email'=>array('primary'=>'exs@example.com','ex@there.com')), array('name'=>'joe smith','city'=>'phoenix','phone'=>'4805551111','email'=>'jsmith@some_email.com'), array('name'=>'john doe','city'=>'chandler','company'=>'doe co.','email'=>array('jdoe@gmail.com','personal'=>'email@email.com'),'phone'=>'6025550002') ); } if you're inside of class, can access private variable using $this->variablename . example, i...
Read more