# # 4 here represent 2^5 = 32 half-hours ~ 1 day
scalevector4 <- 2^(4:(noctave4 * nvoice) / nvoice) * 2
lscvect4 <- length(scalevector4)
lscvect <- lscvect4 # i should clean my code: werFam demands a lscvect
# # 4 here represent 2^5 = 32 half-hours ~ 1 day
scalevector4 <- 2^(4:(noctave4 * nvoice) / nvoice) * 2
lscvect4 <- length(scalevector4)
lscvect <- lscvect4 # i should clean my code: werFam demands a lscvect