## Not run: link<-"R:/test.txt"
## Not run: id<-identity("auto",link=link)
## Not run: Q1<-slide(id=id,type=7,title="Question 1",content="Would you take the milk if
# it costs $",h=0,v=80,size=2,col="black",initial=3,increment=1,order="descending"
# ,box.level=70)## End(Not run)
## Not run: Q2<-slide(id=id,type=5,title="Question 2",content=c("The market price is $"
# ,"(0 refers to 'Strongly disagree' ... 5 refers to 'Strongly agree')"),h=c(0,0)
# ,v=c(80,70),size=c(2,1.5),col=c("black","orange"),cond=seq(10,12,0.5),scale=seq(0,5,0.5)
# ,box.level=50)## End(Not run)
## Not run: read.write(rbind(Q1,Q2),link=link) #rbind is used to form a bundled
# matrix-type responses## End(Not run)
Run the code above in your browser using DataLab