StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
16868511
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2013-06-01T02:28:34.273
FavoriteCount
0
LastActivityDate
2013-06-01T02:28:34.273
LastEditDate
LastEditorUserId
0
OwnerUserId
2441990
ParentId
16868263
PostTypeId
2
Score
2
ViewCount
0
LastEditorDisplayName
text
Body
Instead of doing this: <pre><code>sites10<-as.factor(sample(sites,N*1)) sites5<-as.factor(sample(sites,N*0.5)) sites1<-as.factor(sample(sites,N*0.1)) </code></pre> and running distinct loops for each of the three variables, you can make a general loop and put it in a function, then use one of the <code>-apply</code> functions to call it with specific parameters. For example: <pre><code>N<-10 # number of sites sites<-factor(seq(from=1,to=N)) steps<-10 P.stay<-0.9 simulate.n.sites <- function(n) { n.sites <- sample(sites, n) result<-matrix(0,nrow=steps) time.step<-seq(1,steps) time.step<-data.frame(time.step) time.step$event<-0 j<-numeric(steps) j[1]<-sample(1:N,1) time.step$event[1]<-j[1] for(i in 1:(steps-1)){ if(j[i] %in% n.sites){ ...etc... return(result) } results <- lapply(c(1, 5, 10), simulate.n.sites) </code></pre> Now <code>results</code> will be a list, with three matrix elements. The key is to identify places where you repeat yourself, and then refactor those areas into functions. Not only is this more concise, but it's easy to extend in the future. Want to sample for 2 site? Put a 2 in the vector you pass to <code>lapply</code>. If you're unfamiliar with the <code>-apply</code> family of functions, definitely look into those. I also suspect that much of the rest of your code could be simplified, but I think you've gutted it too much for me to make sense of it. For example, you define an element of time.step$event based on a condition, but then you overwrite that element. Surely this isn't what the actual code does?
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POHow to simplify several for loops into a single loop or function in R
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USPeyton
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POHow to simplify several for loops into a single loop or function in R
 singulars
 PostTypePostTypeId
 PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
2. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTAcceptedByOriginator
3. VO
 singulars
 PostPostId
 PO
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
CommentsPostId
1. COThanks a lot! That was great and super helpful!
 singulars
 PostPostId
 PO
 UserUserId
 USuser1626688

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.