##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (log.p.wei){p.wei<-exp(log.p.wei)/sum(exp(log.p.wei))list(log.p.wei=log(p.wei),p.wei=p.wei)}