d <- c(0.15, 0.14, 0.19, 0.35, 0.14, 0.25, 0.39, 0.46, 0.58, 0.69, 0.64, 0.69)

t2 <- c(0.11, 0.13, 0.13, 0.75, 0.21, 0.21, 0.80, 0.74, 0.77, 0.77, 0.76, 0.80)

mean(abs(d-t2))

to <- c(0.14, 0.17, 0.17, 0.21, 0.27, 0.27, 0.67, 0.67, 0.67, 0.67, 0.69, 0.74)

mean(abs(d-to))

t32 <- c(0.13, 0.16, 0.16, 0.66, 0.26, 0.26, 0.76, 0.68, 0.69, 0.69, 0.70, 0.75)

mean(abs(d-t32))

t34 <- c(0.14, 0.17, 0.17, 0.21, 0.27, 0.27,0.67, 0.17, 0.24, 0.28, 0.68, 0.74)

mean(abs(d-t34))

t40 <- c(0.17, 0.20, 0.20, 0.25, 0.31, 0.31, 0.63, 0.20, 0.43, 0.32, 0.17, 0.69)

mean(abs(d-t40))

om4 <- function(tt){
	dd <- rep(0,11)
	ttt <- rep(0,11)
	for(ii in 1:11){
		jj <- ii
		if(ii > 3) jj <-jj + 1
		dd[ii] <- d[jj]
		ttt[ii] <- tt[jj]
	}
	print(mean(abs(dd-ttt)))
}

om4(t32)
om4(to)
om4(t2)
om4(t34)
om4(t40)



