# NOT RUN {
df <- read_df_raw(df_wbw,0.02,7)
df_init <- select_init_df(df, days = 21)
init <- p_iv.week(df_init, temp = 30, N_c = 60)
init_piv <- data.frame(V = init$voc_corr, I = init$isc_1sun - init$isc)
init_piv <- dplyr::arrange(init_piv, .data$V)
init_pivf <- ddiv::IVfeature(I = init_piv$I, V = init_piv$V, crtvalb = 0.06)
init_prs <- init_pivf$Rs
init_isc1sun <- init$isc_1sun
df_full <- IVXbyX(df, corr_temp = 30, 60)
power_loss_phys(init_piv,init_isc1sun, init_prs,df_full[1,])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab