doc/vignette-homework.R

In popiela/homework: Homework assignment

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ---- warning=FALSE, message=FALSE, echo=FALSE------------------------------------------------------------------------------------------------------
library(knitr)
opts_chunk$set(
	comment = "",
	#fig.width = 12, 
	message = FALSE,
	warning = FALSE,
	tidy.opts = list(
		keep.blank.line = TRUE,
		width.cutoff = 150
		),
	options(width = 150),
	eval = TRUE,
	echo = TRUE,
	fig.height =8,
	fig.width = 6,
	fig.align = "left"
)
# print head
# don't print long-lines

## ----setup------------------------------------------------------------------------------------------------------------------------------------------

library(homework)


## ----echo=FALSE, message=FALSE, warning=FALSE-------------------------------------------------------------------------------------------------------

knitr::kable(
 homework::model_ordinal(experiment_data) 
)



## ----echo=FALSE, message=FALSE, warning=FALSE-------------------------------------------------------------------------------------------------------
homework::demo_plot(survey_data)


## ----echo=FALSE, message=FALSE, warning=FALSE-------------------------------------------------------------------------------------------------------

homework::behavioral_plot(survey_data)


## ----echo=FALSE, message=FALSE, warning=FALSE-------------------------------------------------------------------------------------------------------
knitr::kable(
 homework::kmeans_cluster(survey_data) 
)


## ----echo=FALSE, message=FALSE, warning=FALSE-------------------------------------------------------------------------------------------------------

knitr::kable(
 homework::ward_cluster(survey_data) 
)