# NOT RUN {
#this IV curve is of step=1
#load the data provided in the package
data(IV_step1)
IV1 <- data.frame(IV_step1)
result <- IVExtractResult(IV1, plot.option = FALSE)
#use the IV curve with step=2
data(IV_step2)
IV2 <- data.frame(IV_step2)
#with plot.option=TRUE, IV curve and steps are ploted
result2 <- IVExtractResult(IV2, plot.option = FALSE)
#use the IV curve with step=3
data(IV_step3)
IV3 <- data.frame(IV_step3)
IVExtractResult(IV3, plot.option = FALSE)
# }
# NOT RUN {
data("IV_timeseries")
df <- IV_timeseries
result <- data.frame()
for (i in 1:length(df$tmst)){
IV = df$ivdf[i]
IV <- as.character(IV)
IV = data.frame(IV = strsplit(IV, '#'))
names(IV) <- 'IV'
IV$IV <- as.character(IV$IV)
IV <- tidyr::separate(IV, "IV", into = c("V", "I"), sep = '\\*')
IV <- IV[-1,]
IV$V = as.numeric(as.character(IV$V))
IV$I = as.numeric(as.character(IV$I))
IV = IV[order(IV$V, decreasing = FALSE),]
IV_frame <- data.frame(IV)
trial = try(IVfeature(IV_frame$I, IV_frame$V), silent = TRUE)
if ('try-error' %in% class(trial)){
temp <- data.frame(NA, NA, NA, NA, NA, NA, NA, NA)
names(temp) <- c('Isc', 'Rsh', 'Voc', 'Rs', 'Pmp', 'Imp', 'Vmp', 'FF')
}else{
temp <- data.frame(trial)
}
result <- rbind(result, temp)
}
result <- cbind(df, result)
# }
Run the code above in your browser using DataLab