| DISSOLUTION | R Documentation |
12 test and reference tablets measured under dissolution conditions at 5, 10, 15, 20, 30 and 45 seconds. The level of dissolution recorded for the tested generic product is ideally identical to the brand reference.
data("DISSOLUTION")
A data frame with 144 observations on the following 4 variables.
Producta factor with levels R T
Timea numeric vector
Labela factor with levels T1 T10 T10R T11 T11R T12 T12R T1R T2 T2R T3 T3R T4 T4R T5 T5R T6 T6R T7 T7R T8 T8R T9 T9R
Dataa numeric vector
data(DISSOLUTION)
Test <- subset(DISSOLUTION, Product == "T")
Test <- reshape(data = Test, v.names = "Data", timevar = "Label",idvar = "Time", direction = "wide")
summary(Test)
# library(fdapace)
# Model <- FPCA(Ly = Test[, grep("Data", colnames(Test))],
# Lt = Test[, rep("Time", length(grep("Data", colnames(Test))))],
# optns = list(maxK = 5, methodSelectK = 5))
# plot(Model)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.