data(toyapps)
mdash.fun(x=1:3,D1=D1.toy,subsets=subsets.toy,hpa=hpa.toy,z=z.toy,basis=basis.toy)
uu <- rbind(1:3, 1,3:1, 1:3)
rownames(uu) <- c("first", "second", "third", "fourth")
mdash.fun(x=uu, D1=D1.toy, subsets=subsets.toy, hpa=hpa.toy, z=z.toy, basis=basis.toy)
Run the code above in your browser using DataLab