MyTest

fmin1=function(x,y,t) {f=predc1(t,x) g=x[4] e=sum( ((y-f)/g)^2+log(g^2)) }
fmin2=function(x,y,t) {f=predc2(t,x) g=x[4] e=sum( ((y-f)/g)^2+log(g^2)) }
#-------- MLE --------#
pk.nlm1=nlm(fmin1,c(0.3,6,0.2,1),y,t,hessian="true") psi1=pk.nlm1$estimate</div></code> <br> pk.nlm2=nlm(fmin2,c(3,10,0.2,4),y,t,hessian="true") <br> <code><div style="font-family:'courier new';font-size:12pt;">psi2=pk.nlm2$estimate		>cat(" psi1 =",psi1,"\n\n") psi1 = 0.3240916 6.001204 0.3239337 0.4366948 >cat(" psi2 =",psi2,"\n\n") psi2 = 3.203111 8.999746 0.229977 0.2555242

This paragraph is before the table. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod...

Col 1, row 1 Col 2, row 1 (and 2) Col 3, row 1 Col 1, row 2 Col 3, row 2

Note the floating-table to the right.

This paragraph is after the table. The text in column 2 will span both rows due to format specifier "rowspan=2" so there is no coding for "Col 2" in the 2nd row, just: Col 1 & Col 3.