Last chance! 50% off unlimited learning
Sale ends in
data(chin07)
data(chin07)
gain <- rowSums(chin07$cn >= .2)
loss <- -rowSums(chin07$cn <= -.2)
plotGW(data=cbind(gain, loss), pos=attr(chin07$cn, 'chrome'), legend=c('gain', 'loss'))
Run the code above in your browser using DataLab