# NOT RUN {
# Serially alternating panel revisit design summary
sa.dsgn <- revisit_dsgn(20, panels=list(SA60N=list(n=60, pnl_dsgn = c(1, 4),
pnl_n=NA, start_option="None")), begin=1 )
panel_summary(sa.dsgn)
# Add visit design where first panel is sampled twice at every time period
sa.visit <- sa.dsgn
sa.visit [sa.visit > 0] <- 1
sa.visit [1, sa.visit[1,] > 0] <- 2
panel_summary(sa.dsgn, sa.visit)
# }
Run the code above in your browser using DataLab