Torleif Markussen Lunde
2006-Jul-06 10:04 UTC
[R] Usage of repeat,while or loop. Documetation?
Hi I want to run the loop described in the example below, but cannot find any good documentation on how to do it. I wold be very happy if someone could help me on this, as it would save me for a lot of work. Kindest regards Torleif University of Bergen/Norway #Sample 1 m<-0 #35-40 #want to repeat this untill m=300 m<-m+1 if (length(type[maling==m&type==1&length>=35&length<=39])>0) a<-length(type[maling==m&type==1&length>=35&length<=39]) else a<-0 if (length(type[maling==m&type==2&length>=35&length<=39])>0) b<-length(type[maling==m&type==2&length>=35&length<=39]) else b<-0 if (length(type[maling==m&type==3&length>=35&length<=39])>0) c<-length(type[maling==m&type==3&length>=35&length<=39]) else c<-0 if (length(type[maling==m&type==4&length>=35&length<=39])>0) d<-length(type[maling==m&type==4&length>=35&length<=39]) else d<-0 if (length(type[maling==m&type==5&length>=35&length<=39])>0) e<-length(type[maling==m&type==5&length>=35&length<=39]) else e<-0 a35<-(a+b)/(a+b+c+d+e); a35<-format(a35,digits=4) l35<-length(length[maling==m&type==1&length>=35&length<=39]) . . . . . #65+ if (length(type[maling==m&type==1&length>=65])>0) a<-length(type[maling==m&type==1&length>=65]) else a<-0 if (length(type[maling==m&type==2&length>=65])>0) b<-length(type[maling==m&type==2&length>=65]) else b<-0 if (length(type[maling==m&type==3&length>=65])>0) c<-length(type[maling==m&type==3&length>=65]) else c<-0 if (length(type[maling==m&type==4&length>=65])>0) d<-length(type[maling==m&type==4&length>=65]) else d<-0 if (length(type[maling==m&type==5&length>=65])>0) e<-length(type[maling==m&type==5&length>=65]) else e<-0 a65<-(a+b)/(a+b+c+d+e); a65<-format(a65,digits=4) l65<-length(length[maling==m&type==1&length>=65]) la1<-latitude[maling==m]; la1<-format(la1[1],digits=9) lo1<-longitude[maling==m]; lo1<-format(lo1[1],digits=9) year1<-year[maling==m]; year1<-format(year1[1],digits=4) mnd1<-mnd[maling==m]; mnd1<-format(mnd1[1],digits=2) dag1<-dag[maling==m]; dag1<-format(dag1[1],digits=2) omr1<-omr[maling==m]; omr1<-format(omr1[1],digits=2) dist1<-dist[maling==m]; dist1<-format(dist1[1],digits=2) start1<-start[maling==m]; start1<-format(start1[1],digits=4) stopp1<-stopp[maling==m]; stopp1<-format(stopp1[1],digits=4) homr1<-homr[maling==m]; homr1<-format(homr1[1],digits=2) skip1<-skip[maling==m]; skip1<-skip1[1] ###################### #Then i want to update the kt1 name to change from kt1 to kt2 to kt3... #kt300. The goal is to create a table with #kt1 #kt2 . . #kt300 #by using rbind. Suggestions on how to update the table as the loop is #running are welcome. ###################### kt1<-c(la1,lo1,year1,mnd1,dag1,omr1,dist1,start1,stopp1,homr1,a30,a35,a40,a45,a50,a55,a60,a65,l30,l35,l40,l45,l50,l55,l60,l65)
Hi nobody has answered your question yet, so I try. There is no reproducible code in your mail. Besides you use names of bult-in functions for your data which gives it really messy lookup. Such tasks can be solved by do.call or maybe *apply but without more information, especially a structure of your data it is difficult to help you more. Petr On 6 Jul 2006 at 12:04, Torleif Markussen Lunde wrote: Date sent: Thu, 06 Jul 2006 12:04:54 +0200 From: Torleif Markussen Lunde <tlu004 at student.uib.no> Organization: UiB To: r-help at stat.math.ethz.ch Subject: [R] Usage of repeat,while or loop. Documetation?> Hi > I want to run the loop described in the example below, but cannot find > any good documentation on how to do it. I wold be very happy if > someone could help me on this, as it would save me for a lot of work. > > Kindest regards > Torleif > University of Bergen/Norway > > #Sample 1 > > m<-0 > > #35-40 > #want to repeat this untill m=300 > m<-m+1 > if (length(type[maling==m&type==1&length>=35&length<=39])>0) > a<-length(type[maling==m&type==1&length>=35&length<=39]) else a<-0 > > if (length(type[maling==m&type==2&length>=35&length<=39])>0) > b<-length(type[maling==m&type==2&length>=35&length<=39]) else b<-0 > > if (length(type[maling==m&type==3&length>=35&length<=39])>0) > c<-length(type[maling==m&type==3&length>=35&length<=39]) else c<-0 > > if (length(type[maling==m&type==4&length>=35&length<=39])>0) > d<-length(type[maling==m&type==4&length>=35&length<=39]) else d<-0 > > if (length(type[maling==m&type==5&length>=35&length<=39])>0) > e<-length(type[maling==m&type==5&length>=35&length<=39]) else e<-0 > > a35<-(a+b)/(a+b+c+d+e); a35<-format(a35,digits=4) > l35<-length(length[maling==m&type==1&length>=35&length<=39]) > > . > . > . > . > . > > #65+ > if (length(type[maling==m&type==1&length>=65])>0) > a<-length(type[maling==m&type==1&length>=65]) else a<-0 > > if (length(type[maling==m&type==2&length>=65])>0) > b<-length(type[maling==m&type==2&length>=65]) else b<-0 > > if (length(type[maling==m&type==3&length>=65])>0) > c<-length(type[maling==m&type==3&length>=65]) else c<-0 > > > if (length(type[maling==m&type==4&length>=65])>0) > d<-length(type[maling==m&type==4&length>=65]) else d<-0 > > if (length(type[maling==m&type==5&length>=65])>0) > e<-length(type[maling==m&type==5&length>=65]) else e<-0 > > a65<-(a+b)/(a+b+c+d+e); a65<-format(a65,digits=4) > l65<-length(length[maling==m&type==1&length>=65]) > > la1<-latitude[maling==m]; la1<-format(la1[1],digits=9) > lo1<-longitude[maling==m]; lo1<-format(lo1[1],digits=9) > year1<-year[maling==m]; year1<-format(year1[1],digits=4) > mnd1<-mnd[maling==m]; mnd1<-format(mnd1[1],digits=2) > dag1<-dag[maling==m]; dag1<-format(dag1[1],digits=2) > omr1<-omr[maling==m]; omr1<-format(omr1[1],digits=2) > dist1<-dist[maling==m]; dist1<-format(dist1[1],digits=2) > start1<-start[maling==m]; start1<-format(start1[1],digits=4) > stopp1<-stopp[maling==m]; stopp1<-format(stopp1[1],digits=4) > homr1<-homr[maling==m]; homr1<-format(homr1[1],digits=2) > skip1<-skip[maling==m]; skip1<-skip1[1] > > ###################### > #Then i want to update the kt1 name to change from kt1 to kt2 to > #kt3... kt300. The goal is to create a table with kt1 kt2 > . > . > #kt300 > #by using rbind. Suggestions on how to update the table as the loop is > #running are welcome. > ###################### > > kt1<-c(la1,lo1,year1,mnd1,dag1,omr1,dist1,start1,stopp1,homr1,a30,a35, > a40,a45,a50,a55,a60,a65,l30,l35,l40,l45,l50,l55,l60,l65) > > ______________________________________________ > R-help at stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide! > http://www.R-project.org/posting-guide.htmlPetr Pikal petr.pikal at precheza.cz