## Dissolution similarity [Dissolution / BCS / IVIVC]

Hi,

As this question comes up from time to time, I found the following reference: http://wenku.baidu.com/view/01246164783e0912a2162a08.html

I'll write a function in R, but I'm short in time for the moment.
Maybe after the weekend.

Good luck

Ace

PS: for those who want to play with the data in R:
m.ref <- structure(list(V1 = c(42.06, 44.16, 45.63, 48.52, 50.49, 49.77 ), V2 = c(59.91, 60.18, 55.77, 60.39, 61.82, 62.73), V3 = c(65.58, 67.17, 65.56, 66.51, 69.06, 69.77), V4 = c(71.81, 70.82, 70.5, 73.06, 72.85, 72.88), V5 = c(77.77, 76.11, 76.92, 78.54, 78.99, 80.18), V6 = c(85.67, 83.27, 83.91, 84.99, 86.86, 84.2), V7 = c(93.14, 88.01, 86.83, 88, 89.7, 88.88), V8 = c(94.23, 89.59, 90.12, 93.43, 90.79, 90.47)), .Names = c("V1", "V2", "V3", "V4", "V5", "V6", "V7", "V8"), class = "data.frame", row.names = c(NA, -6L)) m.test <- structure(list(V1 = c(19.99, 22.08, 21.93, 22.44, 25.67, 26.37 ), V2 = c(36.7, 39.29, 38.54, 39.46, 42.35, 41.34), V3 = c(47.77, 49.46, 47.76, 49.72, 52.68, 51.01), V4 = c(55.08, 56.79, 55.14, 58.67, 59.71, 57.75), V5 = c(65.69, 67.22, 65.25, 69.21, 71.51, 69.44), V6 = c(81.37, 82.42, 83.49, 84.93, 86.61, 85.9), V7 = c(92.39, 89.93, 90.19, 94.12, 93.8, 94.45), V8 = c(97.1, 95.62, 95.62, 95.51, 96.7, 98.07)), .Names = c("V1", "V2", "V3", "V4", "V5", "V6", "V7", "V8"), class = "data.frame", row.names = c(NA, -6L )) cov(m.ref)  #Variance-covariance matrix of reference cov(m.test) #Variance-covariance matrix of test