Hi,
You may try:
dat1 <- structure(list(SubID = 1:8, CSE1 = c(6L, 6L, 5L, 5L, 5L, 5L,
3L, 3L), CSE2 = c(5L, 4L, 5L, 4L, 6L, 4L, 6L, 6L), CSE3 = c(6L,
7L, 5L, 3L, 7L, 3L, 6L, 6L), CSE4 = c(2L, 2L, 5L, 4L, 5L, 6L,
3L, 3L), WSE1 = c(6L, 6L, 5L, 4L, 6L, 4L, 6L, 6L), WSE2 = c(2L,
6L, 5L, 4L, 4L, 3L, 5L, 5L), WSE3 = c(2L, 2L, 4L, 5L, 4L, 7L,
2L, 4L), WSE4 = c(4L, 3L, 5L, 2L, 1L, 3L, 1L, 7L)), .Names =
c("SubID",
"CSE1", "CSE2", "CSE3", "CSE4",
"WSE1", "WSE2", "WSE3", "WSE4"
), class = "data.frame", row.names = c(NA, -8L))
fun1 <- function(dat, rep){
res <- replicate(rep,{
?lst1 <-lapply(sample(nrow(dat),nrow(dat)),function(x) sample(dat[x,2:5],4))
names(lst1) <- sapply(lst1,row.names)
lst1[-c(1:2)] <- lapply(names(lst1)[-c(1:2)],function(i) {
??? ??? ??? x1 <-
dat[i,6:9][is.na(match(gsub("^.","",names(dat[i,6:9])),gsub("^.","",names(lst1[[i]][1]))))]
??? ??? ??? ?cbind(lst1[[i]][1], sample(x1,3))
??? ??? ???
??? ??? ??? ??? }
??? ??? ??? ??? )
?do.call(rbind,lapply(lst1,function(x) {datNew <- cbind(SubID=
as.numeric(row.names(x)), x); names(datNew)[-1] <- "var"; datNew}))
})
res
}
?res1 <- fun1(dat1,5)
lst2 <- lapply(split(res1,col(res1)), function(x) {dat <-
do.call(cbind,x); colnames(dat) <- c("SubID",
rep("var",4));dat})
do.call(cbind,res1[,1])
do.call(cbind,res1[,2])
A.K.
I have a question about drawing samples from a data frame. This might
sound really tricky. Let me use a data frame I have posted earlier as an
example:
? ? SubID ? ?CSE1 CSE2 CSE3 CSE4 WSE1 WSE2 WSE3 WSE4
? ? ? 1 ? ? ? ? ?6 ? ? ?5 ? ? ? 6 ? ? ? 2 ? ? ?6 ? ? ?2 ? ? ? ?2 ? ? ? 4
? ? ? 2 ? ? ? ? ?6 ? ? ?4 ? ? ? 7 ? ? ? 2 ? ? ?6 ? ? ?6 ? ? ? ?2 ? ? ? 3
? ? ? 3 ? ? ? ? ?5 ? ? ?5 ? ? ? 5 ? ? ? 5 ? ? ?5 ? ? ?5 ? ? ? ?4 ? ? ? 5
? ? ? 4 ? ? ? ? ?5 ? ? ?4 ? ? ? 3 ? ? ? 4 ? ? ?4 ? ? ?4 ? ? ? ?5 ? ? ? 2
? ? ? 5 ? ? ? ? ?5 ? ? ?6 ? ? ? 7 ? ? ? 5 ? ? ?6 ? ? ?4 ? ? ? ?4 ? ? ? 1
? ? ? 6 ? ? ? ? ?5 ? ? ?4 ? ? ? 3 ? ? ? 6 ? ? ?4 ? ? ?3 ? ? ? ?7 ? ? ? 3
? ? ? 7 ? ? ? ? ?3 ? ? ?6 ? ? ? 6 ? ? ? 3 ? ? ?6 ? ? ?5 ? ? ? ?2 ? ? ? 1
? ? ? 8 ? ? ? ? ?3 ? ? ?6 ? ? ? 6 ? ? ? 3 ? ? ?6 ? ? ?5 ? ? ? ?4 ? ? ? 7
this data frame have two sets of variables. each set simply
represent one scale. as shown above, the first scale, say CSE, consists
of four items: CSE1, CSE2, CSE3, and CSE4, whereas the second scale, say
WSE, also has four items: WSE1, WSE2, WSE3, WSE4.
the leftmost column lists the subjects' ID.
I wanna create a new data frame through sampling random numbers
from the data frame above. Below is the structure of the new data frame.
? ? SubID ? ?var ? ?var ? var ? ? var
? ? ? s ? ? ? ? ?c ? ? ?c ? ? ?c ? ? ? c ? ? ?
? ? ? s ? ? ? ? ?c ? ? ?c ? ? ?c ? ? ? c ? ? ?
? ? ? s ? ? ? ? ?c ? ? ?w ? ? w ? ? ? w ? ? ?
? ? ? s ? ? ? ? ?c ? ? ?w ? ? w ? ? ? w ? ? ? ? ?
? ? ? s ? ? ? ? ?c ? ? ?w ? ? w ? ? ? w ? ? ? ?
? ? ? s ? ? ? ? ?c ? ? ?w ? ? w ? ? ? w ? ? ? ?
? ? ? s ? ? ? ? ?c ? ? ?w ? ? w ? ? ? w ? ? ? ?
? ? ? s ? ? ? ? ?c ? ? ?w ? ? w ? ? ? w
in the new data frame:
?
s= SubID range from 1 to 8
var= variables
c=CSE numbers
w=WSE numbers
some rules to construct the new data frame:
1. the top two rows have to be filled with CSE numbers; the
numbers in the cells of each row should be randomized. for example, if
the first row is an array of numbers from subject 4, they can follow the
order: 4(CSE2), 5(CSE1), 3(CSE3), and 4(CSE4). Also, the numbers in the
second row does not have to follow the order of the first row. for
example, similarly, if the first row is an array of numbers from subject
4 in the order: 4(CSE2), 5(CSE1), 3(CSE3), and 4(CSE4), numbers in the
second row (assuming it is from subject 8) does not have to be 6(CSE2),
3(CSE1), 6(CSE3), and 3(CSE4). numbers in these two rows should be drawn
without replacement.
2. each of the rest of the rows should include a CSE number in
the leftmost cell and three WSE numbers on the right. At the same time,
in each row, the three WSE numbers on the right have to be only those
numbers that are not corresponding to the CSE number in the leftmost
cell. For example, if the CSE number in the leftmost cell is 4, a CSE2
number from subject 6, the three WSE numbers on the right side can only
be 4(WSE1), 7(WSE3), and 3(WSE4) from subject 6.
3. the numbers in each row can only be drawn from the same
subject. Also, Subjects should be randomized. Specifically, they does
have to be in the following order:
?SubID ? ?
? ? ? 1 ? ? ? ?
? ? ? 2 ? ? ? ? ?
? ? ? 3 ? ? ? ?
? ? ? 4 ? ? ? ? ?
? ? ? 5 ? ? ? ? ?
? ? ? 6 ? ? ? ? ?
? ? ? 7 ? ? ? ? ?
? ? ? 8 ? ?
? ? ?
they can be:
?SubID ? ?
? ? ? 2 ? ? ? ?
? ? ? 8 ? ? ? ? ?
? ? ? 5 ? ? ? ?
? ? ? 4 ? ? ? ? ?
? ? ? 1 ? ? ? ? ?
? ? ? 6 ? ? ? ? ?
? ? ? 7 ? ? ? ? ?
? ? ? 3
4. repeat the whole process 1000 times to draw 1000 random samples
Any ideas? ?Thanks in advance!! :)
