v <- rnorm(128)
vwp <- wp(v)
vnv <- MaNoVe(vwp)
print(vnv)
#Level: 6 Packet: 1
#Level: 3 Packet: 0
#Level: 2 Packet: 4
#Level: 2 Packet: 13
#Level: 2 Packet: 15
#Level: 1 Packet: 5
#Level: 1 Packet: 10
#Level: 1 Packet: 13
#Level: 1 Packet: 14
#Level: 1 Packet: 15
#Level: 1 Packet: 16
#Level: 1 Packet: 20
#Level: 1 Packet: 21
#Level: 1 Packet: 24
#Level: 0 Packet: 8
#Level: 0 Packet: 9
#Level: 0 Packet: 12
#Level: 0 Packet: 13
#Level: 0 Packet: 14
#Level: 0 Packet: 15
#Level: 0 Packet: 22
#Level: 0 Packet: 23
#Level: 0 Packet: 24
#Level: 0 Packet: 25
#Level: 0 Packet: 34
#Level: 0 Packet: 35
#Level: 0 Packet: 36
#Level: 0 Packet: 37
#Level: 0 Packet: 38
#Level: 0 Packet: 39
#Level: 0 Packet: 44
#Level: 0 Packet: 45
#Level: 0 Packet: 46
#Level: 0 Packet: 47
#Level: 0 Packet: 50
#Level: 0 Packet: 51
#Level: 0 Packet: 56
#Level: 0 Packet: 57
#Level: 0 Packet: 58
#Level: 0 Packet: 59
Run the code above in your browser using DataLab