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.
Product
a factor with levels R
T
Time
a numeric vector
Label
a 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
Data
a 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.