Recorra varias listas para obtener un valor por lista en R

Estoy usando los paquetes seewave para obtener funciones de las grabaciones de audio. Las características regresaron por grabación como una lista de 14 características por archivo de audio. Todos estos se juntan así

summary(wav10)
   Length Class Mode
1/10-11.1/20211110_140000.WAV 14 -none- list
1/10-11.1/20211110_140100.WAV 14 -none- list
1/10-11.1/20211110_140200.WAV 14 -none- list
1/10-11.1/20211110_140300.WAV 14 -none- list
1/10-11.1/20211110_140400.WAV 14 -none- list
1/10-11.1/20211110_140500.WAV 14 -none- list
1/10-11.1/20211110_140600.WAV 14 -none- list
1/10-11.1/20211110_140700.WAV 14 -none- list
1/10-11.1/20211110_140800.WAV 14 -none- list
1/10-11.1/20211110_140900.WAV 14 -none- list
1/10-11.1/20211110_141000.WAV 14 -none- list

por grabación de audio, la 'lista' consta de:

`wav10[["1/10-11.1/20211110_140000.WAV"]]
$mean
[1] 4765.908
$sd
[1] 6781.333
$median
[1] 361.5
$sem
[1] 13.84234
$mode
[1] 221.8
$Q25
[1] 183.3
$Q75
[1] 8634.7
$IQR
[1] 8451.4
$cent
[1] 4765.908
$skewness
[1] 17.70747
$kurtosis
[1] 424.2355
$sfm
[1] 0.4008524
$sh
[1] 0.8520218
$prec
[1] 0.1

Solo estoy interesado en la media de $ de cada registro. Intenté recorrer cada archivo como este:

for(i in seq_along(wav10)) {
 object<- c(print(wav10$'mean')) 
 }

, pero no obtengo el resultado deseado, porque cada valor es NULL. Tenía la esperanza de que alguien me puede ayudar.

Saludos cordiales,

Tommie

Solución del problema

Tal vez esto funcione como esperas

 object<- lapply(wav10, `[`, "mean") 
 object