library(digest) par4 <- as.numeric(par4) if(exists('par2')) { if (par2 != 'wnga') { if (digest(par2,ser=F) == par3) { par4 = par4 + 4 } if (digest(par2,ser=F) != par3) { par4 = par4 - 2 } } if (par2 == 'wnga') { } } load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'End of MC exam. Please, write the hash code on your paper.',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Hash Code',1,TRUE) a<-table.element(a,digest(paste(par1,'_',par4,sep=''),ser=F)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Your exam score',1,TRUE) a<-table.element(a,par4) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Maximum exam score',1,TRUE) a<-table.element(a,20) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab')
|