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 DataCamp Workspace