id <- rep(c(300,450), each=6)
> visit <- rep(1:6,2)
> trt <- rep(c(0,"A",0,"B",0,"C"),2)
> q1 <- c(0,100,0,89,0, 60,0,85,0,40,0, 20)
> df <- data.frame(id,visit,trt,q1)
> df
    id visit trt  q1
1  300     1   0   0
2  300     2   A 100
3  300     3   0   0
4  300     4   B  49
5  300     5   0   0
6  300     6   C  60
7  450     1   0   0
8  450     2   A  91
9  450     3   0   0
10 450     4   B  40
11 450     5   0   0
12 450     6   C  20
>