inst/shiny-squid/source/pages/full_model_sbys/ui_fullmodel_sbys_sampling_design.R

In squid: Statistical Quantification of Individual Differences

span(   
	p(HTML(fullmodelTxt$samplingDesign_1)),
	p(HTML(fullmodelTxt$samplingDesign_2)),

	p(HTML(
	paste('<figure>
	  <img src="pictures/Vit_examples.jpg" alt="The Pulpit Rock">
	  <figcaption><b>Figure 1:</b> example of 2 sampling designs where the among-individual variance in timing of sampling ($',general_VAR$btwIndVarTimSamp,'$) is 0.1 (left) and 0.9 (right).</figcaption>
	  </figure>',sep=""))
	),

	p(HTML(fullmodelTxt$samplingDesign_3)),
	p(HTML(fullmodelTxt$samplingDesign_4))
)