New to PKNCA

[jeslo328]

I have a scenario, On Days 1 through 7 of Period 1, participants drug A once daily (QD). PK samples will be collected predose on Day 1 and Day 7 and up to 24 hours post Day 7 dose. In period 2 participants were dose with another drug B for 15 days. PK samples were collected predose on day 15 and up to 24 hours post dose.
I wanted to perform nca so that i can obtain pk parameter for 0-24 of Day 7 period 1 and 0-24 Day15 of period 2.
But i am endig up with error message as below. Can anyone help me /guide on what am i doing wrong here please :
Below is my code :

# -----------------------------------------------------#
# Step 1                                               #
# Put your concentration data into a PKNCAconc object  #
# PKNCAconc                                            #
#------------------------------------------------------#

o_conc <- PKNCAconc(data=TestData,
                    formula=CONC~HOUR|SUBJID+PERIOD) 

# ---------------------------------------------------------#
# Step 2                                                                         #
# Put your dose data into a PKNCAdose object           #
# PKNCAconc                                                               #
#---------------------------------------------------------#
#o_dose <- PKNCAdose(data=TestData,
#                    formula=Dose~time|treatment_id+subject)

# ----------------------------------------------------------#
# Step 3                                                                           #
# Combine the two (and automatically determine         #
# the intervals of interest                                                #
# PKNCAdata(o_conc, o_dose)                                        #
#----------------------------------------------------------#
intervals_manual <- data.frame(start=0, end=24, auclast=TRUE)
knitr::kable(intervals_manual)

o_data <- PKNCAdata(o_conc, intervals=d_intervals)

# ----------------------------------------------------- #
# Step 4                                                                    #
[TestData.csv](https://github.com/user-attachments/files/15523685/TestData.csv)
[TestData.csv](https://github.com/user-attachments/files/15523686/TestData.csv)

# Compute the NCA parameters                             #
# pk.nca                                                                    #
#------------------------------------------------------#
o_results <- suppressMessages(pk.nca(o_data))
summary(o_results)


Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE,  : 
  arguments imply differing number of rows: 481, 1, 0

[billdenney]

When I ran your code, I didn't get the same error. Can you please try reinstalling PKNCA to ensure that you're using the current version?

Other than that, your code swapped PERIOD and SUBJID in the definition of o_conc so that PERIOD was assumed to be the subject identifier. And, you used intervals_manual instead of d_intervals.

This code works for me:

library(PKNCA)
#> 
#> Attaching package: 'PKNCA'
#> The following object is masked from 'package:stats':
#> 
#>     filter

TestData <- read.csv("https://github.com/user-attachments/files/15523686/TestData.csv")

o_conc <- PKNCAconc(data=TestData, formula=CONC~HOUR|PERIOD+SUBJID) 

d_intervals <- data.frame(start=0, end=24, auclast=TRUE)
o_data <- PKNCAdata(o_conc, intervals=d_intervals)

o_results <- pk.nca(o_data)
#> No dose information provided, calculations requiring dose will return NA.
summary(o_results)
#>  start end PERIOD  N    auclast
#>      0  24      1 37 308 [24.0]
#> 
#> Caption: auclast: geometric mean and geometric coefficient of variation; N: number of subjects

^{Created on 2024-06-06 with reprex v2.1.0}