Closed hongyuanjia closed 5 years ago
path_idf <- "RefBldgLargeOfficeNew2004_Chicago.idf" path_epw <- file.path(eplus_config(8.7)$dir, "WeatherData", "USA_CA_San.Francisco.Intl.AP.724940_TMY3.epw") sen <- sensi_job(path_idf, path_epw) lvls <- 6 sen$param( .("Core_bottom People", "Core_mid People", "Core_top People", "Perimeter_bot_ZN_1 People", "Perimeter_bot_ZN_2 People", "Perimeter_bot_ZN_3 People", "Perimeter_bot_ZN_4 People", "Perimeter_mid_ZN_1 People", "Perimeter_mid_ZN_2 People", "Perimeter_mid_ZN_3 People", "Perimeter_mid_ZN_4 People", "Perimeter_top_ZN_1 People", "Perimeter_top_ZN_2 People", "Perimeter_top_ZN_3 People", "Perimeter_top_ZN_4 People") := list(Zone_Floor_Area_per_Person = c(min=13.935, max=23.225, levels = lvls)), .names = c("var"), .r = 8, .grid_jump = 1 ) #> Error: `.name` should have the same length as number of input parameters, which is 15.
Close via https://github.com/ideas-lab-nus/epluspar/commit/750b355ad5b9c7d77adcb64763e2042ccd571dfd