setwd("C:/Users/gcagn/Desktop/dates/2025April/KateMcKeever/TPP-Paper2/TPPScript-Paper2/TPP-Paper2-Analysis03/F70vF400")
library("TPP")
hdacVehicle1 <- read.csv("hdacVehicle1.csv")
#hdacVehicle2 <- read.csv("hdacVehicle2.csv")
panobinostat1 <- read.csv("panobinostat1.csv")
#panobinostat2 <- read.csv("panobinostat2.csv")
# In some cases, R adds X before the column names, to avoid that use check.names = FALSE
hdac_config <- read.csv("hdac_config.csv", check.names=FALSE)
hdac_data <- list()
hdac_data[['Vehicle_1']] <- hdacVehicle1
#hdac_data[['Vehicle_2']] <- hdacVehicle2
hdac_data[['Panobinostat_1']] <- panobinostat1
#hdac_data[['Panobinostat_2']] <- panobinostat2
resultPath = file.path(getwd(), 'Panobinostat_Vignette')
results <-  analyzeTPPTR(configTable = hdac_config,
methods = "meltcurvefit",
data = hdac_data,
nCores = 2,
resultPath = resultPath,
plotCurves = TRUE)
setwd("C:/Users/gcagn/Desktop/dates/2025April/KateMcKeever/TPP-Paper2/TPPScript-Paper2/TPP-Paper2-Analysis03/P1vP8")
library("TPP")
hdacVehicle1 <- read.csv("hdacVehicle1.csv")
#hdacVehicle2 <- read.csv("hdacVehicle2.csv")
panobinostat1 <- read.csv("panobinostat1.csv")
#panobinostat2 <- read.csv("panobinostat2.csv")
# In some cases, R adds X before the column names, to avoid that use check.names = FALSE
hdac_config <- read.csv("hdac_config.csv", check.names=FALSE)
hdac_data <- list()
hdac_data[['Vehicle_1']] <- hdacVehicle1
#hdac_data[['Vehicle_2']] <- hdacVehicle2
hdac_data[['Panobinostat_1']] <- panobinostat1
#hdac_data[['Panobinostat_2']] <- panobinostat2
resultPath = file.path(getwd(), 'Panobinostat_Vignette')
results <-  analyzeTPPTR(configTable = hdac_config,
methods = "meltcurvefit",
data = hdac_data,
nCores = 2,
resultPath = resultPath,
plotCurves = TRUE)
setwd("C:/Users/gcagn/Desktop/dates/2025April/KateMcKeever/TPP-Paper2/TPPScript-Paper2/TPP-Paper2-Analysis03/D40vD86")
library("TPP")
hdacVehicle1 <- read.csv("hdacVehicle1.csv")
#hdacVehicle2 <- read.csv("hdacVehicle2.csv")
panobinostat1 <- read.csv("panobinostat1.csv")
#panobinostat2 <- read.csv("panobinostat2.csv")
# In some cases, R adds X before the column names, to avoid that use check.names = FALSE
hdac_config <- read.csv("hdac_config.csv", check.names=FALSE)
hdac_data <- list()
hdac_data[['Vehicle_1']] <- hdacVehicle1
#hdac_data[['Vehicle_2']] <- hdacVehicle2
hdac_data[['Panobinostat_1']] <- panobinostat1
#hdac_data[['Panobinostat_2']] <- panobinostat2
resultPath = file.path(getwd(), 'Panobinostat_Vignette')
results <-  analyzeTPPTR(configTable = hdac_config,
methods = "meltcurvefit",
data = hdac_data,
nCores = 2,
resultPath = resultPath,
plotCurves = TRUE)
getd()
getwd()
