R/TrueFalse.R

In RGIFT: Create Quizzes in GIFT Format

Defines functions GIFTTF

Documented in GIFTTF

GIFTTF<-function(qtxt, ans)
{
	if(!is.logical(ans))
		stop("Answer is not logical.")

        cat("\n",qtxt, "{", as.character(ans), "}\n", sep="")
}

Try the RGIFT package in your browser